Конференція VBStreets - Перегляд теми - Обробка скриптом кількох текстових файлів

Весь смак програмування!

Список форумів‹ Суміжні технології‹ ASP та VBScript
Змінити розмір шрифту

FAQ
Вхід

Обробка скриптом кількох текстових файлів

Всім холодного Кластербрау, сушеної вобли і непадаючого 12 ядерного сервера. Комради, любителі ВижлБейсіка, днями знадобилося написати скрипт на обробку логів. З мене скриптописач такий самий як із Шойгу фумельє та з Ніно Катамадзе зварювальник. Більшість написав, і воно навіть якимось чином працює. До того ж воно працює правильно. Мій скрипт робить наступне: у файлі input.txt шукає "порядок символів", яке задаємо і в новий файл output.txt записує весь рядок, що містить такий порядок. Тобто задавши Іванов ми отримаємо вибірку всіх його ліг. Приклад скрипту, який працює: Код: Виділити все Option Explicit

Dim fso, tsIn, tsOut, str Set fso= Createobject("Scripting.FileSystemObject")

Set tsIn = fso.OpenTextFile("input.txt", 1, 0) ' відкриваємо файл для читання Set tsOut = fso.OpenTextFile("output.txt", 8, true, 0) ' відкриваємо файл для дозапису в кінець, якщо файлу немає створюємо його

Do While Not tsIn.AtEndOfStream str = tsIn.ReadLine 'читаємо рядково вихідний файл If UBound(Split(str, "Ivanov"))>0 Then 'шукаємо шукане слово у рядку tsOut.WriteLine str 'записуємо знайдений рядок у вихідний файл End If Loop tsIn.Close tsOut.Close Set fso = Nothing

Знайшов десь приклад як зчитувати файли з папки, але прикрутити його до мого скрипту не дозволяє кількість сірої речовини: Код: Виділити все Set objFSO = CreateObject("Scripting.FileSystemObject") Set fldr =objfso.getFolder("c:\FolderName") Set objFiles = fldr.files For Each iFile in objFiles sName = iFile.name

За допомогу дякую. Чекаю на відповідь як соловей літа.

Ну так і запихай все від відкриття дайлів до їх закриття в For Each.

І взагалі, я не зрозумів, це VB6 чи все-таки VBS?

Ура! Вийшла нова версія Unreal Commаnder'а!

Re: Обробка скриптом кількох текстових файлів

alibek зробив як ти сказав, але вискакує помилка (файл не знайдено на рядку ' відкриваємо файл для читання)

Код: Виділити все Option Explicit

Dim objfso, tsIn, tsOut, str, fldr, objFiles, iFile, sName

Set objfso= Createobject("Scripting.FileSystemObject") Set tsOut = objfso.OpenTextFile("output.txt", 8, true, 0) ' відкриваємо файл для дозапису в кінець, якщо файлу немає створюємо його Set fldr = objfso.getFolder("C:\Documents and Settings\vvtatarinov2\My Documents\парсинг текстового фалу\Copy of вихід") ' вказуємо папку містить файли логів Set objFiles = fldr.files

For Each iFile in objFiles ' цикл парсингу файлів sName = iFile.name

Set tsIn = objfso.OpenTextFile("iFile.files", 1, 0) ' відкриваємо файл для читання

tsIn.Close tsOut.Close Set objfso = Nothing next

підозрюю необхідно вказати дозвіл .тхт або як скрипту вказати нафаїли? Файли у папці є!