Mensajes

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

Wenas, ¿y si haces una copia del icono y pones la copia despues de cifrar?
Quiza te sirva , un saludo

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

[a]

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

ok probare el code mañana y ya comento que tal
grax

no lo habia visto  , yaya si eso ya lo probe pero no me sirve..
Ya sabia yo q no se entenderia jeje, mira si tenemos un diccionario:
100= H
400= O
500= L
600= A

600= A
900= G
300= U
200= R

Si pongo --> 100 400 500 600 600 900 300 200 --> Hola agur
weno jaja si no me explico bien da =, ya mirare y posteare mañana si tengo alguna duda, pero espero alguna respuesta
un saludo

[no]

Lo q intento hacer esque vaya numero por numero, no que busque una letra determinada y me de la posicion de la letra inicial..

Quieres que te busque por número y no por una letra determinada, pero que luego te de la posicion de la letra inicial... Ahora me pregunto..

EJ: 1000 = a
cada vez q encuentre "1000", escriba "a", pero asi con todos los numeros y tiene q seguir un orden porq sino la suma de las letras al final no tendria sentido

un saludo

[1000]

wenas, pues estuve probando pero no me sirve lo de InStr, ya que no me vale para "ir paso a paso".
Si tengo que buscar, por ejemplo, 1000 entre 4469 6789 1000 2562 1000 0125
por cada vez q encuentre mil tiene que escribir una letra, pero no como lo hace InStr (que busca lo q le pongas de una tacada todo).
Lo q intento hacer esque vaya numero por numero, no que busque una letra determinada y me de la posicion de la letra inicial..
El for de arriba, el q usa Mid es muy bueno para lo de las letras, yo quiero hacer algo parecido (en el sentido de que va analizando en orden) pero q me busque envez de letra por letra numero por numero.
Numeros de mas de 6 digitos (lo digo porq con un numero de 1 digito si me serviria..)

jaja espero q se haya entendido, un saludo

voy a probarlo y ya os comento, grax 

[028736]

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