AJUDA MID()

BETOPSY 26/03/2015 05:10:45
#445497
Boa noite, preciso de uma ajuda nesse codigo

If Not T_separar.Text Is Nothing Then
Dim toremovelist As New List(Of String)
For Each item As String In ListBox1.Items

If item.Contains(T_separar.Text) Then
toremovelist.Add(item)
ListBox2.Items.Add(item)
End If

Next
For Each removeitem In toremovelist


ele funciona porem ele busca na linha toda, eu preciso , que ele faca a busca apenas no 1 numero da linha
porem salve a linha toda , ex

42362387358
42342342342
58963893900
46378687990
68993988298
79836792737

Caso eu coloque no textbox, o numero 4 ele pegue apenas os que tem o numero 4 no inicio , e salve a linha toda
e assim por diante!
NICKOSOFT 26/03/2015 06:22:00
#445498
use o substring, e determinando o comprimento de acordo com o conteúdo do texto a ser procurado, se vc colocar 1, so vai procurar igualdade no primeiro caracter, se colocar 487 vai buscar igualdade nos 3 primeiros caracteres, fiz assim apenas para ser um código flexível, substring(inicio, comprimento) começando sempre no 0 e comprimento igual ao text de busca 
  
        Dim toremovelist As New List(Of String)
        For Each item As String In ListBox1.Items
            If item.Substring(0, T_Separar.TextLength) = T_Separar.Text Then
                toremovelist.Add(item)
                ListBox2.Items.Add(item)
            End If
        Next

FFCOUTO 26/03/2015 08:51:26
#445503
Porque não usa a função StartsWith da própria classe String?

Dim toremovelist As New List(Of String)

For Each item As String In ListBox1.Items
If item.StartsWith(T_Separar.Text, true, StringComparison.CurrentCulture) Then
toremovelist.Add(item)
ListBox2.Items.Add(item)
End If
Next
BETOPSY 26/03/2015 14:02:47
#445509
(
Citação:

:
use o substring, e determinando o comprimento de acordo com o conteúdo do texto a ser procurado, se vc colocar 1, so vai procurar igualdade no primeiro caracter, se colocar 487 vai buscar igualdade nos 3 primeiros caracteres, fiz assim apenas para ser um código flexível, substring(inicio, comprimento) começando sempre no 0 e comprimento igual ao text de busca 

  
        Dim toremovelist As New List(Of String)
        For Each item As String In ListBox1.Items
            If item.Substring(0, T_Separar.TextLength) = T_Separar.Text Then
                toremovelist.Add(item)
                ListBox2.Items.Add(item)
            End If
        Next



Seu codigo deu erro nessa linha

If item.Substring(0, T_Separar.TextLength) = T_Separar.Text Then
BETOPSY 26/03/2015 14:08:18
#445510
Citação:

:
Porque não usa a função StartsWith da própria classe String?

Dim toremovelist As New List(Of String)

For Each item As String In ListBox1.Items
If item.StartsWith(T_Separar.Text, true, StringComparison.CurrentCulture) Then
toremovelist.Add(item)
ListBox2.Items.Add(item)
End If
Next





Seu codigo nessa linha deu erro

If item.StartsWith(T_Separar.Text, true, StringComparison.CurrentCulture) Then
NICKOSOFT 26/03/2015 18:03:05
#445514
Rodei sem problemas, precisa ver o nome dos objetos, e se o txt tinha algum valor, nao impementei qq verificacao
Mas deve ser seus objetos, pq na mesma linha praticamente deu erro no outro codigo, sem por o erro fica dificil....
PEGUDO 27/03/2015 08:11:19
#445519 Resposta escolhida
Cara, retire o [Ô][txt-color=#0000f0], true, StringComparison.CurrentCulture[/txt-color][Ô]
For Each item As String In ListBox1.Items
    If item.STartsWith(T_Separar.Text) Then
        toremovelist.Add(item)
        ListBox2.Items.Add(item)
    End If
Next
BETOPSY 27/03/2015 10:41:55
#445526
Citação:

:
Cara, retire o [Ô][txt-color=#0000f0], true, StringComparison.CurrentCulture[/txt-color][Ô]

For Each item As String In ListBox1.Items
    If item.STartsWith(T_Separar.Text) Then
        toremovelist.Add(item)
        ListBox2.Items.Add(item)
    End If
Next



Vlw cara, vc sempre ajudando ,Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar