kleines VB Problem....

[overcooler]

James017 hat geschrieben:
Trifft´s schon eher, doch irgent wie komme ich da nicht ganz mit

Prog zum ausgeben einer Textdatei (am Bildschirm):
QuickBasic:
open "Textdatei.txt" for input as #1
...Do until Eof(1)
......Line Input #1, txt$
......Print txt$
...Loop
close #1

VisualBasic:
open "Textdatei.txt" for input as #1
...Do while Eof(1)
......Line Input #1, txt$
......Print txt$ <- Wie geht das?
...Loop
close #1

(Ist ";" nicht Cursor bleibt an Position, "," zur nächsten Spalte und "" nächste Zeile?)

in vbs gehts so:

Set objFs = CreateObject("Scripting.FileSystemObject")
Set objText = objFs.OpenTextFile("pfad und dateiname",1)
Response.Write objText.ReadAll
objText.Close
Set objTextStream = Nothing