Возврат переменной

← →
Loki3d (2010-02-05 17:38) [0]

есть программа
program Project1; {$APPTYPE CONSOLE} Uses windows,SysUtils; {$R *.RES} begin ExitCode:=length(paramStr(1)); end.
она должна возвращать длинну строки.

Я использую программу в BAT файле
for /F "usebackq tokens=*" %%a in (Filename) do ( Project1.exe %%a echo err-%ErrorLevel% )
и получаю все время 0
если же в BAT файле я просто вызываю программу и передаю ей значение переменной
set aa=11111111111111 Project1.exe %aa% echo err-%ErrorLevel%
то всё работает

может ктото сможет пояснить, почему так происходит?
может можно как то иначе получить результат работы программы для дальнейшего использования его в BAT скрипте?

← →
MBo © (2010-02-05 17:42) [1]

проверил, что программа в первом случае действительно получает параметр?(выводом writeln, например)

← →
Loki3d (2010-02-05 17:47) [2]

да, получает 100%
и потом
в случае вызова проги в BAT вне "цикла" For
все же работает!

← →
Ганя (2010-02-05 19:28) [3]

следовательно, проблема не в программе

← →
Loki3d (2010-02-05 23:01) [4]

спасибо! капитан очевидность.

← →
Демо © (2010-02-06 04:18) [5]

> и получаю все время 0

if errorlevel 5 ... if errorlevel 4 ... if errorlevel 3 ... if errorlevel 2 ... ...

← →
Демо © (2010-02-06 04:24) [6]

PS.

http://www.robvanderwoude.com/errorlevel.php

Delphi:
program GetLength; {$APPTYPE CONSOLE} uses Windows; begin Writeln(Length(ParamStr(1))); end.

BAT:
@echo off setlocal ENABLEDELAYEDEXPANSION for /F "usebackq tokens=*" %%a in (test.bat) do ( for /f "usebackq" %%x in (`GetLength.exe "%%a"`) do set ALength=%%x echo Length of %%a is !ALength! ) endlocal

Интересно, почему такая конструкция не прокатывает для установки переменной окружения из вывода:
echo testvalue|set /p testkey=

Для твоего варианта, кстати, прокатывает так:

@echo off setlocal ENABLEDELAYEDEXPANSION for /F "usebackq tokens=*" %%a in (test.bat) do ( GetLength.exe "%%a" echo Length of %%a is !ErrorLevel! ) endlocal

← →
Loki3d (2010-02-08 11:27) [9]

спасибо Дмитрий С
пожалуй так и сделаю, как ты предложил.. буду обрабатывать результат через Writeln раз иначе без шансов.

Возврат переменной Найти похожие ветки