PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 2024
→
caracteres especiales
caracteres especiales
Started by PEDROMANUEL / pedro, Nov., 14 2018 3:29 AM - 2 replies
Connect yourself…
PEDROMANUEL / pedro
#1
Registered member
26 messages
Posted on November, 14 2018 - 3:29 AM
Alguien ya tiene una función para sacar los caracteres especial de una palabra por favor una ayuda
Report
0
0
Rubén Sánchez Peña
#2
Registered member
797 messages
Popularité : +40 (42 votes)
Posted on November, 15 2018 - 3:30 PM
Hola, ¿puedes poner un ejemplo del tipo de texto que debes tratar y definirnos esos caracteres especiales?
Rubén
Report
0
0
F.Ram
#3
Posted on December, 09 2018 - 7:56 AM
Aqui pongo una funcion para extraer una serie de caracteres
PROCEDURE utFiltra(sx is string,sCharsXP9N is string="P") // P->Caracteres Printables
sRet,sX1 is string
sCar is string
sLista is string="01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
nlj,k is 8-byte int
sX1=""
SWITCH sCharsXP9N
CASE "X"
CASE "x"
sLista+=Lower(sLista)
CASE "9","N"
sLista="0123456789"
CASE "P"
sLista=""
FOR k=32 TO 255
sLista+=Charact(k)
END
OTHER CASE
sLista=sCharsXP9N
END
nlj=Length(sx)
FOR k=1 TO nlj
sCar=sx[[k]]
IF Contains(sLista,sCar) THEN
sRet+=sCar
END
END
RESULT sRet
Report
0
0
→ Go back to WINDEV 2024
WINDEV 2024
WEBDEV 2024
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text