 Autor
|
Tema: Uso del for para 'analizar' frases (><) (Leído 13,579 veces)
|
WestOn
 Desconectado
Mensajes: 272
El testamento Maya...
|
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;)
|
|
|
|
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?. 
|
|
|
krackwar
Desconectado
Mensajes: 900
|
algo asi? For i = 1 To Len(Text1.Text)
MsgBox Mid(Text1, i, 1)
Next i
|
|
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios. 
|
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
Wenas, el ejemplo tal cual lo has puesto es justo lo q queria, grax  Que bueno que te aalla servido 
|
|
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
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: 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 |
|
|
|
« Última modificación: 4 Noviembre 2008, 21:08 pm por WestOn »
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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  |
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
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 293759Segundo 394856y asi hasta el final un saludo |
|
|
|
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Entonces es lo que he dicho.. porque no utilizar la función instr  msgbox instr(1,"293759 394856 028736 187357","028736",1)
Saludos |
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
wenas, con InStr lo usaria asi: 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 |
|
|
|
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 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 |
|
|
|
« Última modificación: 4 Noviembre 2008, 21:47 pm por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Frases para enamorar
« 1 2 ... 8 9 »
Foro Libre
|
The Ghost
|
87
|
58,997
|
17 Mayo 2022, 11:18 am
por lewis88
|
|
|
Se puede programar para analizar un video?
Programación General
|
mit
|
2
|
3,934
|
20 Enero 2011, 13:33 pm
por [D4N93R]
|
|
|
|
la mejores frases para romper el hielo
« 1 2 3 4 5 »
Foro Libre
|
matrixxxx
|
42
|
82,518
|
25 Abril 2011, 16:05 pm
por dimitrix
|
|
|
|
Duda con comando para analizar procesos
Programación Visual Basic
|
.:UND3R:.
|
3
|
2,682
|
11 Junio 2011, 07:42 am
por BlackZeroX
|
|
|
|
FinFisher en zips para analizar
Análisis y Diseño de Malware
|
phat_one@h0st:~$
|
0
|
2,367
|
16 Septiembre 2014, 17:27 pm
por phat_one@h0st:~$
|
 |
