¿Cómo dar una cadena formato titulo visualfox pro?
Quiero dar la instrucción para que en un cuadro de texto inserte un texto y en el otro me ponga en formato de titulo con mayúsculas y minúsculas, como:
"hoLa" y me ponga "Hola"
"hoLa" y me ponga "Hola"
1 Respuesta
Respuesta de junio0or
1
nuevo = ""
palabra = "hoLa"
For i = 1 to Len(palabra)
If i = 1
nuevo = nuevo + Upper(Substr(palabra,1,1))
Else
nuevo = nuevo + Lower(Substr(palabra,i,1))
EndIf
EndFor
MessageBox(nuevo)
palabra = "hoLa"
For i = 1 to Len(palabra)
If i = 1
nuevo = nuevo + Upper(Substr(palabra,1,1))
Else
nuevo = nuevo + Lower(Substr(palabra,i,1))
EndIf
EndFor
MessageBox(nuevo)
