Hallo,
eigentlich dachte ich, dass das folgende Problem keines ist, aber ich schaffe
es einfach nicht, den Fehler zu finden...
Also: Ich öffne eine Textdatei, ändere den ausgelesenen Inhalt und möchte ihn
nun in die gleiche (bereits wieder geschlossene) Textdatei schreiben. Beim
Schreiben erhalte ich allerdings ein "NilObjectException", weil "oustream"
nicht erzeugt werden kann. Wie, was, wo, warum denn das? Was ist falsch?
Hier ist der Quelltext:
Sub Action()
Dim inhalt as String
Dim OpenDoc as New FolderItem
Dim SaveDoc as New FolderItem
Dim instream as TextInputStream
Dim oustream as TextOutputStream
OpenDoc=GetOpenFolderItem("text")
instream=OpenDoc.OpenAsTextFile
inhalt=instream.ReadAll
instream.Close
inhalt=inhalt + "Testtext"
SaveDoc=OpenDoc
oustream=SaveDoc.CreateTextFile
'--> oustream=Nil, denn es wird nicht erzeugt (Warum?)
oustream.Write inhalt
'--> Laufzeit-Fehlermeldung: NilObjectException
oustream.Close
End Sub
Am FileType "text" kann's nicht liegen, der ist wirklich absolut richtig
eingestellt.
Schönen Gruß und vielen Dank schon mal für's Fehlerfinden,
Johannes
--
Psst! Geheimtipp: Online Games kostenlos spielen bei den GMX Free Games!
http://games.entertainment.gmx.net/de/entertainment/games/free
|