Jump to content
Fórum Script Brasil
  • 0

Split De Texto


Question

Caros,

Preciso "quebrar" um "texto" que possui o seguinte formato:

0000000010210011

Como não tem nenhum caracter específico como separador, não consegui usar o split. O resultado deveria ser como o seguinte:

primeiro valor: 0011 (últimos quatro)

segundo valor: 000000001021 (demais caracteres).

alguém pode me ajudar?

valeu

Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Assim:

        Dim s As String = "0000000010210011"

        Dim s1 As String = s.Substring(s.Length - 4)
        Dim s2 As String = s.Substring(0, 12)

        MessageBox.Show(s1)
        MessageBox.Show(s2)

Certo? wink.gif

Graymalkin

Link to post
Share on other sites
  • 0

Ai você pode fazer isso:

Dim palavra, palavras as String
Dim contador as Integer

For Each palavra in palavras
      If palavra = "0" Then
            contador = contador + 1
      End IF
Next

Dim s2 As String = s.Substring(0, contador)

Já era! Falows!

Link to post
Share on other sites
  • 0
No caso do S1 funciona. Mas, no caso do S2, pode ser que aumente o número de zeros. Aí complica.

Complica??? blink.gif É só pegar o tamanho de "s" (s.Length) e subtrair 4. O resultado será a quantidade de caracteres que devem ser resgatados.

Abraços,

Graymalkin

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148692
    • Total Posts
      644515
×
×
  • Create New...