Text in ASCII Code

amintire · 1970-01-01T00:00:00+00:00

Hallo alle zusammen, habe eine Excel Mappe vorbereitet und benötige dringend eure Hilfe. UserForm wurde vorbereitet und beschrieben, manche Buttons habe ich selber schon gemacht Texte löschen in allen TextBoxen. bei den anderen Funktionen weiß ich im Code nicht weiter. Das ganze soll als VBA Code geschrieben werden. https://www.herber.de/bbs/user/74502.xlsm So wie in den Textfeldern vorbereitet müsste das Ergebnis aussehen wenn auf die Buttons geklickt wird. Der Beispieltext wird in ASCII umgewandelt, dieser ASCII Text wird in 3er Gruppen gebildet, das ganze muss dann auch wieder umgewandelt werden sodass zum Schluss wieder der Beispieltext erscheint. Lieben Gruß Amina

Hallo Ransi,
funktioniert wunderbar,
wie kann ich aber die zwei folgenden Code umkehren ? Also von mach dreier zurück auf ACSII Text und von dem Text auf dem Beispieltext ?

Public Function String_To_Ascii(strText As String)
Dim I As Integer
Dim B() As Byte
B = StrConv(strText, vbFromUnicode)
Redim out(UBound(B))
For I = LBound(B) To UBound(B)
out(I) = B(I)
Next
String_To_Ascii = Join(out, "")
End Function

Public Function mach_Dreier(strText As String)
Dim I As Integer
Dim Z As Long
Dim B() As Byte
Dim counter As Integer
B = StrConv(strText, vbFromUnicode)
Redim out(UBound(B) + Len(strText) / 3)
For I = LBound(B) To UBound(B)
If counter = 3 Then
out(Z) = "#"
counter = 1
Z = Z + 1
out(Z) = B(I)
Z = Z + 1
Else:
counter = counter + 1
out(Z) = B(I)
Z = Z + 1
End If
Next
mach_Dreier = Join(out, "")
End Function

Gruß Amina

HAllo
Hm..

Option Explicit

Public Sub machs()
    Dim s As String
    MsgBox String_To_Ascii("BeispielText")
    s = mach_Dreier("BeispielText")
    MsgBox s
    MsgBox mach_dreier_zurück(s)
End Sub

Public Function String_To_Ascii(strText As String)
    Dim I As Integer
    Dim B() As Byte
    B = StrConv(strText, vbFromUnicode)
    Redim out(UBound(B))
    For I = LBound(B) To UBound(B)
        out(I) = B(I)
    Next
    String_To_Ascii = Join(out, "")
End Function

Public Function mach_Dreier(strText As String)
    Dim I As Integer
    Dim Z As Long
    Dim B() As Byte
    Dim counter As Integer
    B = StrConv(strText, vbFromUnicode)
    Redim out(UBound(B) + Len(strText) / 3)
    For I = LBound(B) To UBound(B)
        If counter = 3 Then
            out(Z) = "#"
            counter = 1
            Z = Z + 1
            out(Z) = B(I)
            Z = Z + 1
            Else:
            counter = counter + 1
            out(Z) = B(I)
            Z = Z + 1
        End If
    Next
    mach_Dreier = Join(out, "")
End Function

Public Function mach_dreier_zurück(strText As String)
    mach_dreier_zurück = Replace(strText, "#", "")
End Function

Aus dem Ascii wieder einen Text machen kann ich nicht.
Wie soll man das unterscheiden ?
6510111
KAnn sein :
6
5
101
11
oder
65
10
11
1
oder, oder, oder.....
ransi

Forumthread: Text in ASCII Code

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial