Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


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

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


MultiMax,
Код: Выделить весь код
@Echo Off
Set Cnt=0
For /F "Tokens=*" %%A In ('type broad.int^|FindStr /I "E:\Music"') Do Call :_Func "%%A"
Exit /B 0

:_Func
  Set "Str=%~1"
  If "%Str:~14%"=="" Exit /B
  If %Cnt% EQU 1 Exit /B
  Set "Str=%Str:~14%"
  Set "Str=%Str:  =$%"
  For /F "Tokens=1 Delims=$" %%A In ("%Str%") Do Echo.%%A
  Set /A Cnt+=1
Это сообщение посчитали полезным следующие участники:

Отправлено: 10:31, 18-05-2011 | #7