[数值计算] [已解决]求助：批处理运行后闪退，没有错误信息

dengyuli

问题：我做了一个可以进行实数乘法的批处理，代码有点长，花了我好长时间才打好，却运行到第一个for /f时莫名其妙的退出了（for嵌套在一个if语句中）
（已解决，以下是修改后的代码：）

@echo off
setlocal enabledelayedexpansion
:mutiplite
set cs1=%1
set cs2=%2
set "f=!cs1:~0,1!!cs2:~0,1!"
for /l %%a in (0,1,9) do (
 set "f=!f:%%a=!"
 set f=!f: =!
)
set f=!f:--=!
if "!cs1:~0,1!"=="-" set cs1=!cs1:~1!
if "!cs2:~0,1!"=="-" set cs2=!cs2:~1!
set cs1=!cs1: =!
set cs2=!cs2: =!
set w1eo=false & set w2eo=false
set tcs1=!cs1!
set tcs2=!cs2!
if "!tcs1:~-1!"=="." set w1=0 & set w1eo=true
if "!tcs2:~-1!"=="." set w2=0 & set w2eo=true
set tcs1=!tcs1:.=!
set tcs2=!tcs2:.=!
set tcs1=!tcs1: =!
set tcs2=!tcs2: =!
if "!tcs1!"=="!cs1!" set w1=0 & set w1eo=true
if "!tcs2!"=="!cs2!" set w2=0 & set w2eo=true
if !w1eo!==true if !w2eo!==true set /a r=!tcs1!*!tcs2! & echo !r! & goto :eof
if "!w1eo!"=="false " (
 	for /f "delims=. tokens=1-3 usebackq" %%a in ('echo !cs1!') do (
 	 call :len %%b
 	 set w1=!zz!
	 set cs1=!cs1:.=! & set cs1=!cs1: =!
	 )
) else (
 rem meiyou
)
if "!w2eo!"=="false" (
	 for /f "delims=. tokens=1-3 usebackq" %%a in ('echo !cs2!') do (
  	 call :len %%b
 	 set w2=!zz!
 	 set cs2=!cs2:.=! & set cs2=!cs2: =!
         )
) else (
         rem meiyou
)
set w1=!w1: =!
set w2=!w2: =!
set /a "ttw=!w1!+!w2!"
set "tcs1=" & set "tcs2="
call :len !cs1!
set len1=!zz! & set len1=!len1: =! & set /a len1d1=!len1!-1
call :len !cs2!
set len2=!zz! & set len2=!len2: =! & set /a len2d1=!len2!-1
set len1=!len1: =! & set len2=!len2: =!
for /l %%a in (0,1,!len1d1!) do (
 	set "tcs1=!cs1:~%%a,1!!tcs1!"
)
for /l %%a in (0,1,!len2d1!) do (
 	set "tcs2=!cs2:~%%a,1!!tcs2!"
)
set cs1=!tcs1! & set cs2=!tcs2!
set cs1=!cs1: =!
set cs2=!cs2: =!
for /l %%a in (0,1,!len1d1!) do (
 	for /l %%b in (0,1,!len2d1!) do (
 	 set /a "r%%at%%b=!cs1:~%%a,1! * !cs2:~%%b,1!"
 	)
)
for /l %%a in (0,1,!len1d1!) do (
 	for /l %%b in (0,1,!len2d1!) do (
  	 if "!r%%at%%b:~1,1!" neq "" (
   	  set /a bp=%%b+1
   	  if not defined !r%%at%bp%! set r%%at%bp%=0
   	  set /a r%%at%bp%+=!r%%at%%b:~0,1!
   	  set r%%at%%b=!r%%at%%b:~1,1!
  	 ) else (
          rem nothing
         )
        )
)
set zz=50
for /l %%a in (0,1,!len1d1!) do (
	 set "r%%a="
 	 for /l %%b in (0,1,!len2d1!) do (
	  set "r%%a=!r%%a!!r%%at%%b!"
 	)
)
for /l %%a in (0,1,!len1d1!) do (
	 for /l %%b in (1,1,%%a) do (
 	 set "r%%a=0!r%%a!"
 	)
)
set maxstr=0
for /l %%a in (0,1,!len1d1!) do (
	 call :len !len%%a!
 	 if !zz! gtr !maxstr! set maxstr=!zz!
)
set /a maxstr-=1
for /l %%a in (0,1,!maxstr!) do (
 	for /l %%b in (0,1,!len1d1!) do (
 	 set "col%%a=!col%%a! !r%%b:~%%a,1!"
 )
)
for /l %%a in (0,1,!msxstr!) do (
 	set col%%a=!col%%a:  = !
 	for /l %%b in (1,1,5) do (
 	 if "!col%%a:~0,1!"==" " set col%%a=!col%%a:~1!
 	)
)
for /l %%a in (0,1,!maxstr!) do (
 	set ljq=0
 	for %%b in (!col%%a!) do (
  	set /a ljq+=%%b
 	)
 	set r%%a=!ljq!
)
for /l %%a in (0,1,!maxstr!) do (
 	if "!r%%a:~1,1!" neq "" (
 	 set /a ap=%%a+1
 	  for /l %%b in (!ap!,2,!ap!) do (
  	   if not defined !r%%b! set r%%b=0
  	   set /a r%%b=!r%%b!+!r%%a:~0,1!
  	   set r%%a=!r%%a:~1,1!
  	  )
        ) else (
         rem nothing
        )
)
set /a len2p1=!len2!+1
set "r="
for /l %%a in (!len2p1!,-1,0) do (
	 set /a ad=%%a-1
         set ad=!ad: =!
	 set "r=!r!!r%%a:~%ad%,1!"
)
for /l %%a in (1,1,30) do (
 	if "!r:~0,1!"=="0" set r=!r:~1!
)
call :len !r!
set lenr=!zz!
if !ttw!==0 goto :eof
set /a rstw=lenr-ttw
set r=!r:~0,%rstw%!.!r:~-%ttw%!
echo !f!!r!
goto :eof
:len
set "str=%1"
for /l %%a in (0,1,10) do (
 if "!str:~%%a,1!"=="" (
  set "zz=%%a"
  goto :eof
 ) else (
  rem nothing
 )
)
goto :eof
复制代码

