Uso del for para 'analizar' frases (><)

[s E t H]

usando instr se puede, de esta manera:

usamos una variable para determinar desde donde buscamos, la inicializamos a 0 para que empiece a buscar desde el principio
empieza el bucle
    busca con instr DESDE LA POSICION DE LA VARIABLE
    si instr dio resultados:
         la variable pasa a tener de valor la posicion de la cadena +1
    si no
          sale del bucle, la cadena no esta mas
vuelve al comienzo

o si no, podes hacer algo asi:

Código [Seleccionar] Expandir

For i = 1 To Len(Text1.Text)
MsgBox Mid(Text1, i, len("10021"))
Next i

[WestOn]

Wenas, grax por los ejemplos , al final hice q funcionara .
Pero me quede con una duda con esto:

Código [Seleccionar] Expandir

Private Sub Command2_Click()
For i = 1 To Len(Text1.Text)
a = Mid(Text1, i, 1)
If a = "250000" Then
c03 = "c" 'nueva letra
c01 = c01 + c02 + c03 'variable total + espacio + nueva letra
End If
.....
next
end sub
este ejemplo no era capaz de cambiarme "250000" a "c", ¿alguien sabe porque ?

PD:Lo que hace es guardar la variable a como la variable c03


un saludo

[cassiani]

Estas extrayendo un solo carácter de la cadena original,  "a" nunca será igual a "250000".

[WestOn]

Tengo un text y en el pongo el valor de a (en este caso 250000) entonces ¿no tendria q entrar por fuerza ?
lo digo porq el valor de a lo pongo directamente yo, un saludo

[cassiani]

Te digo que si extraes UN solo caracter, nunca entrara al bloque if

a = Mid(Text1, i, 1)
If a = "250000" Then

[WestOn]

Te digo que si extraes UN solo caracter, nunca entrara al bloque if

a = Mid(Text1, i, 1)
If a = "250000" Then

grax y un saludo