"Que es" Funciones

también les dejo las funciones "Es" que acabo de traducir!
Devuelve 1 si la cadena es tal cosa o contiene tales caracteres, Si no devuelve 0.
También esta la función "Posición" que recupera la posición de una letra en una palabra.
Y la función invertir, que invierte la palabra.
Loco, espero aportes suyos! Hay que darle con todo a este lenguaje!
Saludos!
Devuelve 1 si la cadena es tal cosa o contiene tales caracteres, Si no devuelve 0.
También esta la función "Posición" que recupera la posición de una letra en una palabra.
Y la función invertir, que invierte la palabra.
Loco, espero aportes suyos! Hay que darle con todo a este lenguaje!
- Código: Seleccionar todo
'Importar "Cadena.prp" Comentado por si quieren pegarlo directamente en "Cadena" y precompilarlo.
Proc EsSimbolo(PalabraA:Cadena):Booleano ' VERIFICAR
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
a = ParteCad(PalabraA,i,1)
Si Posicion(Nums,a) > 0 Entonces
Valor = Falso
Salir Contar
FinSi
Seguir
Devolver Valor
FinProc
Proc EsDecimal(PalabraA:Cadena):Booleano ' VERIFICAR
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "123456789.,@"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
a = ParteCad(PalabraA,i,1)
Si Posicion(Nums,a) = 0 Entonces
Valor = Falso
Salir Contar
FinSi
Seguir
Devolver Valor
FinProc
Proc EsAlfanumerico(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
a = ParteCad(PalabraA,i,1)
Si Posicion(Nums,a) = 0 Entonces
Valor = Falso
Salir Contar
FinSi
Seguir
Devolver Valor
FinProc
Proc EsMinusculas(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyz"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
a = ParteCad(PalabraA,i,1)
Si Posicion(Nums,a) = 0 Entonces
Valor = Falso
Salir Contar
FinSi
Seguir
Devolver Valor
FinProc
Proc EsMayusculas(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
a = ParteCad(PalabraA,i,1)
Si Posicion(Nums,a) = 0 Entonces
Valor = Falso
Salir Contar
FinSi
Seguir
Devolver Valor
FinProc
Proc EsCadena(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
a = ParteCad(PalabraA,i,1)
Si Posicion(Nums,a) = 0 Entonces
Valor = Falso
Salir Contar
FinSi
Seguir
Devolver Valor
FinProc
Proc EsNumero(NumeroA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "0123456789"
Valor = Verd
Contar i = 1 a CadLong(NumeroA)
a = ParteCad(NumeroA,i,1)
Si Posicion(Nums,a) = 0 Entonces
Valor = Falso
Salir Contar
FinSi
Seguir
Devolver Valor
FinProc
Proc Posicion(CadenaA,CaracterA:Cadena):Booleano
Var A:Entero,B:Cadena,Final:Booleano
Final = 0
Contar A = 1 a CadLong(CadenaA)
b = ParteCad(CadenaA,A,1)
Si b = CaracterA Entonces
Final = A
Salir Contar
FiNSi
Seguir
Devolver Final
FinProc
Proc Invertir(Cadenilla:Cadena):Cadena
Var Longitudes,EsteNumero:Entero,TextoDevuelto,Letrita:Cadena
Contar EsteNumero = CadLong(Cadenilla) a 1 Dec 1
Letrita = ParteCad(Cadenilla,EsteNumero,1)
TextoDevuelto = TextoDevuelto + Letrita
Seguir
Devolver TextoDevuelto
FinProc
Saludos!