|
FileStream
Zwei kleine
Beispielroutinen zum sequenziellen Schreiben und Lesen
einer Textdatei.
Siehe auch
Beispiel in nativem VBS.
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 |
|
