Imprimir Página - convertir txt a mayuscula minuscula mayuscuala...

Título: convertir txt a mayuscula minuscula mayuscuala...
Publicado por: 4D1cTo en 17 Junio 2006, 03:16 am

Estuve buscando info para hacer un conversor de texto...

si en una caja de texto escribo hola y apreto convertir quiero q aparezca HoLa , se entiende ?

estuve "googleando" y probando pero no me sale , la funcion ucase me pasa todo a mayuscula y la funcion lcase todo a minuscula ...
tmb encontre otro codigo que permite solamente tener la primer letra mayuscula y las demas minusculas
StrConv(text1, vbProperCase)
pero tmpoco se adecua a lo que yo busco

soluciones o ayudas plz

thx =).

Título: Re: convertir txt a mayuscula minuscula mayuscuala...
Publicado por: karmany en 17 Junio 2006, 06:37 am

Es sencillo, yo te he hecho un ejemplo que puedes modificar a tu gusto. Lo único ten en cuenta que si insertas un espacio la siguiente letra será igual que la anterior, pero lo puedes modificar si quieres..
Yo he hecho un Textbox: Text1 y un botón: Command1

Código:

Private Sub Command1_Click()
Dim y As String
palabra = Text1.Text
Text1 = ""
For x = 1 To Len(palabra) Step 2
y = UCase(Mid(palabra, x, 1))
Text1 = Text1 + y
Text1 = Text1 + LCase(Mid(palabra, x + 1, 1))
Next x
End Sub

Título: Re: convertir txt a mayuscula minuscula mayuscuala...
Publicado por: Cicklow en 17 Junio 2006, 17:26 pm

Código:

dim tmp as string
tmp=""
for i = 1 to len(text1.text)
 if i mod 2 = 0 then
   tmp = tmp &  ucase(mid(text1.text,i,1))
 else
   tmp = tmp &  lcase(mid(text1.text,i,1))
 end if
next
text1.text = tmp
tmp=""

Este code lo que hace es convertir una en mayusculas y otra en minusculas sin inportar, espacios, numeros, etc..., lo del mod 2 =0 es porke si el resto de la divicion entre i / 2 es = 0 kiere de cir que es par, entonces es mayusculas, de lo contrario es un numero impar y es minusculas, saludos y suerte.

Título: Re: convertir txt a mayuscula minuscula mayuscuala...
Publicado por: 4D1cTo en 18 Junio 2006, 04:17 am

muchas gracias por los codes =).

Título: Re: convertir txt a mayuscula minuscula mayuscuala...
Publicado por: Hadess_inf en 18 Junio 2006, 15:10 pm

en el evento keypress del text:

Private Sub t_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
end sub

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: 4D1cTo en 17 Junio 2006, 03:16 am