Перейти к содержимому

Фотография

Массив строк на VBScript


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 4

#1 tfc

tfc

    Новый участник

  • Members
  • Pip
  • 17 сообщений
  • ФИО:Igor Goncharov

Отправлено 20 июня 2006 - 15:33

Коллеги, перерыл FAQ's и форум, отважился спросить.

Есть текстовый файл в котором записаны имена файлов. Требуется считать их в массив для дальнейшего использования. Если можно, кусочек кода на VBScript.

Заранее спасибо!
(Простите чайника, писал раньше автоматизацию на Perl, там таких проблем нет :-)
  • 0

#2 NAG

NAG

    Новый участник

  • Members
  • Pip
  • 36 сообщений
  • ФИО:Гридин Николай

Отправлено 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
Надеюсь поможет, удачи...
  • 0

#3 tfc

tfc

    Новый участник

  • Members
  • Pip
  • 17 сообщений
  • ФИО:Igor Goncharov

Отправлено 21 июня 2006 - 12:02

Спасибо!

А может кто еще расскажет как динамический массив сделать?
  • 0

#4 Dmitry N

Dmitry N

    Профессионал

  • Members
  • PipPipPipPipPipPip
  • 1 742 сообщений
  • ФИО:Николаев Дмитрий
  • Город:Где-то в России

Отправлено 22 июня 2006 - 07:00

Здравствуйте.

Надо использовать 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

  • 0
С уважением,
Дмитрий

#5 tfc

tfc

    Новый участник

  • Members
  • Pip
  • 17 сообщений
  • ФИО:Igor Goncharov

Отправлено 22 июня 2006 - 07:15

Спасибо огромное! Сейчас пробовать буду.

По ходу... Вчера извелся с оператором Select ... Но об этом отдельную ветку сделаю.
  • 0


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных