[数值计算] 【已解决】批处理使用call调用子标签后如何返回值？

踏沙行

原贴搜索不到，只好发新帖求助。不过虽与原贴处理的文档相同，但问题不同。
已知：I:\2.txt有如下内容

1##4072.0###52.19### #72## #
2#38705.8# # # 51.73## #70# #
372###389.0##51.80##19.77# # 72#####
4##59.71#3715.45##71###### 
复制代码

问题：将最后一们数字乘以7，然后输出新的结果
我的代码如下：

@echo off
Setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (H:\2.txt) do (
call :lp "%%a" string 
echo,%string% )
pause&exit

:lp
set "s=%~1"
set/a "i=0" &set "flag="
:loop
set/a "i-=1" 
if "!s:~%i%,1!" geq "0" if "!s:~%i%,1!" leq "9" set/a "flag=i"
if not defined flag goto loop
set "begin=!s:~,%flag%!"  
set/a "var=!s:~%i%,1!*7","n=flag+1"
set "end=!s:~%n%!")
echo,old=%s%
set "new=%begin%%var%%end%"
set %2=%new%
goto:eof
复制代码

问题：在子标签中倒是可以实现既定效果。但是：
1、如果把结果返回，返回值为空，不知道到底该怎么返回？现在的代码中哪里有错误，怎么修改？
2、Setlocal enabledelayedexpansion声明好像在主程序中没有作用，怎么把它限定在子标签区域？做这种调整有什么意义？

踏沙行

回复 1# 踏沙行
最后一个数字乘以7，是2*7
现在最大的问题在这一句：
set %2=%new%
想返回结果，但是无法得到返回结果。不知道问题出在哪里了？

踏沙行

回复 5# Batcher
已经试过，无效。

现在简化一下，以例题来尝试
已知：H:\1.txt内容如下：

abcde
feghj
klmno
pqrst
复制代码

要求，用call和子标签，来取出每行开头到倒数第一位字符中间的内容

@echo off
for  /f %%a in (H:\1.txt) do (
call :lp %%a b
echo,b=%b% )
pause&exit

:lp
set "Str=%1"
set "T=%str:~,-1%"
set "%2=%T%" 
goto:eof
复制代码

【问题】得不到返回值，即set %2=%T%这一句，并没有把结果回传回去。

踏沙行

谢谢二位，我也是刚刚找到问题，因为主程序使用for，所以在echo的时候，应该使用!!，我之前使用的是%%
变量延迟，真是一个大问题。