Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB6 | 03.09.10 |
Sonderzeichen aus einem String entfernen Mittels dieser Funktion werden Sonderzeichen aus einem übergebenen String entfernt. | ||
Autor: Dennis Hemken | Bewertung: | Views: 25.615 |
gadgets.hemken.org | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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