PROBLEMA CON FUNCIÓN CASE:

Iniciado por CRAB, 31 Agosto 2005, 19:02 PM

0 Miembros y 1 Visitante están viendo este tema.

CRAB

Hola, tengo un problema con la función case. Es el siguiente:

Tengo dos TextBox, cuando en el Text2 aparezca=

                       02 45 67 54 18 12 90 45 73

En el Text1 ha de aparecer su correspondiente en letras, el problema es que a una letra le doy tres valores diferentes, y he probado de hacerlo, pero solo me substituye el número por la letra si solo le doy un valor y si solo hay escrito eso en el Text2, si hay algo más escrito, no me va.

Gracias por la ayuda gente.

NYlOn

bueno, la verdad se entendio poco y nada, pero vamos a ver si adivino...
yo hice algo parecido para codificar un texto
hace esto (suponiendo que cada 2 numeros tenes una letra)


Private Sub Command1_Click ()
text2.text = "" 'limpia el Text2

For i = 0 to Len(Text1.Text)
Select Case Mid(Tetxt1.Text, i, 2) 'esto va escaneando cada 2 letras
Case 02 'si encontro el 02
text2.text = text2.text + "A" 'pone la letra A en el Text2
case 45 'si encontro el 45
text2.text = text2.text + "B" 'pone la letra B en el Text2
end select
Next i
End Sub


con este code no importa en que posicion se encuentren los numeros, lo que si tenes que poner todos los "Cases" con cada letra del abcdario...
espero que se haya entendido, sino postea ;)

un saludo y SUERTE !

G0nz4

CRAB

Hola NYlOn, muchísimas gracias por tu respuesta, me has sido de una gran ayuda, de todas maneras he cambiado un poco el código porq no me iva:

Private Sub Command1_Click ()
text2.text = "" 'limpia el Text2

For i = 1 to Len(Text1)
Select Case Mid(Tetxt1, i, 2)     'esto va escaneando cada 2 letras
Case "02"                               'si encontro el 02
text2.text = text2.text + "A"     'pone la letra A en el Text2
case 45                                   'si encontro el 45
text2.text = text2.text + "B"     'pone la letra B en el Text2
end select
Next i
End Sub

Muchas gracias, te lo agradezco mucho.


Crack_X

#3
Utiliza & para encadenar strings en vez de +.
Shit loads of money spend to show us wrong from right. Say no to war


Yasser Has Things To Say
WarZone

NYlOn

De nada Crab, que bueno que te sirvio   :)

che Crack_X me podes explicar como es eso de los signos ??
tengo entendido que cada signo corresponde a una variable, pero no se cual es cual =S
& es String no ?
si me podes armar una listita estaria muy agradecido, ya que suelo usar el "+" y hay veces que me tira errores, y sospecho que puede ser x esto...

bueno, gracias de antemano

un abraz0

G0nz4

Numeros

#5
% - Integer

& - Long

! - Single

# - Double

@ - Currency

$ - String



Salu2

NYlOn


Slasher-K

Lo que decía Crack_X es que para concatenar dos cadenas se debe utilizar "&" en lugar del signo "+", porque puede dar un error de tipos de datos, ya que el "+" se utiliza para sumar.

Saludos.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

NYlOn

ahaha
ahora entiendo ;D

iwal me sirvio la listita ^^

un abraz0

G0nz4