[VBA]String prüfen -> Sonderzeichen

[2daBeat]

Hallo,

hab folgende funktion:

Function ohneZeichen(Eingabe As String)


Dim i As Integer

Dim Tmp As String

Dim c As Integer


ohneZeichen = ""

c = Asc(Eingabe)


For i = 1 To Len(Eingabe)

Tmp = Mid$(Eingabe, i, 1)

If (c >= 48 And c <= 57) Or (c >= 65 And c <= 90) Or (c >= 97 And c <= 122) Then

ohneZeichen = ohneZeichen & Tmp

End If

Next i


End Function

ich will also also alle sonderzeichen rauslöschen von dem string welches ich an die funktion übergebe, doch leider bleiben die sonderzeichen enthalten .

Weiß jemand was ich falsch mache?

danke im vorraus

2daBeat

[-roTekuGeL-]

Dim Eingabe

Dim i

Dim Tmp

Dim c

Dim ohneZeichen


Eingabe = "!!!JKAJLHD:$&/"

ohneZeichen = ""


For i = 1 To Len(Eingabe)

Tmp = Mid(Eingabe, i, 1)

c = Asc(tmp)

If c >= 48 And c <= 57 Or c >= 65 And c <= 90 Or c >= 97 And c <= 122 Then

ohneZeichen = ohneZeichen & Tmp

End If

Next


msgbox ohneZeichen[/PHP]

war n bissl unlogisch den Asc wert vom ganzen string holen zu wollen... und dann halt noch so kleinigkeiten wie bei dem Next... da kommt dann nich noch n i hin...

[kLeiner_HobBes]

@roTekuGeL: O doch, das i kann man da hinmachen. Muß nicht sein, aber dient der Übersichtlichkeit.

[-roTekuGeL-]

@roTekuGeL: O doch, das i kann man da hinmachen. Muß nicht sein, aber dient der Übersichtlichkeit.

getestet?

in VB mag das wohl gehn, aber net in VBS... zumindest hat er mir da nen fehler gebracht und MS sagt:

For counter = start To end [Step step]

    [statements]

    [Exit For]

    [statements]

Next

[/PHP]

edit:

ah huuuuuch

VBA, nich VBS :bimei

dann sollte ichs mir wohl nochmal anschaun :floet:

[2daBeat]

hmm ok..bin noch nicht ganz so fit in sachen vb

aber leider ändert sich nichts dran..die sonderzeichen bleiben enthalten

danke für deine hilfe

[-roTekuGeL-]

hmm ok..bin noch nicht ganz so fit in sachen vb

aber leider ändert sich nichts dran..die sonderzeichen bleiben enthalten

danke für deine hilfe

war ja auch für VBS gedacht

VBA:

Function ohneZeichen(Eingabe As String)


Dim i As Integer

Dim Tmp As String

Dim c As Integer


ohneZeichen = ""


For i = 1 To Len(Eingabe)

Tmp = Mid$(Eingabe, i, 1)

c = Asc(Tmp)

If (c >= 48 And c <= 57) Or (c >= 65 And c <= 90) Or (c >= 97 And c <= 122) Then

ohneZeichen = ohneZeichen & Tmp

End If

Next i


End Function

[/PHP]

[2daBeat]

ähmm sorry ich sehe grad das ich VBA angegeben habe anstatt VBS

sry..also ich "programmier" schon mit Visual Basic 6.0...

Function ohneZeichen(Eingabe As String)


Dim i As Integer

Dim Tmp As String

Dim c As Integer


ohneZeichen = ""



For i = 1 To Len(Eingabe)

Tmp = Mid(Eingabe, i, 1)

c = Asc(Tmp)

If c >= 48 And c <= 57 Or c >= 65 And c <= 90 Or c >= 97 And c <= 122 Then

ohneZeichen = ohneZeichen & Tmp

End If

Next


End Function

tortzdem funktioniert nichts ..eingabe hat den wert : -323:323+

und dieser verändert sich auch nicht..

danke

[-roTekuGeL-]

ähmm sorry ich sehe grad das ich VBA angegeben habe anstatt VBS

lol macht ja nix

also für VBS is das hier:

Dim Eingabe

Dim i

Dim Tmp

Dim c

Dim ohneZeichen


Eingabe = "!!!JKAJLHD:$&/"

ohneZeichen = ""


For i = 1 To Len(Eingabe)

Tmp = Mid(Eingabe, i, 1)

c = Asc(tmp)

If c >= 48 And c <= 57 Or c >= 65 And c <= 90 Or c >= 97 And c <= 122 Then

ohneZeichen = ohneZeichen & Tmp

End If

Next


msgbox ohneZeichen[/PHP]

(ist getestet)

[2daBeat]

yup jetzt klappts..

vielen dank