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

[WestOn]

Wenas, tengo una duda sobre como hacer esto:
Tenemos una frase cualquiera: hola, que pasa que te cuentas
¿Como puedo hacer para que analize cada letra de la frase?
Ya vi que se puede hacer con un for pero no lo consigo....

un saludo;)

[krackwar]

algo asi?

Código [Seleccionar] Expandir

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


[WestOn]

Wenas, el ejemplo tal cual lo has puesto es justo lo q queria, grax

[krackwar]

Wenas, el ejemplo tal cual lo has puesto es justo lo q queria, grax

Que bueno que te aalla servido 

[WestOn]

Hola de nuevo, tengo una duda con el code de antes:
Para coger letra por letra no hay problemas me va muy bien, pero si tengo esto:

Código [Seleccionar] Expandir

Private Sub Command2_Click()
For i = 1 To Len(Text2.Text)
a = Mid$(Text2, i, 1)
If a = "01000001" Then
...
Si pongo ese numero por ejemplo no me lo saca, quiero decir que con el ejemplo anterior reconoce letra por letra, pero ¿como haria para que usando el for de antes, (u otro), pudiese identificar el numero de arriba?
¿Quiza haciendo que se pare para 'analizar' cada vez que haya un espacio, y luego seguir?

un saludo

[Novlucker]

No entiendo... estas buscando una palabra dentro de una cadena?
Por ejemplo... buscar si esta la palabra "fuga", dentro la fase, "ha habido una fuga"?
Porque para eso esta la función instr 

[WestOn]

mmm creo q se me a ido la cabeza , pero voy a aclarar lo q quiero hacer:
Identificar el numero '028736' en "293759 394856 028736 187357", pero como hay mas numeros hacer un for para que vaya uno a uno:
Primero 293759
Segundo 394856
y asi hasta el final

un saludo

[Novlucker]

Entonces es lo que he dicho.. porque no utilizar la función instr

Código (vb) [Seleccionar] Expandir

msgbox instr(1,"293759 394856 028736 187357","028736",1)

Saludos

[WestOn]

wenas, con InStr lo usaria asi:

Código [Seleccionar] Expandir

i = InStr(1, Text1.Text, "028736", 1)
¿Pero si el numero se repite? si pasa esto:
028736 349812 569309 028736 982301 759836
Solo detectaria lo detectaria al principio, el siguiente numero igual a el no lo reconoce...nose si me explico bien
grax de antemano

[Novlucker]

Claro, porque el instr devuelve la primer coincidencia, y hace referencia, al primer caracter de la palabra buscada.... para eso tienes que utilizar un bucle

Código (vb) [Seleccionar] Expandir


i=1
do
e = InStr(i, Text1.Text, "028736", 1)
if e > 0 then
msgbox "coincidencia en " & e
i = e + 1
else
exit do
end if
loop


Saludos