Supportnet / Forum / Datenbanken
textsream spezialisten gesucht
Frage
Hallo alle zusammen
Kann mir jemand erklären warum folgende Anweisung geschreiben wird
[code]
a.writeLine ("Dies ist ein test")
[/code]
und diese nicht
[code]
code = "Dies ist ein test"
a.writeLine (code)
[/code]
Der ganze Code sieht folgendermasse aus
[code]
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, a
Dim code As String
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile "test1.txt"
Set f = fs.GetFile("test1.txt")
Set a = f.OpenAsTextStream(ForWriting, TristateUseDefault)
a.writeLine ("Dies ist ein test")
code = "Dies ist ein test"
a.writeLine (code)
a.close
[/code]
Wäre sehr dankbar um eine Erklärung
Antwort 1 von Domen
Mit Access kann ich es nicht testen. Aber in Excel funktioniert Dein Code so wie er soll. Der Fehler muß wohl an etwas Anderem liegen, als dem was Du gepostet hast.
Antwort 2 von ricco
Hallo Domen
Vielen Dank für deine Antwort.
Habe es jetzt in ein neues Formular geschrieben und siehe da .............. es läuft!!!!!! Na das ist ja wieder einmal eine supersache. was wahr hier wohl.
Vielen Dank für deine Antwort.
Habe es jetzt in ein neues Formular geschrieben und siehe da .............. es läuft!!!!!! Na das ist ja wieder einmal eine supersache. was wahr hier wohl.