Коллеги, перерыл FAQ's и форум, отважился спросить.
Есть текстовый файл в котором записаны имена файлов. Требуется считать их в массив для дальнейшего использования. Если можно, кусочек кода на VBScript.
Заранее спасибо!
(Простите чайника, писал раньше автоматизацию на Perl, там таких проблем нет :-)
Массив строк на VBScript
Автор tfc, 20 июн 2006 15:33
Сообщений в теме: 4
#1
Отправлено 20 июня 2006 - 15:33
#2
Отправлено 21 июня 2006 - 07:40
Вот кусок кода:
FileName = "c:\TextFile.txt" Set FS = Sys.GetOleObject("Scripting.FileSystemObject") Set F = FS.OpenTextFile(FileName, 1) Dim ArrayString(10) for i = 0 to UBound(ArrayString) - 1 ArrayString(i) = F.ReadLine Next F.CloseНадеюсь поможет, удачи...
#3
Отправлено 21 июня 2006 - 12:02
Спасибо!
А может кто еще расскажет как динамический массив сделать?
А может кто еще расскажет как динамический массив сделать?
#4
Отправлено 22 июня 2006 - 07:00
Здравствуйте.
Надо использовать ReDim.
Надо использовать ReDim.
FileName = "c:\TextFile.txt" Set FS = Sys.OleObject("Scripting.FileSystemObject") Set F = FS.OpenTextFile(FileName, 1) ReDim ArrayString(0) i = 0 While Not F.AtEndOfStream ReDim Preserve ArrayString(i) ArrayString(i) = F.ReadLine i = i + 1 WEnd F.Close
С уважением,
Дмитрий
Дмитрий
#5
Отправлено 22 июня 2006 - 07:15
Спасибо огромное! Сейчас пробовать буду.
По ходу... Вчера извелся с оператором Select ... Но об этом отдельную ветку сделаю.
По ходу... Вчера извелся с оператором Select ... Но об этом отдельную ветку сделаю.
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных