RegEx und seine Geheimnisse - Teil 2

Ja im April 2020, glaube ich war es, hat mir bezüglich RegExp Sulprobil (Bernd P) etwas auf die Sprünge geholfen, ist aber nach wie vor ein spanisches Dorf für mich.
Nun habe mich neuerlich wieder etwas damit beschäftigt und die Abfragen doch da und dort etwas anpassen / ergänzen können um somit weinige Werte, die er nicht gelesen hat zu verarbeiten.
Ich habe mir dann die Spalte Rest angelegt in welcher ich durch WECHSELN alle Werte aus den einzelnen RegExp-Spalten von der Spalte X herausnehme, so dass am Ende ja nur mehr die Trennzeichen ; übrig sein sollten/müssten.
Wenn Teile in den Spalten Name, Ort, Adresse z.B. auch vorkommen bleiben die natürlich in der Spalte Rest auch übrig, ist aber nachvollziehbar.
Nur das in einigen Spalten RedExp nicht korrekt arbeitet verstehe ich einfach nicht und finde auch nicht die Ursache dafür, sind alle in blau markiert.
Da die Original Datei über 23.000 Datensätze enthält, dauert eine Auswertung doch etwas verdammt lange, die Frage, ob man das nicht doch etwas beschleunigen könnte?
Oder ob es möglich wäre, bei/nach Korrekturen in der Spalte X z.B. eine Abarbeitung nur zeilenweise oder spaltenweise durchlaufen zu lassen, den die meisten Fehler lagen bei den TelNr. Wo von vorneherein das + fehlte oder die TelNr durch - und / oder . getrennt war. Das könnte man Großteils auf das schnelle ändern und müsste nur die Spalte TelNr. Mit RegExp durchlaufen lassen.
Hätte es mit einer Schlaufe versucht, dabei wurde Regexp aber leider, nicht so, wie wenn ich in die Bearbeitungsleiste klicke und dann Return drücke, ausgelöst.
Nun und eines der Hauptprobleme waren z.B. vorkommende Zeichen bei der Vielfalt von Ländern, die nicht ASCI entsprechen siehe Word-Datei, musste ich alle ändern, da ich den WEG sie in den RegExp-abfragen einzubauen nicht gefunden habe.
Bei hineinkopieren in die Abfrage wurde nur das/ein ? dargestellt, für mich der Hinweis das es nicht verstanden wird.
Die Gesamten Daten sind im Format UTF-8 erstellt da ja die meisten Navi-Softwaren diese verlangen.
Hoffe es kann mir da jemand helfen.
Gruß Siegfried
https://www.herber.de/bbs/user/143390.xlsm
https://www.herber.de/bbs/user/143391.doc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Splitter() Dim i, j Dim Arr Application.ScreenUpdating = False For i = 2 To 601 Arr = Split(Cells(i, 1), ";") 'PLZ und ort Cells(i, 2) = Arr(0) 'Gästewertung j = 1 If InStr(1, Trim(Arr(j)), "Gästewertung", vbTextCompare) = 1 Then Cells(i, 3) = Arr(j) j = j + 1 End If If UBound(Arr) "" Then Cells(i, 4) = Trim(Arr(j)) j = j + 1 End If If UBound(Arr) "" Then Cells(i, 6) = Trim(Arr(j)) j = j + 1 End If If UBound(Arr) "" Then j = j + 1 If UBound(Arr) "" Then Cells(i, 9) = Trim(Arr(j)) j = j + 1 End If Nächster: Next Application.ScreenUpdating = True End Sub Private Function RegEx(Text, Pattern, Optional Occurence = 0) As String 'mit Extras, Verweise.. auf Microsoft VBScript Regular Expressions 5.5 (besser zu debugen) Dim R As New RegExp Dim ergs As Object ' Set R = CreateObject("vbscript.regexp") R.ignorecase = True R.Pattern = Pattern Set ergs = R.Execute(Text) If ergs.Count > 0 Then RegEx = Trim(ergs(0).submatches(Occurence)) End Function

'Strasse = Spalte M Cells(i, 13) = RegEx(Arr(j), "(\w+\@\S+)") If Cells(i, 13) "" Then j = j + 1 If UBound(Arr) "" Then Cells(i, 14) = Replace(Replace(Trim(Arr(j)), "[", ""), "]", "") j = j + 1 End If

Hallo Yal
Habe nun mal in einem ersten durchlaufen alles was auf Fremdzeichen hinweist durch entsprechende ASCI-Zeichen ersetzt, dann alle doppelten Leerzeichen durch einfache, alle "; (00", usw. bei den TelNr. ersetzt, wodurch die Fehleranzahl sich um vieles gebessert hat.
Bei den TelNr. habe ich eigentlich nur mehr Probleme wenn weder ein " +" bzw. " 0" vorhanden ist, also die TelNr. mit " 0-9" beginnen kann, wie kann ich das Abfragen ohne da jetzt für jede Möglichkeit von 1 -9 extra abzufragen.
Nach wie vor hänge ich bei der Straßen und Ortauswertung.
Wie findet er beim Ort das dies mit [ und ] versehen ist, im Wort selbst aber natürlich alles von [A-Za-z0-9_] vorkommen kann aber auch . - / möglich sind, irgendwie greift die jetzt verwendete RegEx leider nicht.
Oder liegt es daran, das er auch in der Straße keine Auswertung hat und somit j nicht erhöht wird.
Kann man mit RegEx eigentlich auch von Rückwärts suchen, wie ginge das?
Bei Daten die z.B. nur aus 2 bis 3 ";" bestehen und auch keine Straße vorhanden ist wird der Ort sehr wohl ausgewertet, daher meine Vermutung wegen j.
LG Siegfried

Beliebteste Forumthreads (12 Monate)

RegEx und seine Geheimnisse - Teil 2

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread