Supportnet / Forum / Datenbanken

Hi Leute, habe ein Textfeld, daß mit Telefonnummern gefüllt ist. Will dieses zum vergleichen mit einer anderen Datenbank von Sonderzeichen wie ()- usw befreien. Kennt jemand einen Befehl der das für mich machen kann??? (Befehl sollte ja nicht Azubi heißen). Zum Schluß sollte die nur die Nummer kpl zustammengeschreiben da sthen. Danke für Eure Hilfe!

Hallo, einen einzelnen Befehl gibt es dafür nicht. Aber man kann sich mit folgender Funktion behelfen:

Function NummerOhneSonderzeichen(NummerMitSonderzeichen) As String
    Dim intIndex As Integer
    Dim strNeueNummer As String

    '-- zwischenvariable leeren
    strNeueNummer = ""
    For intIndex = 1 To Len(NummerMitSonderzeichen)
        '-- ascci-wert des zeichens prüfen
        Select Case Asc(Mid$(NummerMitSonderzeichen, intIndex, 1))
            '-- numerisch
            Case 48 To 57
                '-- zeichen uebernehmen
                strNeueNummer = strNeueNummer & Mid$(NummerMitSonderzeichen, intIndex, 1)
            Case Else
                '-- nichts tun oder evtl. Sonderzeichen durch Blank ersetzen, dann strNeueNummer = strNeueNummer & Chr(32)
        End Select
    Next intIndex

    NummerOhneSonderzeichen = strNeueNummer
End Function

Aufruf: nummer = NummerOhneSonderzeichen("02355-123456")

Gruss
Mick

danke das werde ich gleich mal testen!

• mauszeiger verschwindet in textfeld
• Probleme mit der Anwendung vom Textfeld in Word
• visible mit MouseMove FRAGE
• klich auf textfeld E-Mail verschicken
• Excel-Textfeld löschen