---

Hallo zusammen,

ich habe ein Problem mit dem Befehl IndexOf(). Ich habe ein txt-Dokument eingelesen und möchte dieses nach einer bestimmten Zeichenfolge durchsuchen.

Ich durchlaufe jede Zeile und möchte, wenn die Zeichenfolge auftaucht etwas ausführen. (darauf folgende Pktkoordinaten in Catia übernehmen)

Hier der Auszug:

Code:

---

Dim TS As TextStream
    Set TS = file.OpenAsTextStream("ForReading")

Dim line As String

Do Until TS.AtEndOfStream
line = TS.ReadLine

Dim punkt As String
punkt = "Beispiel"

dim n as integer
n = line.IndexOf(punkt)

if n>0 then

'mach dies und das

end if

loop

---

Das Einlesen des txt-Dokuments und jeder Zeile funktioniert, er meckert nur bei n=line.indexof(punkt).

Compile error: invalid qualifier

Bedeutet das, dass CATVBA den Befehl nicht kennt? Und wenn ja, welchen kann ich alternativ benutzen?

Instr() hilft mir, soweit ich das überblickt habe nicht, da ich ja mehrere Zeichen zusammenhängend suche.

Vielen Dank schonmal

therp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Probiere es mal statt mit IndexOf mit der Methode InStr.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Stimmt das klappt ja doch! Da hatte ich wohl ein Brainlag...

Vielen Dank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP