本帖最后由 batman 于 2013-9-27 21:13 编辑
请先在运行代码前将文本中的*字符手工替换为××,不然有*字符的这一段会出现乱插入的情况 ,至于标点分隔符自己可以在代码中添加:- @echo off&setlocal enabledelayedexpansion
- for /l %%a in (10000,1,11000) do set "a=%%a"&set "code=!a:~1!!code!"
- (for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
- if "%%b" neq "" (
- set "str=%%b"&set "var=%%b"&set /a total=0,m=0
- for %%c in ("," ";" " " " ") do set "str=!str:%%~c=@!"
- for %%c in (, 。 ? !) do set "str=!str:%%c= !"
- for %%c in (!str!) do (
- set "zf=%%c%%c%%c%%c!code!"
- set /a zf=1!zf:~4000,4!-9999,total+=zf
- set "bd=!bd! !total!"
- )
- for %%c in (!bd!) do (
- set /a a=!random! %% 2
- if !a! equ 0 if %%c neq !total! (
- set /a b=%%c+m
- for %%d in (!b!) do (
- set "var=!var:~,%%d!{title}!var:~%%d!"
- set /a m+=7
- )
- )
- )
- echo,!var!&set "bd="
- ) else (
- echo,
- )
- ))>new.txt
- start new.txt
复制代码
|