Sonderzeichen aus einem String entfernen Mittels dieser Funktion werden Sonderzeichen aus einem übergebenen String entfernt.
Autor:   Dennis Hemken	Bewertung:     [ Jetzt bewerten ]	Views:  26.941
gadgets.hemken.org	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 26 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sonderzeichen, Sonderzeichen, Sonderzeichen...

Viele von euch kennen wahrscheinlich das Problem, dass bestimmte Schnittstellen nicht fähig sind, Sonderzeichen zu übermitteln, bzw. zu verarbeiten.

Diese Funktion entfernt alle Sonderzeichen aus einem String und kann beliebig angepasst werden, alles was man dafür braucht ist die  ASCII Tabelle und die unten stehende Funktion, um Anpassungen vorzunehmen.

Quellecode:

Function DelSpecChar(strSource As String) As String
  Dim i As Long
  Dim strTmp As String
 
  If IsNull(strSource) Then Exit Function
 
  For i = 1 To Len(strSource)
    Select Case Asc(Mid$(strSource, i, 1))
      Case 48 To 57, 65 To 90, 97 To 122
        strTmp = strTmp & Mid$(strSource, i, 1)
    End Select
  Next i
 
  DelSpecChar = strTmp
End Function

In meinem Beispiel entfernt die Funktion alle Sonderzeichen.

AnwendungsBeispiel:
Man nehme 1 Button, 2 Textboxen (Text1 und Text2), setzt beide Textboxen auf Multiline = True und schreibt nun folgenden Text in TextBox1

VBarchiv*+#_-.;.,   Hallo
du
DAAAAAA

Beispielaufruf:

Private Sub Command1_Click()
  Text2.Text = DelSpecChar(Text1.Text)
End Sub

Ergebnis in Text2:

VBarchivHalloduDAAAAAA