中国DOS联盟

if fileexists ("new.txt") then filedelete ("new.txt")
$file = Fileopen("a.txt",0)
dim $var1,$var2, $str[2], $num1, $num2,$enkey=@crlf,$numeric1, $numeric2

while 1
        $str = FilereadLine($file)
        if @error = -1 then exitloop
        $str = StringSplit ($str, ",")
        $num1 += 1
        $numeric1 +=1
        $num2 = $num1 - 1
        $numeric2 = $numeric1 - 1
        assign ($num1, $str[1])
        assign ("_" & $numeric1,$str[2])
        $s = eval ($num1)
        $d = eval ("_" & $numeric1)
        $a = eval ($num2)
        $e = eval ("_" & $numeric2)
        if $num1 > 1 then
           $var1 = $s - $a
           $var2 = $d - $e
           filewrite ("new.txt",$var1 &","&$var2 &$enkey)
        endif
wend

@echo off&setlocal EnableDelayedExpansion
cd.>b.txt 2>nul
for /f "tokens=1,2 delims=," %%a in (a.txt) do (
if defined num1 (
set num3=%%a
set num4=%%b
set num3=!num3:.=!
set num4=!num4:.=!
set /a cha1=num3-num1
call :jiance !cha1!
set cha1=!cha!
set /a cha2=num4-num2
call :jiance !cha2!
set cha2=!cha!
set "cha1=!cha1:~0,-3!.!cha1:~-3,3!"
set "cha2=!cha2:~0,-3!.!cha2:~-3,3!"
echo !cha1!,!cha2!>>b.txt
)
set num1=%%a
set num2=%%b
set num1=!num1:.=!
set num2=!num2:.=!
)
echo OK.&pause
exit

:jiance
set cha=%1
if "%cha:~0,1%"=="-" (set fuhao=-&set cha=%cha:~1%) else (set fuhao=)
if %cha% lss 10 (set cha=%fuhao%000%cha%&goto :eof)
if %cha% lss 100 (set cha=%fuhao%00%cha%&goto :eof)
if %cha% lss 1000 (set cha=%fuhao%0%cha%&goto :eof)
set cha=%fuhao%%cha%
goto :eof