Datenveredelung TRUNKATION

 ASCII-Tabelle

Unter Trunkation versteht man das Abschneiden eines Textes

Folgende VBA Funktion prüft einen Text auf das erste Aufkommen von
Sonderzeichen und gibt einen Textteil zurück:



Public Function Trunkation(strEingabe As String)

Dim i As Integer
Dim intASCII As Integer
Dim strRueckgabe As String

' " " = 32, 45 = "-" , 95 = "_", 59 = ";", 44 = ","

i = 1


If Len(strEingabe) <> 0 Then
Do While i <= Len(strEingabe)
    intASCII = Asc(Mid(strEingabe, i, 1))
    Debug.Print intASCII
    If intASCII = 32 Or intASCII = 44 Or intASCII = 45 Or _
       intASCII = 59 Or intASCII = 95 Then
   
   
        strRueckgabe = Left(strEingabe, i - 1)
        Exit Do
      
    End If
    i = i + 1

Loop

End If

Trunkation = strRueckgabe

End Function