中国DOS联盟

if fileexists ("new.txt") then filedelete ("new.txt")

$file = Fileopen("a.txt",0)

dim $var1,$var2, $str, $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)

        assign ("_" & $numeric1,$str)

        $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

Originally posted by 3391617 at 2008-10-25 17:23:
我测试一下看看

@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