---

Fehler.jpg

Hallo,

hat jemand eine Idee, warum ich bei folgendem Code immer eine Fehlermeldung bekomme (siehe Anhang):

Dim oStream As TextStream

Set oFilesystem =  CATIA.Filesystem
           
' die Datei wird noch erfolgreich erzeugt
If Right(sFilePath, 4) <> ".txt" Then sFilePath = sFilePath + ".txt"
Set oStream = oFilesystem.CreateFile(sFilePath,true)

sErrorText = "bla"

' hier tritt der Fehler auf
oStream.Write (sErrorText)

Die Funktion ist im Object Browser vorhanden. Sie sollte dem CATScript demnach eigentlich bekannt sein. Bin für jede Hilfe sehr dankbar!

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

---

Hallo,

probiers mal mit
Set oStream = oFilesystem.CreateTextFile(sFilePath,true)
dann sollte es gehen.
Gruss
TomTom

------------------
tomtom1972

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

---

Hallo,

wenn ich es so mache, kennt er die Funktion 'CreateTextFile' nicht. Die ist auch im Object Browser nicht vorhanden.

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

---

Guten Morgen,

ein Objekt, das mit "CreateFile" (oder "GetFile") erzeugt wird, ist eine File-Objekt. Zum Schreiben und zum Lesen benötigt man jedoch ein TextStream-Objekt. Dazu einfach vom File-Objekt einen TextStream öffnen:

    set oStream = oFile.OpenAsTextStream("ForReading")
                                    ...("ForWriting")

    oStream.Read...
    oStream.Write...

    oStream.Close

Die Funktion "OpenAsTextFile" hat als Ergebnis einen Stream; aber zumindest CATScript kennt diese Funktion nicht, bei Catvbs bin ich da nicht ganz sicher.

Alle Stream-Funktionen sind in der Onlinehilfe von V5 (V5Automation.chm im 'bin'-Verzeichnis) beschrieben.

mfg Alex

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

---

super, so klappt es. danke!

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