Good morning.

Leider komm ich mit den vorhandenen VBA Funktionen für Zeichenketten gar nicht weiter.
Quelle: vbarchiv.net/commands/index.php?cat=strings
Bei PHP gibts da schon einige mehr, aber naja, ich erkläre erstmal mein Problem:

Ich lese mit folgendem Befehl, den Speicherort einer Excel-Datei aus dem Tab.Verkn-Managr aus:



Ausgabe: Excel 5.0;HDR=YES;IMEX=2;DATABSE=D:\...\ExcelDatei.xls


Allerdings möchte ich nur den Pfad.
Da ich nicht weiß ob der Teilstring vor dem Suchwort "DATABASE" immer gleich lang ist, nehme ich mal an, dass er das nicht ist. Also habe ich zB so einen String:




Excel 17.5;xyz=YES;abc=NO;lala=bububu;SUCHWORT=PFAD





Paar Merkmale des Strings:


- Die Länge der Zeichen vor SUCHWORT ist verschieden lang


- Das SUCHWORT heißt immer gleich
(in meinem Fall DATABASE)

- Nach dem SUCHWORT kommt immer ein "=" und dann ein belieb langer PFAD


- Es kann sein, dass das SUCHWORT auch im PFAD vorkommt





Ich möchte nur den PFAD erhalten.








Also ich habe mir das so vorgestellt:


Nach dem ersten auftreten des SUCHWORTes, alles davor abschneiden.


Dann das "=" nach dem SUCHWORT abschneiden


Dann das SUCHWORT abschneiden


-> PFAD bleibt übrig





Aber mit was für Funktionen kann ich da am besten hantieren in VBA?

Gibt es denn noch mehr für Zeichenketten außer die bei vb@rchiv genannten?
Oder ist der Teil vor dem "DATABASE" immer gleich? Weil dann kann ich ja theoretisch immer nach dem dritten "=" suchen und dann alles davor löschen. Aber das weiß ich leider nicht...




Danke

1. Die Zeichenkette durch ";" splitten
2. Alle Teile der gesplitteten Zeichenkette durchlaufen und prüfen, ob das Teil mit DATABSE anfängt. Wenn Ja: merken und aussteigen
3. Gefundenes Teil nochmal durch "=" splitten.

Perfekt.

Falls wer ein ähnliches Problem hat, hier ein Lösungsansatz:



Danke

Oder so:

Eierlein schrieb:

Oder so:

Visual Basic-Quellcode

1. DIM sring AS STRING, Teilstring AS STRING, p AS LONG
2. sring = CurrentDb.TableDefs("NameDerExcelDatei").Connect
3. p = INSTR(sring, "DATABASE=")
4. IF p THEN TeilString = MID$(sring, p + 9)
5. MSGBOX Teilstring 'Liefert den Pfad meiner ExcelDatei die mit dem

Das funktioniert nur, wenn DATABASE als letzter Parameter angegeben worden ist. Sobald dieser mit z.B. HDR oder IMEX vertauscht -> funktioniert diese Methode nicht mehr.

Das funktioniert nur, wenn DATABASE als letzter Parameter angegeben worden ist. Sobald dieser mit z.B. HDR oder IMEX vertauscht -> funktioniert diese Methode nicht mehr.

Dann funktioniert die Version von spitt3r auch nicht mehr.

Außerdem ist laut Beispiel von spitt3r DATABASR an letzer Stelle.