Конференция на VBStreets - Преглед на теми - Скриптиране на множество текстови файлове

Целият вкус на програмирането!

Списък с форуми‹ Свързани технологии‹ ASP и VBScript
Промяна на размера на шрифта

ЧЗВ
Вход

Скрипт, обработващ множество текстови файлове

Всичко студено Clusterbrow, сушена хлебарка и непадащ 12 ядрен сървър. Другари, любители на VizhlBasic, онзи ден беше необходимо да напишем скрипт за обработка на регистрационни файлове. От мен сценаристът е същият като от Шойгу, фумелиерът и от Нино Катамадзе, заварчикът. Написах по-голямата част от него и дори някак си работи. Освен това работи правилно. Моят скрипт прави следното: във файла input.txt той търси "реда на знаците", който сме посочили, и записва целия ред, съдържащ този ред, в новия файл output.txt. Тоест, след като попитахме Иванов, ще получим селекция от всички негови дневници. Пример за скрипт, който работи: Код: Избор на всички Опция Изрично

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

Задайте tsIn = fso.OpenTextFile("input.txt", 1, 0) ' отворете файла за четене

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

Намерих някъде пример как да чета файлове от папка, но количеството сиво вещество не позволява прикачването му към моя скрипт: Код: Изберете всичко Set objFSO = CreateObject("Scripting.FileSystemObject") Set fldr =objfso.getFolder("c:\FolderName") Задайте objFiles = fldr.files За всеки iFile в objFiles sName = iFile.name

Благодаря ти за помощта. Чакам отговор като летен славей.

Е, натъпчете всичко от отварянето на циферблатите до затварянето им в For Every.

И като цяло не разбрах VB6 ли е или VBS?

Ура! Излезе нова версия на Unreal Commander!

Re: Скрипт, обработващ множество текстови файлове

alibek направи както казахте, но се появява грешка (файлът не е намерен на реда ' отворете файла за четене)

Код: Изберете всички опции Явно

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\vvtatarinov 2\Моите документи\разбор на текстов файл\Копие на изход") ' посочете папката, съдържаща регистрационните файлове Задайте objFiles = fldr.files

За всеки iFile в objFiles ' цикъл за анализ на файл sName = iFile.name

Задайте tsIn = objfso.OpenTextFile("iFile.files", 1, 0) ' отворен файл за четене

Do While Not tsIn.AtEndOfStream str = tsIn.ReadLine 'чете изходния файл ред по ред If UBound(Split(str, "Ivanov"))>0 Тогава 'търсете думата за търсене в реда tsOut.WriteLine str 'записвайте намерения ред в изходния файл End If

tsIn.Close tsOut.Close Set objfso = Nothing следващ

Подозирам, че е необходимо да се посочи разрешението за .txt или как да се посочи скриптътфайлове? В папката има файлове!