VBScript odczyt pliku

[SLaw]

Witam jak odczytac plik txt w VBS i zapisac do zmiennej.
Pozdrawiam
SLaw

[Artur Muszynski]

Post by SLaw
Witam jak odczytac plik txt w VBS i zapisac do zmiennej.

FileSystemObject

Post by SLaw
Pozdrawiam
SLaw

[SLaw]

Post by Artur Muszynski
FileSystemObject

OK zatem moze napisze wiecej. Co jest nie OK?

Dim fso, f, ts, Zmienna
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\test.txt")
Set ts = f.OpenAsTextStream(1, -2)
ts.Read Zmienna
msgbox Zmienna 'TU JAKOS NADAL NIC NIE MA
ts.Close

[Artur Muszynski]

Post by SLaw
Dim fso, f, ts, Zmienna
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\test.txt")
Set ts = f.OpenAsTextStream(1, -2)

Zmienna = ts.ReadAll

Post by SLaw
msgbox Zmienna 'TU JAKOS NADAL NIC NIE MA
ts.Close

[SLaw]

Post by Artur Muszynski

Post by SLaw
Dim fso, f, ts, Zmienna
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\test.txt")
Set ts = f.OpenAsTextStream(1, -2)

Zmienna = ts.ReadAll

Post by SLaw
msgbox Zmienna 'TU JAKOS NADAL NIC NIE MA
ts.Close

THX Wielkie ;)
SLaw

[Adam]

Post by SLaw

Post by Artur Muszynski
FileSystemObject

OK zatem moze napisze wiecej. Co jest nie OK?
Dim fso, f, ts, Zmienna
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\test.txt")
Set ts = f.OpenAsTextStream(1, -2)
ts.Read Zmienna
msgbox Zmienna 'TU JAKOS NADAL NIC NIE MA
ts.Close

Aby otworzyc plik:
Set a = fs.OpenTextFile("C:\test.txt", 1, false) (1 - plik do odczytu,
true - tworzy plik gdy go jeszcze nie ma)
i czytac linijkami:
Do Until a.AtEndOfStream
zmienna=a.line
NrLinii = a.Readline (numer odczytanej linii)
lub calosc:
zmienna=a.readAll

lub podana liczbe znaków:

zmienna=a.read(liczbaZnaków)

pozdrawiam
Adam