Text in ASCII Code

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Als Ansatz:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub machs()
    MsgBox String_To_Ascii("BeispielText")
    MsgBox mach_Dreier("BeispielText")
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

ransi

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

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

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text in ASCII Code

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread