Visual Basic Foro

Hola,

Esta función para convertir STRING a ASCII

Cómo funcionaría hacer lo contrario a ASCII a STRING


Gracias!!!


FORM + EDIT + BUTTON

Private Sub Command1_Click()
   
    Text1.Text = ChrCode(Text1.Text)
   
    Clipboard.Clear
   
    Clipboard.SetText (Text1.Text)

End Sub

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

[]'s

EnigmaX,

Sí no encuentras a alguien, con una "Source"... te recomiendo, que te pongas a buscar en Internet...

Un saludo,
Hugo

hace alrededor de 10 días lo busco ...

Disculpa el offtopic y que me meta sin aportar nada ¿con que programa hiciste ese gif?

Muchas gracias

He descargado esta imagen listo.

Lo siento por no responder gasafonso y LeandroA, ya que estaba sin internet. si raul338 tienes razón.

He utilizado este programa que funcionaba muy bien, pero ya ha dejado de funcionar a los pocos días.

ver la imagen...



¿Alguien tiene alguna fuente o algo que funciona bien?

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

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,

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!

Lo siento por el retraso, pero no podía resolver el siguiente problema.

Pero me gustaria de saber como o kon que compilaram la dll "Unclose.dll" porke kuando la compilo como esta el proyecto, el programa de pruebas se puede cerrar.. Ha añadido la referencia a inject.tlb, pero no funciona.

PS: La dll "unclose.dll" que viene originalmente compilado en el proyecto funciona correctamente. Y no deje que el programa de prueba cerrar.

Cuando compile el dll obtiene un tamaño de 20kb y la dll "unclose.dll" que viene originalmente compilado en el proyecto tiene 24kb.

Qué hacer?

[SRC Unclose by Cobein]

http://www.sendspace.com/file/nc4b2u

Saludos!