none
Retirar os primeiros números de uma String RRS feed

Respostas

  • Dim s As String = "1234Leonardo@gmail.com"
    Dim r As String
    Dim indice As Integer = 0

    For Each c As Char In s
       If (Char.IsNumber(c)) Then
           indice += 1
       End If
    Next

    r = s.Substring(indice, s.Length - indice)

    MessageBox.Show(r)
    blog: http://lblima.blogspot.com
    • Marcado como Resposta Ederson Lima quinta-feira, 28 de maio de 2009 19:32
    quinta-feira, 28 de maio de 2009 18:26
    Moderador
  • Muito Obrigado Leonardo e Ncm,

    Existe e-mail que tem numero no meio, exemplo, 1234Leonardo2008@gmail.com
    O indice seria 8, com isto ele ficaria assim ardo2008@gmail.com
    Então eu coloquei um else, e um exit for, assim que econtra a primeira letra sai do for e agora está perfeito.

    Dim

     

    s As String = sAux
    Dim r As String
    Dim indice As Integer = 0
    For Each c As Char In s
      If (Char.IsNumber(c)) Then
        indice += 1
      Else
        Exit For
      End If
    Next
    r = s.Substring(indice, s.Length - indice)
    MessageBox.Show(r)

    Muito Obrigado.


    Ederson Lima
    quinta-feira, 28 de maio de 2009 19:32

Todas as Respostas

  • Boa tarde Ederson

    Esta este arquivo tem os tamanho pre definidos ?

    se tiverem é facel basta voce usar a função do vb para fazer is to.

    se a linha retornada foce este : 2356nomeDaPessoa@teste.com
    ex.:

    Dim Num As Int32

    For Num = 0 To 9
    sAux = mid(2356nomeDaPessoa@teste.com,5)

    Next

    o sAux ficaria com este valor
    sAux = nomeDaPessoa@teste.com

    pois ele pegaria apartir da 5 caratere.

    so que para poder trabalhar desta maneira o arquivo deve ter um padrão.

    qual quer duvida estamos as ordem

    t+



    Nilson Morgenstern
    • Marcado como Resposta Ederson Lima quinta-feira, 28 de maio de 2009 19:32
    • Não Marcado como Resposta Ederson Lima quinta-feira, 28 de maio de 2009 19:32
    quinta-feira, 28 de maio de 2009 18:24
  • Dim s As String = "1234Leonardo@gmail.com"
    Dim r As String
    Dim indice As Integer = 0

    For Each c As Char In s
       If (Char.IsNumber(c)) Then
           indice += 1
       End If
    Next

    r = s.Substring(indice, s.Length - indice)

    MessageBox.Show(r)
    blog: http://lblima.blogspot.com
    • Marcado como Resposta Ederson Lima quinta-feira, 28 de maio de 2009 19:32
    quinta-feira, 28 de maio de 2009 18:26
    Moderador
  • Muito Obrigado Leonardo e Ncm,

    Existe e-mail que tem numero no meio, exemplo, 1234Leonardo2008@gmail.com
    O indice seria 8, com isto ele ficaria assim ardo2008@gmail.com
    Então eu coloquei um else, e um exit for, assim que econtra a primeira letra sai do for e agora está perfeito.

    Dim

     

    s As String = sAux
    Dim r As String
    Dim indice As Integer = 0
    For Each c As Char In s
      If (Char.IsNumber(c)) Then
        indice += 1
      Else
        Exit For
      End If
    Next
    r = s.Substring(indice, s.Length - indice)
    MessageBox.Show(r)

    Muito Obrigado.


    Ederson Lima
    quinta-feira, 28 de maio de 2009 19:32