Как из VBA прочитать текстовый файл построчно? #15149

у меня есть текстовый файл со списком баз (150 строк) мне надо из vba скрипта прочитать этот файл и циклом rar a -dh -m1 -s -r -y -x@not.lst d:_arjТУТ СТРОКУ ИЗ ТОГО ФАЙЛА z:ase1И ТУТ СТРОКУ ИЗ ТОГО ФАЙЛА*.*

РидЛайн

как узнать сколь там строк вообще?

Только прочитать их все по очереди и сосчитать, сколько прочитал ...

читаю MSDN. далеко не уходи

Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile=fso.OpenTextFile("bases.txt", 1, True) Msgbox MyFile.ReadLine читает первую строку. а как остальные?

MyFile.SkipLine

Тебе проще попробовать - еще раз РеадЛине не прокатит?

:( Не прокатит :))

если перед РидЛайн поставить СкипЛайн, то читает вторую. как бы в цикле все строки прочитать?

Поставь после (пожимая плечами)

Привожу кусок реально работающего скрипта. Он у меня установленные 1С базы из реестра читает... Set f=fs.OpenTextFile("base.reg", 1, 0,fformat) Do While f.AtEndOfStream<>True  Ll = f.ReadLine ... Loop И не надо лохматить бабушку. С уважением, Shaman/

кто лохматит твою бабушку?

из Wscript.Shell можно напрямую работать с реестром. Безо всяких экспортов в текстовички или ВК.

Shaman, а почему он у меня пустые мсжбоксы кажет? я в твой скрипт добавил только мсжбокс Л1

Вы не правы! Например, просканить ветку реестра Вы не сможете.

Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile=fso.OpenTextFile("bases.txt", 1, True) Do While MyFile.AtEndOfStream<>True Msgbox MyFile.ReadLine Loop работает у меня

Так работает или нет? А как? Про метод RegWrite я знаю, но там не указывается в явном виде параметр реестра из которого необходимо считать значение. Просто берется последний элемент пути (названия ветки реестра). А в 1С сам параметр представляет из себя путь. Скрипт просто не понимает с какого места идет имя параметра. Если есть способ это дело победить, буду благодарен за совет.