![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] VBS, поиск во всех файлах заданной папки и запись в файл. |
|
VBS/WSH/JS - [решено] VBS, поиск во всех файлах заданной папки и запись в файл.
|
Пользователь Сообщения: 58 |
Привет, скорректируйте пожалуйста.
В заданной папке (C:\old) есть 520 файлов. В каждом файле нужно выполнить построчный поиск, если в строке есть заданное слово, то записать строку в файл (output.txt должен содержать информацию из 520 файлов). В моем случае работает если явно указать имя файла, а мне нужно, чтобы поиском пройтись по всем 520 и записать всю найден. информацию в один файл output.txt. Option Explicit Dim fso, tsIn, tsOut, str Set fso= Createobject("Scripting.FileSystemObject") Set tsIn = fso.OpenTextFile("C:\old\filelog.2010-10-04", 1, 0) ' открываем файл для чтения, в ASCII Set tsOut = fso.CreateTextFile("output.txt", True, False) 'создаём файл в ASCII, при наличии файл перезаписывается Do While Not tsIn.AtEndOfStream str = tsIn.ReadLine 'читаем построчно исходный файл If InStr(1, str, "Мой текст", 1) <> 0 Then 'ищем искомое слово в строке tsOut.WriteLine str 'записываем найденную строку в выходной файл End If Loop tsIn.Close tsOut.Close Set fso = Nothing |
|
Отправлено: 09:17, 27-07-2012 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата vlad20:
|
|
Отправлено: 11:08, 27-07-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 58
|
Профиль | Отправить PM | Цитировать спасибо, а можно привести готовый вариант, попытался объединить имеющийся свой и ваш, не привело к желаемому результату
|
Отправлено: 12:03, 27-07-2012 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать vlad20, примерно так (не проверялось):
|
Отправлено: 13:26, 27-07-2012 | #4 |
Пользователь Сообщения: 58
|
Профиль | Отправить PM | Цитировать В результате выполнения кода получается Ошибка: Объект не поддерживает это свойство или метод: 'AtEndOfStream'
вышел из ситуации так, "слил" все файлы в один и выполнил построчный поиск |
|
Отправлено: 13:49, 30-07-2012 | #5 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Проверенный
![]() 1. «.AtEndOfStream» — свойство. Исправьте: 2. Забыл, что: Исправьте: |
Отправлено: 01:52, 31-07-2012 | #6 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Удалить всё кроме заданной папки | sg_swin | Скриптовые языки администрирования Windows | 18 | 30-06-2021 19:19 | |
CMD/BAT - поиск строк по шаблону и запись в отдельный файл | AVTS | Скриптовые языки администрирования Windows | 4 | 13-07-2012 00:51 | |
CMD/BAT - Мониторинг - поиск архивов с заданной датой в имени | Serg2010 | Скриптовые языки администрирования Windows | 0 | 21-05-2012 21:59 | |
Драйвер - Автоматический поиск драйвера в заданной папке в Windows XP | dzekka | Microsoft Windows 2000/XP | 2 | 19-10-2010 05:09 | |
Драйвер - [решено] Поиск подходящего драйвера в заданной папке с подпапками | Speaker | Microsoft Windows 2000/XP | 2 | 01-03-2008 19:07 |
|