不胜感激。

CrLf

木有缩进的代码简直没法看...

DAIC

专治“一闪而过”的秘方：

代码里面的 @echo off 删掉
保存为 C:\test.bat
打开一个CMD窗口，执行命令：
C:\test.bat

这样可以看到详细的报错信息或者线索，以及具体哪一行代码在报错。

c755731262

回复 1# dengyuli


    把最后一行的goto :eof语句去掉，就不会一闪而过

dengyuli

回复 3# DAIC


    它连报错信息都没有，在cmd下什么都不显示。

dengyuli

回复 2# CrLf


    已经添加了缩进，现在可以看了。

shelluserwlb

在命令行中运行此程序看看有什么提示。

DAIC

回复 5# dengyuli


你是不是没有理解3楼的意思？
1、把 @echo off 删掉
2、不要双击执行脚本
3、不是在“运行”里面执行 C:\test.bat
4、先手工打开一个CMD窗口，然后执行 C:\test.bat

这个做法可以看到每行命令执行的回显，而不是你说的在cmd下什么都不显示

慕夜蓝化

回复 8# DAIC


   嗯，确实可以。>_<

dengyuli

我是“先手工打开一个CMD窗口，然后执行 C:\test.bat”的啊，即使这样，它只显示前面几个命令，一碰到for命令就退出了，也没有错误信息。

apang

set a=1
if "%a%" == "1" (echo OK) else (REM Nothing)
pause
复制代码

被注释掉的部分是：Nothing)
而不是：Nothing
由于 If 语句括弧不对称，批处理异常退出

PS: 仅仅就语法而言，顶楼代码有非常多的错误，改错不如重写

dengyuli

回复 11# apang


    谢谢，我已经发现了，虽然现在可以计算出结果，但总是掺杂着一些无意义字符。