Office: (Office 2016) Sonderzeichen aus String filtern

Hallo,
nicht so schnell aufgeben, Du bringst mich um die Chance, meine Fehler zu erkennen und zu korrigieren. In dem Modul fehlt tatsächlich die Deklaration des oRegex-Objektes. Kopiere dies direkt unter den Kopf des Moduls:
Code:

Dann sollte es aber klappen. Dann brauchst Du übrigens den Verweis nicht (Late Binding).
Gruß Thomas

 

Hallo Thomas,

also so sieht das Modul jetzt aus.

Option Compare Database

Public Property Get oRegEx() As Object

If (pRegEx Is Nothing) Then
Set pRegEx = CreateObject("Vbscript.Regexp")
End If
Set oRegEx = pRegEx

End Property

Public Function fReplace(ByVal vText As Variant) As Variant

Dim cTestPattern As String
cTestPattern = "[^w0-9 ]*"
Dim cReplaceString As String
cReplaceString = ""

Dim oMatch As Object

If Len("" & vText) = 0 Then
fReplace = Null
Else
With oRegEx
.Global = False
.Pattern = cTestPattern
Set oMatch = .Replace(vText, cTestPattern, cReplaceString)
End With
If oMatch.Count > 0 Then
fReplace = CStr(oMatch(0))
Else
fReplace = Null
End If
End If

Set oMatch = Nothing

End Function

aber beim debugging bekomme ich an der stelle, die meldung OBJEKT ERFORDERLICH

Public Property Get oRegEx() As Object

If (pRegEx Is Nothing) Then

 

Hallo,
sorry, ist schon was länger her, dass ich mich damit befasst habe.
In den Deklarationsbereich, also unter das "Option Compare Database" des Moduls kopiere bitte noch "Option Explicit" und dann:
Code:

Tut mir leid, dass das so kleckerweise kommt. Das sollte es dann aber gewesen sein.
Gruß Thomas

 

Hallo,

grundsätzlich stellt sich doch erstmal die Frage, wie solche Sonderzeichen in deine Tabelle kommen. Möglicherweise sind das auch Codepage-Einstellungen, welche nicht übereinstimmen. Wenn das geklärt ist, könnte man dann auch eine entsprechende Strategie entwicklen, wie bereits vorhandene Strings konvertiert werden könnten und zukünftig so ein Problem von vornherein vermieden wird.

Vielleicht habe ich das Thema auch falsch verstanden, weil der Titel " Sonderzeichen aus String filtern", also filtern im Sinne von ausfiltern, dauerhaftes Ersetzen (Aktionsabfrage) und "hat vielleicht jemand eine Idee wie ich mit einer Abfrage eine Spalte nach Buchstaben und Zahlen filtern kann ??", was einer Auswahlabfrage mit einer Where-Klausel entspricht, sich ein wenig widersprechen?

Ulrich

 

Ach ich bin schon sehr dankbar das du mir hilfst.

also beim debugging bekomme ich nun an der stelle

Set oMatch = .Replace(vText, cTestPattern, cReplaceString)

die Fehlermedlung
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft

 

Hallo Ullrich,

also wie die da reinkommen das haben irgendwelche nach lust und laune eingetragen einige haben die mac adresse 12 23 ... gemacht und einige mit "-" usw und ich wollte nun die tabelle in eine andere tabelle übertragen wo ich eine eingabeformat habe, also künftig nicht mehr Falsche einträge entstehen können.

nun wollte ich beim übertragen der daten erstmal alles wegfilter was mich stört und dann wenn ich nur 12 zeiche habe, sie dan rüber transferieren. an sich klappt das mit replace() ich wollte nur etwas eleganteres haben, und natürlich dabei etwas dazu lernen.

 

Hallo,

