[решено] помогите устранить проблему цикла в bat

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

помогите устранить проблему цикла в bat

в общем есть батник который должен работать по циклу, скачать первую ссылку из list.txt в html файл
потом запускается vbs скрипт и обрабатывает скачанную страницу и передает прямую ссылку вновь на качалку(vbs тьфу-тьфу работает)
после отработки vbs происходит удаление html файла, и должно начаться по новой
потому как в list.txt ссылки идут списком (каждая в новой строке "без пробелов") и так пока не закончаться.

У меня происходит так: Первую ссыль отрабатывает а со второй "шляпа"
вот код батника

Код:

for /f "usebackq delims=" %%a in ("list.txt") do call :Download "%%a"

exit /b

:Download

wget %1 -O %TEMP%\stranyca.html

wscript script.vbs //b //nologo

del %TEMP%\stranyca.html

exit /b

чё может не так работать?
Что выше решено
И так далее по этой же теме следующая загвоздка вышла..
создаю такой вот батник

Код:

setlocal enabledelayedexpansion

for  /l %%j in (1,1,9) do @(

          set "$j=%%j"

 for /l %%i in (1,1,8) do @(

          set "$i=%%i"

call wget -c -t 0 http://adres.sait/64/6471/00%%$j:~-3%%/big/%%$i:~-1%%.jpg -O !n!.jpg

)

)

и на выходе скачиваемой по ссылке картинки я хочу иметь их по порядку тоесть на месте в коде !n!.jpg иметь допустим 001.jpg 002.jpg 003 и т.д.
я пробовал по тому же принципу добавив нечто подобное к примеру(да простите меня если ооное бред полнейший)

Код:

for /l %%k in (1,1,150) do (

   set /a n = %%k + 1

)

пробовал переставляя его место положение .. то работает да не так то вообще отказывался.. я и !n! менял думая что зависело.. но не тут то было..
Прошу помощи от ваших умных голов

alexmoreman, ну вы же обращаетесь к процедуре :Download
А в конце что? exit /b (выход из батника).

Для возвращения из процедуры используется команда goto :eof

Petya V4sechkin, таже лажа, усё равно не работает.
он как бы скачивает ссылку под номером 2 и типа запускает vbs , а вот скачивание уже прямой ссылки номер2 уже неработает
вот кстать vbs

Код:

Set objIE = CreateObject("InternetExplorer.Application")

    objIE.Visible = False

    With WScript.CreateObject("WScript.Shell")

    strPath = .ExpandEnvironmentStrings(.Environment("USER").Item("TEMP"))



    End With

    

    objIE.Navigate "file://" & strPath & "\stranyca.html"

    While objIE.Busy: WScript.Sleep 200:Wend

    For Each tag In objIE.Document.getElementsByTagName("i")

        strFilm = tag.innerHTML

        Next

    strFilm = Replace(strFilm," ","_") ' ?я*яї?ў*< яї?-<

Set tag = objIE.Document.getElementByid("start_download_form")

Set WshShell = CreateObject("WScript.Shell")

Retval = WshShell.Run ("cmd /c wget -c -t 0 http://share-nn.ru/" & _ 

tag.getAttribute("action") &" -O Film/" & strFilm, 1, True)

objIE.Quit

Я похоже догнал в чём может быть засада.
когда скачивается вторая страница то там пока нет прямой ссылки а предупреждение с ожиданием 300 сек(тоесть парсить vbs -у просто нечего)
может подскажите как задержку сделать для скачивания последующей ссылки (тоесть html документа)

я опять затупил
я создал файлик vbs

Код:

wscript.sleep wscript.arguments(0)

И пришпандорил его к батнику

Код:

Setlocal EnableDelayedExpansion

Set file=list.txt

for /f "usebackq delims=" %%a in ("%file%") do call :Download "%%a"

exit /b

:Download

wget %1 -O %TEMP%\stranyca.html

wscript script.vbs //b //nologo

del %TEMP%\stranyca.html

cscript //nologo delay.vbs 300000

Так он вроде норм заработал, но после скачивания последней ссылки
всё равно включает паузу
чё сделать я уже туплю

Цитата:

Цитата Petya V4sechkin

alexmoreman, ну вы же обращаетесь к процедуре :Download
А в конце что? exit /b (выход из батника).
Для возвращения из процедуры используется команда goto :eof »

«exit /b» — допустимая команда.

если после
cscript //nologo delay.vbs 300000
поставив
exit /b
то у меня всё рубится

подскажите как отрубить действие delay.vbs
когда нет ссылок в list.txt

простите за данный пост.. пробую поднять тему ..
но с новым вопросом дабы не создавать новую тему

Цитата:

Цитата alexmoreman

с новым вопросом »

каким?

amel27, создаю такой вот батник

Код:

setlocal enabledelayedexpansion

for  /l %%j in (1,1,9) do @(

          set "$j=%%j"

 for /l %%i in (1,1,8) do @(

          set "$i=%%i"

call wget -c -t 0 http://adres.sait/64/6471/00%%$j:~-3%%/big/%%$i:~-1%%.jpg -O !n!.jpg

)

)

Код:

for /l %%k in (1,1,150) do (

   set /a n = %%k + 1

)

пробовал переставляя его место положение .. то работает да не так то вообще отказывался.. я и !n! менял думая что зависело.. но не тут то было..

alexmoreman, типа такого?

Код:

SetLocal EnableDelayedExpansion



for /l %%j in (1,1,9) do @(set "$j=00%%j"

for /l %%i in (1,1,8) do @(set "$i=%%i"

  set/a $in+=1& set "$sn=00!$in!"

  wget -c -t 0 http://adres.sait/64/6471/!$j:~-3!/big/!$i!.jpg -O !$sn:~-3!.jpg

))

amel27, обалдеть.. работает великолепно.. спасибо огромнейшее..