Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: EnigmaX en Febrero 07, 2013, 12:23:56 am
-
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!
-
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
-
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
-
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!
-
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
-
no sierve, gracias...
[]'s
-
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