Office: (Office 2010) Nach doppelten Wörten im Datensatzfeld suchen und eines davon löschen

Hallo,

wie die Überschrift schon sagt möchte ich nach doppelten Wörtern im Datensatzfeld suchen und dann die doppelten bis auf eines löschen.

Beispiel:

Test | Heute mittag heute | Dienstag Heute

daraus sollte dann

Test | Heute mittag | Dienstag Heute

werden.


Ist so was möglich?

Mit freundlichen Grüßen

:)

 

Hallo,

du meinst...
Code:

heute/Heute?
Und das steht alles in einem Feld?
Groß-/Kleinscheibung...? Hat damit etwas zu tun?
Welches Heute soll gelöscht werden..1., 2..?
Könnte auch genauso gut Morgen sein... alle Wörter die doppelt sind löschen.

 

Möglich ist vieles.

Sinnvoll und datenbankkonform wäre es, diese zusammengepappten Informationen (wer stellt so etwas her=) in atomare Informationen zu zerlegen und diese als Zeilen (Datensätze) abzulegen. Dann ist so etwas simpel, wenn man zusätzlich weiß, welche genau zu löschen sind bzw. welches genau zu behalten ist.

Ansonsten müsste man Methoden der Textverarbeitung/Stringmanipulation pur verwenden.

 

\@Kyron9000

Hallo,
danke schon mal für deine Antwort.

Wenn du dir das Beispiel anschaust siehst du dass in Spalte 2 2x Heute/heute vorkommt , groß/klein Schreibung ist egal.

Es soll also nur in der 2. Spalte geprüft werden und dort die doppelten gelöscht werden.

Das erste doppelte Wort soll erhalten bleiben.

Da es sich immer um andere Wörter handelt wäre es schön wenn es flexibel wäre.

Hab mir das so gedacht.

Feld in Wörter aufteilen, Prüfen ob Wörter doppelt vorkommen, löschen und Feld wieder zusammensetzten.

Leider mangels genügender Programmier Kenntnisse für mich nicht umsetzbar.

 

Möglicher Ablauf:
1) Worte isolieren per Split oder RegEx - kommt darauf an ...
2) Worte als Key in ein Dictionary (MS Scripting Runtime) schreiben. Da dieses nur eindeutige Keys nimmt, wäre die Duplikatfreihet automatisch gegeben.
3) Die Keys-Auflistung kann direkt in ein Array gewandelt werden.
4) Aus dem Array kann man per Join einen String erzeugen. Ob aber wieder so ein Datenkonglomerat erzeugt werden soll, mit dem so mancher gar nichts anfangen kann außer es (hilflos) anzuschauen, darf hinterfragt werden.

Das Ganze kann man in einer Funktion bündeln und so auf einen Feldinhalt loslassen.

Wie stellst Du Dir Deine Eigenleistung vor?

 

\@ebs17

Nun bis jetzt habe ich alles mehr oder weniger hinbekommen.

Bin mir sicher das ich mit eurer Hilfe ich die auch packe.

Habe hier leider wirklich noch nicht den richtigen Ansatz gefunden um loszulegen.

Wäre schön wenn Ihr hier mal beide Augen zudrückt und mir trotzenden helfen würdet.

 

Einen detaillierten Ablaufplan, wie so etwas gehen kann und ganz bestimmt auch funktionieren wird, hast Du ja schon vorliegen. Da kann man auch Stichworte für Recherchen von Teillösungen schön entnehmen.

Und selbstverständlich werde ich keinen Code vorlegen, der auch mich etwas Zeit kostet, der auf einem einzigen Beispiel aufzubauen wäre - um dann gesagt zu bekommen, warum er bei anderen Werten nicht funktioniert.

 

Hey,

ich hänge mal eine Db an.
Da ist ein Modul drin, was die augenblickliche angegebene Problematik erledigt.

Gruß Jo

 

Hallo,

wenn Du mit "Regulären Ausdrücken" vertraut bist, verwende diese Funktion:
Code:

Sie ersetzt hintereinanderstehende doppelte Wörter, Groß-/Kleinschreibung ist relevant. Vielleicht lässt sich der Reguläre Ausdruck so modifizieren, dass auch durch andere Wörter getrennte doppelte Begriffe ersetzt werden. Mal schauen, was sich findet.
Den Verweis auf "VB Skript Regular Expressions 5.5" nicht vergessen.
Gruß, Thomas

 

Hallo,

@Thomas, hast du dir den Code gut überlegt, den du da eingestellt hast...?

Habe mir diese "DoppeltenWerte" mal überlegt... BDB anbei.
Falls wer Ideen dazu hat einfacher zu gestalten, gerne.
Aber, denke der Threadstarter ist nicht mehr interessiert daran!

 

Hallo Kyron,
ja schon, ich habe ausdrücklich gesagt, dass nur benachbarte Verdoppelungen damit entfernt werden, was so nicht dem Beispiel des TS entspricht. Ich wollte auch nur auf die Möglichkeiten mit den Regulären Ausdrücken hinweisen. Ich bin mir sicher schon einmal einen passenden Ausdruck gesehen zu haben, der das Problem des TS lösen kann, komme aber, da krank im Bett, nicht an meine Aufzeichnungen heran. Googeln hat auch nichts ergeben. Lösungen mit RegEx sind u.U. viel kürzer und für den Laien dann verständlicher (bin selber einer). Ich hatte als Lösungsansatz überlegt, aus dem entsprechenden String per RegEx die einzelnen Wörter zu extrahieren und in eine Tabelle zu speichern zusammen mit einer selbst generierten Laufnummer, dann daraus die Duplikate zu entfernen, und alles wieder, sich an der Laufnummer orientierend, in die Stringvariable zurückzuschreiben. Ich komme aber krankheitsbedingt nicht dazu. Hatte auch den Eindruck wie Du, dass seitens des TS das Interesse etwas abgekühlt ist.
Gruß
Thomas
PS: sehe gerade, dieser Vorschlag ähnelt stark dem Vorschlag von ebs17, der auch auf RegEx hinweist, habe aber bestimmt nicht abgeschrieben ;-).

 

... alles klar! aber, darüber solltest noch mal nachdenke, denn der Code ist nicht lauffähig...
Code:

PS:

das glaube ich dir aufs Wort *Smilie

 

Hallo Kyron,
ja, diese doppelte Deklaration ist natürlich Unsinn, hatte mir zwei Sachen zusammenkopiert und das übersehen. Ich dachte, Deine Frage bezog sich auf den Regulären Ausdruck. Der verrichtet allerdings bei benachbarten Doppelungen zuverlässig seinen Dienst.
Gruß
Thomas

 

...dann teste deinen Code mal.

 

HAllo Kyron,
da ist natürlich im Code wieder ein Backslash verschluckt worden, sorry, bin mit den Besonderheiten dieser Forumssoftware noch nicht so vertraut. Der reguläre Ausdruck muss so lauten (schreibe es mal nicht in Code-Tags, die Umlaute habe ich noch ergänzt):
([A-Za-zÄäÖöÜü]+) +\1
Mit dieser Backreference sollte es dann aber gehen.
Gruß
Thomas