本帖最后由 laimao 于 2011-5-24 01:24 编辑
目前代码生成完后INI文本呈现的是:
受到大法官
得分个人
法规和肉体有
风光好人
大发光火万恶
大风歌
的防护乳房
法规和
带符号让他几乎
...
需要把代码修改成如下效果:(首行加个[名称],接下来是自动加序号)
[名称]
1=受到大法官
2=得分个人
3=法规和肉体有
4=风光好人
5=大发光火万恶
6=大风歌
7=的防护乳房
8=法规和
9=带符号让他几乎
...- @echo off
- set 数量=10000
- set 输出文件="好.ini"
-
- SetLocal EnableDelayedExpansion
- call :SetFont
- call :Next >!输出文件!
- exit /b
-
- :Next
- for /l %%a in (1 1 %数量%) do (
- set /a NameLen = !random! %% 7 + 2, 数量 -= 1
- for /l %%b in (1 1 !NameLen!) do (
- set /a RandomNum = !random! %% 2376
- set RandomNumList=!RandomNumList! !RandomNum!
- )
- for %%a in (!RandomNumList!) do set _Username=!_Username!!#%%a
- echo !_Username!
- set RandomNumList=
- set _Username=
- title 剩余 !数量!
- )
- goto :eof
-
- :SetFont
- set font=妃子纯金年代简单木木寒霜嫔青柠爱的水晶石太子妃周玲哇哈哈李雪静宝宝兔猫子我的曦儿小小不拜笑若风尘文文老妈歆缘双双超幸福香香儿谢阿梅旋律熊天for /l %%a in (0,1,2375) do set #%%a=!font:~%%a,1!
复制代码
|