VBS/WSH/JS - [решено] Построчное чтение из файла в переменную

Iska · Отправлено: **13:12, 05-02-2015** | #2

Цитата Elven:

В общем теперь почему-то переменная возвращает "1" (без кавычек) »

Про что речь? Про «strLine» вот здесь:

Код:

strLine = .ReadLine()

?

Elven · Отправлено: **13:21, 05-02-2015** | #3

Вот здесь

Код:

19 oShell.SendKeys strLine

Iska · Отправлено: **13:39, 05-02-2015** | #4

Elven, тогда вовсе не могу понять изложенного:

Цитата Elven:

теперь почему-то переменная возвращает "1" (без кавычек) »

Поясните, что Вы имеете в виду.

Elven · Отправлено: **14:04, 05-02-2015** | #5

скрипт должен брать построчно данные из файла (IP.txt), запускать "putty.exe" и передавать открывшемуся окну значение находящееся в переменной.
именно в этот момент окну "putty.exe" передается значение "1"
Файл IP.txt - существует, путь к нему я пытался указывать и относительный и абсолютный, результат один - "1". (извините за каламбур)

Iska · Отправлено: **14:46, 05-02-2015** | #6

Elven, я никогда не рассчитывал на гарантированную работу «.SendKeys».

Elven · Отправлено: **15:02, 05-02-2015** | #7

Обрезал то что все равно не имеет значения.

Код:

Option Explicit

Dim strSourceFile

Dim oShell

Dim objFSO
Dim strLine

Set oShell = WScript.CreateObject("WScript.Shell")

strSourceFile = "IP.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
WScript.Echo strLine
				Loop
			
			.Close
		End With
	Else
		WScript.Echo "Can't find [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

В файле оставил один IP. Вот что получил на выходе:

Iska · Отправлено: **15:50, 05-02-2015** | #8

Elven, упакуйте Ваш файл «IP.txt» в архив, выложите на RGhost. Ссылку — сюда.

Elven · Отправлено: **16:12, 05-02-2015** | #9

ссылко

Iska · Отправлено: **16:44, 05-02-2015** | #10

Elven, Ваш файл в кодировке Unicode LE/1200. Просто сохраните его в ANSI/1251.

Ситуация, кстати, интересная…

Например, метод «.OpenTextFile()» объекта «Scripting.FileSystemObject»:

Скрытый текст

Код:

Option Explicit

Const ForReading   = 1
Const TristateTrue       = -1


Dim strSourceFile
Dim strLine


strSourceFile = "E:\Песочница\0429\IP.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile, ForReading, TristateTrue)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
				WScript.Echo strLine
			Loop
			
			.Close
		End With
	Else
		WScript.Echo "Can't find [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

несмотря на параметры, открывает файл как ANSI/1251, со всеми вытекающими.

А вот если использовать, казалось бы, вполне аналогичный же метод «.OpenAsTextStream» объекта «File»:

Скрытый текст

Код:

Option Explicit

Const ForReading   = 1
Const TristateTrue       = -1


Dim strSourceFile
Dim strLine


strSourceFile = "E:\Песочница\0429\IP.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .GetFile(strSourceFile).OpenAsTextStream(ForReading, TristateTrue)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
				WScript.Echo strLine
			Loop
			
			.Close
		End With
	Else
		WScript.Echo "Can't find [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

с теми же параметрами — то всё отрабатывает как положено. Пожалуй, в первый раз сталкиваюсь с подобным поведением.