|
|
|
Forum Member
 
участник
Last Login: 23.11.2006 13:08
Сообщ.: 47,
Visits: 482
|
|
Добрый день!
пищу скрипрт на WHS(VBS), нужно преребрать все строки в файле и что-то не получается у меня определить когда файл кончается -(
dim FSO, F, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.GetFile("c:\boot.ini")
While not EOF(F)
s=F.ReadLine()
Wend
F.Close()
ругается
переменная не определена EOF
|
|
|
|
|
Supreme Being
модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240,
Visits: 65 445
|
|
Ты совершенно неправильно код пишешь. Такое ощущение, что "от балды" пример накидал. Если бы ты для начала заглянул в документацию, то таких проблем бы не было.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/fdcdb56d-039b-4f67-aefd-b534b199e0cf.asp?frame=true
Вот работающий пример построчного чтения файла.
Option Explicit
Const BOOT_INI_PATH = "c:\boot.ini"
Const ForReading = 1
Dim objFSO, objTxtStream
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(BOOT_INI_PATH) Then
Set objTxtStream = objFSO.OpenTextFile(BOOT_INI_PATH, ForReading, false, 0)
Do While Not objTxtStream.AtEndOfStream
WScript.Echo(objTxtStream.ReadLine())
Loop
objTxtStream.Close
End If
|
|
|
|