DIVIDIR STRING

PAYDANA 12/10/2012 03:00:27
#411888
Tenho mais de 3 mil linhas com numeros assim

0102030405

então pensso em fazer um for que leia de 2 em 2

algo meio assim

Private Sub Command3_Click()
s = [Ô]0102030405[Ô]

For s = 1 To Len(s)

MsgBox s

Next

End Sub

so que isto me retorna 0 1 0 2 0 3 0 4 0 5

eu preciso que retorne 01 02 03 04 05

Obrigado!
VELDRAME 12/10/2012 14:41:09
#411934 Resposta escolhida
i as integer

for i=1 to len(s)
reslt = resul & mid(s,i,2) & space(1)
i=i+1 [ô]aqui você vai forçar a soma de mais 1 já que o next ira agregar outra mais 1
next

Seu MID vai começar do 1 para pegar 2 caracteres
result = 01
Depois vc vai forçar a soma de mais 1
a variavel i passa a ser 2
Mas como vc que o treceiro caracter o next vai por mais 1
Seu mid passa a ser 3 pega dois
result = 01 02

e Assim vai....
FILMAN 12/10/2012 18:25:02
#411954 
Dim strT As String
strT = [Ô][Ô]

s = [Ô]0102030405[Ô]

For i = 1 To Len(Trim(s)) Step 2
    strT = strT & Mid(Trim(s), i, 2) & Space$(1)
Next

MsgBox Trim(strT)


coloque isso dentro de um CommandButtom e verifica o resultado
PAYDANA 12/10/2012 18:54:19
#411957
VELDRAME, o seu to tentando entender melhor aqui. obrigado

FILMAN, o seu quase deu certo

ele retornou msgbox 01 02 03 04 05

mais eu preciso que retorne no msgbox 01 dae eu dou ok e retorna 02... assim por diante até 05

muito obrigado
PAYDANA 12/10/2012 19:35:44
#411958
Olhei melhor agora o seu VELDRAME,

Dim i As Integer

s = [Ô]0102030405[Ô]
For i = 1 To Len(s)
resul = Mid(s, i, 2) & Space(1)
i = i + 1
MsgBox resul
Next

mudei algumas coisinhas e consegui com que ficasse como eu queria

Muito obrigado a você e ao FILMAN
Tópico encerrado , respostas não são mais permitidas
Voltar