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
 

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 19.02.2016]