AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de cadenas
  • Extracción de cadenas
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Otros
Procedimientos almacenados
Devuelve el código ASCII del carácter especificado. El código ASCII utilizado corresponde al estándar ANSI utilizado en Windows.
ASCIICode = Asc("A")    // Returns 65
ASCIICode = Asc("Barbier")   // Returns 66
Sintaxis
<Result> = Asc(<Character string to process>)
<Result>: Entero
Código ASCII (entre 0 y 255).
<Character string to process>: Carácter, cadena de caracteres o buffer
Carácter cuyo código ASCII debe calcularse. Si este parámetro corresponde a:
  • una cadena o buffer vacío, el <Resultado> será 0.
  • una cadena de caracteres, el <Resultado> será el código ASCII del primer carácter.
  • un buffer, el <Resultado> será el código ASCII del primer byte.
Observaciones

Extracción de cadenas

Se puede extraer una cadena con los operadores [[ y ]] para convertir un carácter en cualquier posición de la cadena.
Por ejemplo: "Asc(Str[[N]])" devuelve el valor ASCII del enésimo caracter de la cadena "Str".
Componente: wd290vm.dll
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
EXAMPLE WxUnCryptASCII
WxUnCryptASCII(SenhaCryptografada is string)

Senha is string = HexaToAscii(SenhaCryptografada)

Senha = ExtractString(Senha,3,";",FromBeginning)

RESULT Senha
BOLLER
17 04 2019
EXAMPLE WxCryptASCII
WxCryptASCII(Login is string, Senha is string, DataCadastro is int)

Login = Lower(Login)

Senha = Lower(Senha)

Resultado is Variant = Login +";"+ Senha +";"+ DataCadastro +";BOB-ESPONJA-BOLLERZITO"

Hash01 is Buffer = HashString(HA_MD5_128, Resultado)

Resultado = Hash01 + ";" + Resultado +";"+ Hash01

Resultado = AsciiToHexa(Resultado)

RESULT Resultado
BOLLER
17 04 2019
EXAMPLE HexaToAscii - Hexa To Ascii
PROCEDURE HexaToAscii(sCh is string)

sHexaString is string = Upper(sCh)

sAsciiString is string
sIntegerString is string
nSize is int = IntegerPart((Length(sHexaString)/2))
sStringToProcess is string
s is string
j is int = 1

FOR i = 1 TO nSize
sStringToProcess = Middle(sHexaString,j,2)
j = j+2
sIntegerString += [TAB] + NumToString(HexaToInt(sStringToProcess))
END

FOR EACH STRING s OF sIntegerString SEPAREE BY TAB
sAsciiString += Charact(Val(s))
END

RESULT sAsciiString
BOLLER
17 04 2019
EXAMPLE AsciiToIntegerString - Ascii To Integer String
PROCEDURE AsciiToIntegerString(sCh is string)

sIntegerString is string
nStringSize is int = Length(sCh)
sStringToProcess is string

FOR i = 1 TO nStringSize
sStringToProcess = Middle(sCh,i,1)
sIntegerString += [TAB] + Asc(sStringToProcess)
END

RESULT sIntegerString
BOLLER
17 04 2019
EXAMPLE AsciiToHexa - Ascii To Hexa
PROCEDURE AsciiToHexa(str is string)

sHexaString is string
FOR nChar=1 _TO_ Length(str)
sHexaString += NumToString(Asc(str[[nChar]]),"02x")
END

RESULT sHexaString
BOLLER
17 04 2019

Última modificación: 04/03/2024

Señalar un error o enviar una sugerencia | Ayuda local