|
For i = 1 To s
Set Files = fso.OpenTextFile(App.Path & "\files.lst", ForReading, False, TristateUseDefault)
DirPath = Files.ReadLine
Set Files = fso.OpenTextFile(DirPath, ForReading, False, TristateUseDefault)
Files2 = Files.ReadAll
FileText = Replace(Files2, txtOld, txtNew)
Set Files3 = fso.OpenTextFile(DirPath, ForWriting, False, TristateUseDefault)
Files3.Write FileText
Files.Close
Files3.Close
s = s - 1 ' осталось обработать
s2 = s3 - s ' обработано
frmState.Label8.Caption = s ' осталось обработать
frmState.Label9.Caption = Format(s * 100 / s3, "0#") & "%" ' осталось обработать (%)
frmState.Label4.Caption = s2 'обработано
frmState.Label6.Caption = Format(s2 * 100 / s3, "0#") & "%" 'обработано (%)
DoEvents
Next ЕСТЬ ТАКОЙ ЦИКЛ .... Я ХОЧУ ЧТОБЫ ПРИ КАЖДОМ ПРОХОДЕ ОН ЧИТАЛ СЛЕДУЮЩУЮ СТРОКУ ИЗ ФАЙЛА Set Files = fso.OpenTextFile(App.Path & "\files.lst", ForReading, False, TristateUseDefault)
DirPath = Files.ReadLine
Ответить
|
V!RU$™ | Web-сайт: cxodnya.narod.ru | ICQ: 132309822