Funktion: Sonderzeichen Entfernen

[asiat]

Hallo,

ich habe hier eine FUnktion die Sonderzeichen entfernt die ich beim verlassen des Feldes benutze.

Code (vb) [Auswählen] Erweitern

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 ?

[bahasu]

Moin,

vielleicht hilft das:

Code (vb) [Auswählen] Erweitern

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

[asiat]

Danke dir,
hat mir geholfen  

Bemerkung am Rande: Feldnamen mit Lerzeichen sind nicht optimal.

Die habe ich benutzt um mein problem einfacher zu erklären