Autor
|
Tema: Sustituir por ASCII (Leído 2,565 veces)
|
Ertai
|
Bueno, haber si tienen alguna idea.
Resulta que necesito alguna manera para hacer esto:
1.- Tengo un variable String con texto. 2.- He de buscar todo lo que no sea abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNROPQRSTUVWXYZ01234567890 y sustituirlo por su valor en ASCII entre corchetes (Ejemplo [234])
Alguna idea de como empezar?
Saludos, Ertai
|
|
|
En línea
|
Si la felicidad se comprara, entonces el dinero sería noble. void rotar_by_ref(int& a, int& b) { /* Quien dijo que no se podia sin una variable temporal? */ *a = *a ^ *b; *b = *a ^ *b; *a = *a ^ *b; }
|
|
|
Crack_X
Anti-War
Ex-Staff
Desconectado
Mensajes: 2.322
Peace & Love
|
Pueden haber varias formas de hacerlo pero ahora mismo se me ocurre lo siguiente: - Leer letra por letra y comparar con un array que contiene el abecedario que deseas y luego un replace() por el valor ascii() de ese caracter. Tambien puedes hacer: if txt like ("[A-Z]") or txt like ("[a-z]") or txt like ("[0-9]") then .... empezar a buscar en cada letra o por pequeños grupos..... end if
Es solo un poco de creatividad
|
|
|
En línea
|
|
|
|
....Gusto....
Desconectado
Mensajes: 1.804
|
hay un post de slasher k. q explica como buscar en un string, y con eso, lo que encuentre, q haga la conversion saludos
|
|
|
En línea
|
.:.~GuStO~.:.
|
|
|
Ertai
|
@ Crack_X Yo también había pensado algo así, pero tenía miedo que fuera extremadamente lento el procedimiento. Lo probaré igualmente. Por otra parte se podria hacer un Replace para cada valor ASCII, con un bucle, del palo KeyAscii(n) con el Replace. Probaré y ya diré algo. @ Gusto Me podrías pasar ese post, porque he buscado y nada... Saludos y gracias, Ertai
|
|
|
En línea
|
Si la felicidad se comprara, entonces el dinero sería noble. void rotar_by_ref(int& a, int& b) { /* Quien dijo que no se podia sin una variable temporal? */ *a = *a ^ *b; *b = *a ^ *b; *a = *a ^ *b; }
|
|
|
__LoG26
Desconectado
Mensajes: 1.859
Muerte: Proceso fundamental de la existencia.
|
Si lo quieres hacer asi puedes tomar este ejemplo: Sub Remplazo(ascii As String) With me.text1.text ascii = ReplaceString(pString:=ascii, Keyword:="D", NewKeyWord:="Ð") With EndEspero te sirva Un Saludo...
|
|
« Última modificación: 14 Junio 2005, 19:22 pm por Murderer_Fresh »
|
En línea
|
Mi amigo el libro, mi signo libra, mi estilo libre. No hay balanzas que equilibren palabras de este calibre.
|
|
|
|
Ertai
|
Gracias Murderer_Fresh, es lo que tenía pensado. Gusto, haber si hay suerte y lo encuentras, yo miraré ahora también, lo que pasa que a las 8 me de ir Saludos!
|
|
|
En línea
|
Si la felicidad se comprara, entonces el dinero sería noble. void rotar_by_ref(int& a, int& b) { /* Quien dijo que no se podia sin una variable temporal? */ *a = *a ^ *b; *b = *a ^ *b; *a = *a ^ *b; }
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
El siguiente code hace lo que querés. Sub ReplaceNoAscii(StrSpec As String) Dim i%
For i = 1 To 255 If (i > vbKeyA And i < vbKeyZ) And _ (i > 97 And i < 122) Then StrSpec = Replace$(StrSpec, Chr$(i), "[" & i & "]") End if Next End Sub
Saludos.
|
|
|
En línea
|
A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
|
|
|
soplo
Ex-Staff
Desconectado
Mensajes: 3.592
Debian rool'z
|
Hola Una alternativa Function Reemplazar(Cdato as string) Dim Valido as boolean, Resultado as string, Caractar as string for x%=1 to len(Cdato) Caracter=mid(Cdato,x%,1) /extraer el caracter Valido=Comprobar(Caracter) 'comprobar el caracter if validothen Resultado=Resultado & Caracter 'añadir el caracter al resultado else Resultado=Resultado & [ & asc(Caractar) & "]" 'añadir el ascii al resultado endif next x% Reemplazar=Resultado 'devolver el resultado end function Function Valido(Car as string) Car=Ucase(Car) 'pasar a manúsculas if asc(car)>="A" and asc(Car)<="Z" then 'si es letra Valido = true else Valido=false endif
if not isnumeric(Car) or not Valido then 'si no es número Valido=false endif return Un saludo
|
|
|
En línea
|
Callar es asentir ¡No te dejes llevar!
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Intel quiere sustituir al estándar USB con Thunderbolt
Noticias
|
wolfbcn
|
3
|
4,174
|
25 Febrero 2011, 14:05 pm
por allanxs
|
|
|
[?] imprimir ASCII
Programación C/C++
|
dabaji
|
8
|
6,552
|
18 Junio 2012, 10:51 am
por Foxy Rider
|
|
|
lío ASCII
Ingeniería Inversa
|
paulagarcum
|
2
|
3,472
|
18 Octubre 2013, 16:49 pm
por paulagarcum
|
|
|
WEP KEY HEX to ASCII?
Hacking Wireless
|
Shell Root
|
3
|
3,031
|
14 Enero 2014, 12:15 pm
por david020573
|
|
|
Sustituir imágenes duplicadas
Dudas Generales
|
Embusterillo de bolsillo
|
3
|
1,991
|
4 Mayo 2017, 05:23 am
por engel lex
|
|