[HELP] $chr to string

[EnigmaX]

hola,

Necesito una función que convierte $Chr para String
y String para $Chr

teste => Chr$(116) + Chr$(101) + Chr$(115) + Chr$(116) + Chr$(101)

Chr$(116) + Chr$(101) + Chr$(115) + Chr$(116) + Chr$(101) => teste

Saludos!

[k_arlytos]

deberias de guardar en un arreglo las letras

Var(0)="t"
Var(1)="e"
Var(2)="s"
Var(3)="t"
Var(4)="e"

luego converterirlo cada uno con el Asc(Var(0)) con un bucle

Var(0)="116"
Var(1)="101"
Var(2)="115"
Var(3)="116"
Var(4)="101"

luego converterirlo cada uno con el chr(Var(0)) con un bucle

[EnigmaX]

Gracias amigo, pero yo sólo quieren copiar y pegar múltiples $Chr y mostrar el resultado en strings.

algo como:

Text2.Text = convert (Text1.Text)

convert es la función de hacer la conversión

[]'s

[EnigmaX]

hola,

PS: Esta función convierte String para $Chr

Lo siento, pero no entiendo cómo hacerlo a la inversa. $Chr para string

Private Function ChrCode(txt As String) As String
Dim x
Dim outstring As String
For x = 1 To Len(txt$)
outstring$ = outstring$ + "Chr$(" + CStr(Asc(Mid(txt$, x, 1))) + ") + "
Next x
outstring$ = Trim(outstring$)
outstring$ = Mid(outstring$, 1, Len(outstring$) - 2)
ChrCode = outstring$
End Function


saludos!

[Waldo]

Hola, haber si te sirve algo asi, primero guardo el string en un array, cada indice del array es el valor asc del caracter.
Luego el caso inverso, se pasa el array a un string

    Dim arChr() As Byte
    Dim sText As String
   
    sText = "teste"
   
    'guardar el string en un array con los valores del chr asc
    arChr = StrConv(sText, vbFromUnicode)
   
    Debug.Print arChr(0) & "," & arChr(1) & "," & arChr(2) & "," & arChr(3) & "," & arChr(4)
   
    'ahora volver a armar el string
    sText = StrConv(arChr, vbUnicode)
   
    Debug.Print sText

[EnigmaX]

no sierve, gracias...

[]'s

[EnigmaX]

Hola, haber si te sirve algo asi, primero guardo el string en un array, cada indice del array es el valor asc del caracter.
Luego el caso inverso, se pasa el array a un string

    Dim arChr() As Byte
    Dim sText As String
   
    sText = "teste"
   
    'guardar el string en un array con los valores del chr asc
    arChr = StrConv(sText, vbFromUnicode)
   
    Debug.Print arChr(0) & "," & arChr(1) & "," & arChr(2) & "," & arChr(3) & "," & arChr(4)
   
    'ahora volver a armar el string
    sText = StrConv(arChr, vbUnicode)
   
    Debug.Print sText

si un textbox como lo haría?

sText = Text1.Text

[]'s