Split De Texto

[bemidio]

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

[Graymalkin]

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?

Graymalkin

[bemidio]

No caso do S1 funciona. Mas, no caso do S2, pode ser que aumente o número de zeros. Aí complica.

Mas valeu.

[Andersonjb]

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!

[Graymalkin]

No caso do S1 funciona. Mas, no caso do S2, pode ser que aumente o número de zeros. Aí complica.

Complica??? É 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