Tuve un error, osea no mire bien mi codigo y ahora cuando te lo estaba esplicando me fije bien y no funcionaria, esta es la correccion
sw1=0:sw2=0:X=1 'Iniciamos las variables
Dim Numeros(1 TO 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
for i=1 to ubound(Numeros)
Numeros(I)=""
next
for i=1 to len(text1.text) 'desde 1 hasta lo que tiene el text1
car = mid(text1.text,i,1) 'guardamos de a 1 caracter
if sw1=1 then '1
numero = numero & car
sw2=1
end if
if sw2=1 and car=" " then '2
Numeros(X) = Numero
X=X+1
numero=""
sw1=0:sw2=0
end if
if car = "=" then sw1=1 '3
next
1: lo que hacemos es que si sw1=1 entonces guardamos el cntenido de car en la variable numero, concatenandola con el resto, ejemplo:
car =1
Numero = "52" 'ya iniciado
Entonces
Numero = Nunmero & Car
Numero = "521" ' Resultado final o semifinal!!!
Ponemos el sw2=1, para que deje de grabar numeros si encuentra un espacio
2- si el car=" " (un espacio) y sw2=1 entonces significa que el numero ya fue gravado en la variable Numero, lo que hacemos entonces es:
Guardamos ese numero en el vector Numeros, le sumamos unos mas a X (este sera el indice del vector), y vaciamos variables
3- verificamos si el caracter es un "=" entonces lo que hacesmos es poner sw1 en 1 para que komienze a guardar caracteres
como resultad fianl tendremos en el vector todos los numeros, y si lo keremos mostrar en un textbox seria de esta manera:
tmptxt = ""
for i=1 to ubound(Numeros)
if Numeros(I) != "" Then
tmptxt = Numeros(I) & vbnewline & tmptxt
Else
exit for
End if
next
text1.value = tmptxt
Saludos espero ek te ayude!!
Mostrar Mensajes