Hallo,
ich habe hier eine FUnktion die Sonderzeichen entfernt die ich beim verlassen des Feldes benutze.
Public Function TextParsen(text As String) As String
Dim i As Integer
For i = 1 To Len(text)
Select Case Asc(Mid(text, i, 1))
'Sonderzeichen entfernen auser
' gross und klein buchstaben, "-" "ae" "oe" " ue" "Leerzeichen"
Case 65 To 90, 97 To 122, 45, 223, 220, 252, 214, 246, 196, 228, 32
TextParsen = TextParsen & Mid(text, i, 1)
End Select
Next i
End Function
die Funktion brauche ich für mehrere Unterschiedlichen Felder, in einnigen Feldern sollen aber einige Zeichen zugelassen werden die aber in anderen nicht zugelassen sind.
z.B:
Feld 1 soll "Case 65 To 90, 97 To 122, 45, 223, 220, 252, 214, 246, 196, 228, 32" zugelassen werden
Feld 2 soll aber nur "Case 65 To 90" zugelassen werden
weiß einer wie das funktionieren könnte ?
Moin,
vielleicht hilft das:
Public Function TextParsen(text As String, MeinFeld As String) As String
Dim i As Integer
For i = 1 To Len(text)
Select Case MeinFeld
Case "Feld 1"
Select Case Asc(Mid(text, i, 1))
Case 65 To 90, 97 To 122, 45, 223, 220, 252, 214, 246, 196, 228, 32
TextParsen = TextParsen & Mid(text, i, 1)
End Select
Case "Feld 2"
Select Case Asc(Mid(text, i, 1))
Case 65 To 90
TextParsen = TextParsen & Mid(text, i, 1)
End Select
End Select
Next i
End Function
Als zusätzlichen Parameter übergibst Du den Feldnamen, der dann in Deiner Schleife ausgewertet wird.
Bemerkung am Rande: Feldnamen mit Lerzeichen sind nicht optimal.
Harald
Danke dir,
hat mir geholfen :D
ZitatBemerkung am Rande: Feldnamen mit Lerzeichen sind nicht optimal.
Die habe ich benutzt um mein problem einfacher zu erklären