happy886rr

回复 1# meiszp
纯批模拟科学计数法

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
(for /f "tokens=1,2,*" %%a in ('type test.txt') do (
	for /f "tokens=1,2 delims=e" %%A in ("%%a") do (
		set "str=%%B"
		if "!str:~0,1!"=="-" (
			set/a "str=1!str:~1!+1"&set "str=-!str:~-3!"
		) else (
			if "!str!"=="+000"   (
				set "str=-001"
			) else (
				set/a "str=1!str:~!-1"&set "str=+!str:~-3!"
			)
		)
		set "lie1=  %%Ae!str!"
	)
	for /f "tokens=1,2 delims=e" %%A in ("%%b") do (
		set "str=%%B"&set "ptr=%%A"&set "ptr=!ptr:.=!"
		if !ptr! geq 200000000 (set/a ptr/=2) else (set/a ptr=!ptr!0/2)
		if !ptr! geq 500000000 (set Mark=1) else (set Mark=0)
		if "!str:~0,1!"=="-" (
			set/a "str=1!str:~!+1+Mark"&set "str=-!str:~1!"
		) else (
			if "!str!"=="+000"   (
				if !Mark! equ 1 (set "str=-001") else (set "str=-002")
			) else (
				set/a "str=1!str:~1!-1-Mark"&set "str=+!str:~1!"
			)
		)
		set "lie2=  !ptr:~0,1!.!ptr:~1!e!str!"
	)
	echo !lie1:~-16! !lie2:~-16! %%c
))>new.txt
start new.txt
set/p=修改完毕！
复制代码

happy886rr

回复 13# meiszp
没有结果那就对了，我只修改名字为test.txt的文件，对了，我还没有加pause。速度太快，结果一闪而过。已添加pause，请在原楼复制吧。

happy886rr

回复 17# meiszp
已添加打印输出，请到6楼重新复制。

happy886rr

回复 19# meiszp
抱歉，你什么参数都不确定，我也无能为力了。