Spanish Manejar la orientacion de un texto

Erick_Alvarez

New Member
Licensed User
Longtime User
Hola, quisiera saber si alguien me puede ayudar a cambiar el texto: "Hola Mundo" por "opunɯ ɐloɥ" en la app.
o como remplazar ciertos caracteres de un texto, ejemplo: "Hola mundo" (y que la funcion cambie la "o" por un "0" (cero)), que el resultado quede "H0la mund0"

Gracias.
 

Descartex

Well-Known Member
Licensed User
Longtime User

socialnetis

Active Member
Licensed User
Longtime User
Para reemplazar caracteres, podrias usar el metodo "replace" de los string.

Ej:
B4X:
Dim S as String
S = "Hola Mundo"
S = S.Replace("o","0")    'S ahora vale "H0la Mund0"

Ahora, para lograr lo primero, primero deberias crear una funcion "reverse", que de vuelta el texto de izquierda a derecha. Una implementacion podria ser la siguiente:
B4X:
Sub Reverse (S as String) As String
    Dim reverse As String
    reverse = ""
    For i = S.Length - 1 To 0 Step -1
        reverse = reverse & S.CharAt(i)
    Next
    Return reverse
End Sub

Y finalmente para dar vuelta las letras de arriba para abajo, deberias hacer un mapeo de cada letra, por ej:

B4X:
Sub ReverseUpDown (S as String)
    Dim Reverse as String
    Reverse = S
    Reverse = Reverse.Replace("a","ɐ")
    Reverse = Reverse.Replace("b","p")
    Reverse = Reverse.Replace("d","q")
    '... cambiar cada letra por la equivalente dada vuelta
    Return Reverse
End Sub
 
Last edited:
Top