Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] нахождение txt.

Ответить
Настройки темы
CMD/BAT - [решено] нахождение txt.

Новый участник


Сообщения: 22
Благодарности: 0

Профиль | Отправить PM | Цитировать


Привет всем! Нужна помощь
задание такое: найти любой txt файл в диске С. После нахождения программа должна вывести на экран имя файла, время создания файла, и вес. Спасибо

Отправлено: 23:42, 19-01-2011

 

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
@for /f "delims=" %%a in ('dir /b/s/a-d c:\*.txt') do @(
@for /f "tokens=1,2" %%b in ('dir/tc "%%a"^|findstr/iec:".txt"') do @set "$tc=%%b %%c"
  echo.
  echo Long File Name   : %%~fa
  echo Short File Name  : %%~sa
  echo.
  echo File size ^(Bytes^): %%~za
  echo.
  call echo Creation Time    : %%$tc%%
  echo Modification Time: %%~ta
pause>nul& goto:continue)
:continue

Отправлено: 06:01, 20-01-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 22
Благодарности: 0

Профиль | Отправить PM | Цитировать


выводит ошибку "непредвиденное появление %%a"

Отправлено: 12:56, 20-01-2011 | #3


Ветеран


Сообщения: 1001
Благодарности: 226

Профиль | Отправить PM | Цитировать


Вот вам vbs скрипт, который будучи запущен найдет вам все txt файлы и требуемый результат запишет в лог c:\temp\txt-files.txt

Const ForAppending = 8

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where FileName Like '*.txt'")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\temp\txt-files.txt", ForAppending, True)

For Each objFile In colFiles
objTextFile.WriteLine(objFile.Name & " " & objFile.DateCreated & " " & objFile.Size)
Next
objTextFile.Close

Отправлено: 16:26, 20-01-2011 | #4


Новый участник


Сообщения: 22
Благодарности: 0

Профиль | Отправить PM | Цитировать


мне нужен bat... но все равно спасибо

Отправлено: 16:34, 20-01-2011 | #5


Ветеран


Сообщения: 1001
Благодарности: 226

Профиль | Отправить PM | Цитировать


Цитата Чин Хон:
мне нужен bat... но все равно спасибо »
Пожалуйста.
Но я подумал, что вам нужно решить задачу, при этом неважно bat или vbs.
Тем более листинг vbs круче выглядит : ) имхо
Да и "погибче" будет

Последний раз редактировалось Ivan Bardeen, 20-01-2011 в 18:49.


Отправлено: 16:36, 20-01-2011 | #6


Новый участник


Сообщения: 22
Благодарности: 0

Профиль | Отправить PM | Цитировать


дело в том, что задание именно по bat дали

Отправлено: 22:11, 20-01-2011 | #7


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Цитата Чин Хон:
выводит ошибку "непредвиденное появление %%a" »
Мне не удалось воспроизвести ошибку на XP/2003. Могу только предложить убрать по тексту все 4 знака "@" и запустить батник с выводом в лог, дальше надо смотреть по логу.
Код: Выделить весь код
test.bat >test.log 2>&1

Отправлено: 05:17, 21-01-2011 | #8


Новый участник


Сообщения: 22
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо большое!

Отправлено: 12:05, 21-01-2011 | #9



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] нахождение txt.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - Нахождение и выбор папки и её копирование ikif Скриптовые языки администрирования Windows 1 30-12-2010 12:01
[решено] Вставить строчку из одного txt в оределённое место другого txt ZeroCrash AutoIt 7 13-07-2009 07:35
C/C++ - Нахождение чётных элементов в столбцах матрицы ShadowMas Программирование и базы данных 9 04-04-2009 10:21
Теория - Нахождение внутренних углов в многоугольнике mrcnn Программирование и базы данных 8 01-06-2008 14:51
Нахождение сервера лицензий w2k3 SergOst Microsoft Windows NT/2000/2003 3 09-11-2006 14:59




 
Переход