Tech-ecke CATScript

Tech-Ecke / CATScript/VBS Inhalt / FileStream

FileStream

Seiteninhalt:
	In Textdatei schreiben
	Aus Textdatei lesen

In Textdatei schreiben

Sub CATMain()

TextDatei = "C:\Test.txt"

set Datei = CATIA.Filesystem.CreateFile(TextDatei, true) ' wenn die Datei erzeugt werden soll
' oder -> set Datei = CATIA.Filesystem.GetFile(TextDatei) - wenn die Datei bereits existiert
set TextStream = Datei.OpenAsTextStream("ForWriting")

TextStream.Write "Das ist die erste Zeile" +Chr(10)
TextStream.Write "Das ist die Zweite" +Chr(10)
TextStream.Write "Die Dritte" +Chr(10)
TextStream.Write "usw."

TextStream.Close

End Sub

Aus Textdatei lesen

Sub CATMain()

TextDatei = "C:\Test.txt"

set Objekt = CreateObject("Scripting.FileSystemObject")
if CATIA.FileSystem.FileExists(TextDatei) then
   set TextStream = Objekt.OpenTextFile(TextDatei)
   do while not (TextStream.AtEndOfStream)
      Zeile = TextStream.ReadLine
      MsgBox Zeile
   loop
end if

End Sub