AW: nicht gültige Zeichen aus String filtern
31.12.2010 15:35:22
Franc
Würde es so versuchen. Nicht gültige zeichen Filtern ist bissi schwerer, wenn man nur eine Liste der erlaubten zeichen hat. ^^
Die Zuweisung der Zeichen kann man natürlich auch variabel zuweisen. Mußt nur sagen wo du die Original Zeichenketten herbekommst.
Bzw muß man auch noch festlegen wo das dann eingefügt werden soll. ^^
Das LCase steht dafür das es nicht auf Groß/Kleinschreibung ankommt.
Sprich hat der Nutzer "h" geschrieben und in der Zeichenliste würde "H" stehen, dann wäre das nicht das gleiche. Mit LCase vergleiche ich beides als wenn es klein geschrieben wäre.
Sub erlaubt()
Dim gn_erlaubte_Zeichen As String, gn_string_Original As String, gn_string_Neu As String
Dim i As Integer, j As Integer
gn_erlaubte_Zeichen = "1234567890HIN"
gn_string_Original = "abc123HIN"
For i = 1 To Len(gn_string_Original)
For j = 1 To Len(gn_erlaubte_Zeichen)
If LCase(Mid(gn_string_Original, i, 1)) = LCase(Mid(gn_erlaubte_Zeichen, j, 1)) Then
gn_string_Neu = gn_string_Neu & Mid(gn_string_Original, i, 1)
Exit For
End If
Next j
Next i
MsgBox gn_string_Neu
End Sub