Office: (Office 2016) Sonderzeichen aus String filtern

Hallo,

hat vielleicht jemand eine Idee wie ich mit einer Abfrage eine Spalte nach Buchstaben und Zahlen filtern kann ??

Bis her mache ich das mit der Replace Funktion. Aber da muss ich jedes Sonderzeichen einzel eintragen also so ungefähr:

Replace(((Spalte, '!', ''),'?',''),......)

Vielleicht geht das einfacher

:)

 

Du kannst nach den ASCII-Bereichen auswerten.

 

Hallo Maxel,

und wie müsste ich das machen ?

zur zeit mache ich das nur so

Dim sqlText As String
sqlText = "UPDATE TabellenName SET Spalte = Replace(Replace(Replace(Replace(Replace( Replace( Spalte, ' ', '' ), '-',''),'.',''),':',''),'/',''),....usw)"
'CurrentDb.Execute sqlText

 

Hallo,
ich würde hier die Replace-Methode der Regulären Ausdrücke empfehlen. Such-Pattern: Code:

(Liste beliebig erweiterbar). Ersatz-Pattern: "" Die Abkürzung Code:

geht prinzipiell auch, löscht aber auch die Leerzeichen.
Gruß, Thomas

 

Hallo Thomas und Danke,

ich weiß nicht wie ich dein Code wo einsetzen soll, bin totaler neuling in VBA.
Im prinzip möchte ich nur buchstaben und zaheln haben, also ich möchte iene spalte einer tabelle von allem säubern was kein buchstabe oder zahl ist.

 

Hallo,
kopiere diese Funktion in ein Modul, setze vorher einen Verweis auf "Microsoft VBScript Regular Expressions 5.5":
Code:

In Deiner Abfrage definierst Du ein neues Feld so:
Code:

Dort sollte nun Dein Text ohne Sonderzeichen ausgegeben werden. Diese Replace-Funktion sucht nach Zeichen, die keine Buchstaben, Zahlen oder Leerzeichen sind und ersetzt sie durch einen Leerschlag.
Gruß Thomas

 

Danke für die Mühe Thomas.

also den verweis habe ich gesetzt.
Hab ich das richtig verstanden , dein Code kriegt ein String und eliminiert aus diesem string alles aus buchstabe und zahl und gibt wieder ein string zurück ?

wie verwende ich nun diese funktion ? ich dachte so aber da kriege ich ein syntaxtfehler.

Dim sqlText As String

sqlText = "UPDATE TabellenName SET MAC1 = " &
fReplace(MAC1)

CurrentDb.Execute sqlText

 

Mir ist unklar woher diese funktion nun jedesmal den Eintrag von der spalte bekommen soll. welches er verändert

 

Hallo,
zunächst eine Korrektur des Codes, das Suchpattern muß lauten:
Code:

das wichtige Backslash-Zeichen war durch die Forums-Software verschluckt worden.
Du schriebst in Deinem Eröffnungspost, dass Du eine Abfrage verwendest, um Sonderzeichen aus einem Text zu filtern. Da war von einer Aktualisierung ja nicht die Rede. Du kannst die fReplace-Funktion im SQL-Statement genauso verwenden wie die normale Replace-Funktion in #3, also so:
Code:

Bitte vorher das Pattern korrigieren!
Ehe Du das gleich alles in Deiner Tabelle änderst, verwende lieber zur Kontrolle vorher eine normale Abfrage. Dabei wird Dein Originaltext nicht verändert und Du kannst sehen, ob alles Deinen Wünschen entsprechend geändert wurde.
Gruß Thomas

 

\@blabuduwnmdjdsjajsus

Hoffentlich gibt es da nicht noch mehr MACs (2 - n). Denn dann wäre schon das
Datenmodell falsch.
gruss ekkehard

 

Also ich habe das Pattern korrigiert, aber ich bekomme die meldung

Undefinierte Funktion 'fReplace' in Ausdruck

verweiss ist gesetzt und die funktion ist in einem modul welches ich oben mit einfügen und dann modul ausgewählt habe

 

Hallo,
der Name des Moduls und der Name der Funktion dürfen nicht gleich sein.

 

Hallo,
kannst Du eine abgespeckte DB-Version hochladen (Zip-Format!)?
Das wäre für mich hilfreich.
Gruß Thomas

 

also die funktion wird jetzt erkannt, nur sagt er in dem Code an der stelle

With oRegEx
->>> .Global = False
.Pattern = cTestPattern
Set oMatch = .Replace(vText, cTestPattern, cReplaceString)
End With

das ein objekt Fehlt.

ich glaub ich gebe es auf und mache das mit REPLACE() für jeden sonderzeichen *Smilie))

 

Komisch jetzt kam die meldung mit dem OBJEKT FEHLT nicht.
ich test das jetzt mal ob es klappt.