Beim Anlagen des Eingabeformats ist zu beachten, ob die Trenn/Füllzeichen (-) mit im Tabellenfeld gespeichert werden oder nicht. Das lässt sich beim Eingabeformat definieren.
Wenn die zulässigen Sonderzeichen mit gespeichert werden, dürfen diese vor dem Importieren nicht mit Replace entfernt werden.
Wenn diese Zeichen nicht in der Tabelle gespeichert werden, müssen diese entfernt werden.

 

Hallo,
neuer Versuch. Verwende diese Funktion anstelle der obengenannten:
Code:

Quelle:
Reguläre Ausdrücke - Das VBA-Tutorial
Habe ich gerade getestet, läuft bei mir.
Gruß Thomas

 

Hallo,

ok, aber wenn das MAC Adressen sein sollten, können eh nur Hexadezimalzahlen vorkommen. Das sollte sich leicht mit RegEx extrahieren lassen. VBA.Replace wäre dafür dann der falsche Ansatz, weil viel zu aufwendig.

Ulrich

 

WOWWW jetzt funktioniert es DANKE dir sehr.
ich guck mir den code jetzt mal genau an und versuche es zu verstehen.
tausend dank

 

Guten Morgen Thomas,

also anstatt "[^w0-9 ]*" benutze ich "[^a-zA-Z0-9]" weil das sonst die Unterstriche nicht weggefiltert hat.

kannst du mir kurz ein Feedback geben, ob ich es richtig verstanden habe.

also mit der Zeile
"oRegEx.Global = True"
suchst du nach allen Vorkommen in dem String und nicht nur nach dem ersten was er findet.

"oRegEx.Pattern = cMuster"
Hier bekommt das RedEx das suchmuster, also nach was er filtern soll

"Set Fundstellen = oRegEx.Execute(myString)"
Und hier bekommt die variable Fundstellen die gefilterten stellen, also die Sonderzeichen in dem Fall,
Mich verwirrt das hier nur, wieso diese Zeile notwendig ist, da die Variable "Fundstellen" nicht weiter benutzt wird.

"fReplace = oRegEx.Replace(myString, cErsatz)"
Zum schluss werden die gefundenen stellen ersetzt, also entfernt in dem Fall

 

Hallo,
Du hast in allem Recht. Die Deklaration von "Fundstellen" und die Zeile "Set Fundstellen = oRegEx.Execute(myString)" kann man auskommentieren und die Funktion läuft trotzdem korrekt. Das war mir gestern auch durch den Kopf gegangen, hatte aber keine Zeit, dem nachzugehen. Leider kann ich mich immer nur sporadisch mit solchen Problemen befassen und bin manchmal selbst zu unsicher. Der Fehler steckte schon in dem Beitrag aus dem VBA-Tutorial als überflüssige Zeile, die eine nicht deklarierte Variable "Fundstellen" verwendet. Dein Pattern ist völlig in Ordnung, wenn Du tatsächlich nur die Buchstaben und Ziffern extrahieren möchtest.
Gruß Thomas

 

Super Danke.

Kannst du mir noch zum Schluss sagen wieso du den folgenden Code benutzt hast:

Private pRegEx As Object

Public Property Get oRegEx() As Object

If (pRegEx Is Nothing) Then
Set pRegEx = CreateObject("Vbscript.Regexp")
End If
Set oRegEx = pRegEx

End Property


Kann man nicht gleich wie folgt machen?

Dim oRegEx As Object
Set oRegEx = CreateObject("Vbscript.Regexp")

???

 

Hallo,
da kann ich Dir nur das Schlagwort "Kapselung" an den Kopf werfen und als Einstieg für das Selbststudium diesen Link mitgeben:
https://access.joposol.com/know-how/...mulare-kapseln.
Mit den Vorteilen kenne ich mich nicht so aus, dass ich Dir das tiefschürfend erklären könnte, sorry, bin leider nur Gelegenheits-Datenbankbastler.
Gruß Thomas

 

Okay danke für den Link, ich werde mich versuchen da rein zu lesen.

Ich danke dir sehr für deine Hilfe.

Gruß Turgay