[文本处理] 批处理怎样修改配置文件ini中的参数为随机数值？

mm123321

假设C盘下面【Settings.ini】文件，文件内容如下：

[Settings]
X=974

Y=438

PicPath=111.png

TrayIcon=0


每运行一下bat将 974 和 438 修改为随机数值，数值的范围为：100到1024 直接。

谢大神！！！！

heyoug

@echo off

set /A LS=%RANDOM%%%1025
if %LS% LSS 100 set /A LS=%LS%+100
set /A LA=%RANDOM%%%1025
if %LA% LSS 100 set /A LA=%LA%+100
echo [Settings]>c:\Settings.ini
echo X=%LS%>>c:\Settings.ini
echo.>>c:\Settings.ini
echo Y=%LA%>>c:\Settings.ini
echo.>>c:\Settings.ini
echo PicPath=111.png>>c:\Settings.ini
echo.>>c:\Settings.ini
echo TrayIcon=^0>>c:\Settings.ini

heyoug

不确定是否严谨

codegay

Nim 语言写的。

import os, parsecfg, random
randomize()

var inipath = getAppDir() / "Settings.ini"
var ini = loadConfig inipath

var x = rand(100..1024)
var y = rand(100..1024)

ini.setSectionKey("Settings", "X", $x)
ini.setSectionKey("Settings", "Y", $y)

ini.writeConfig(inipath)
复制代码

nim代码写起来挺简洁，但是parsecfg有坑，比如不保持原配置文件的空行和回车换行格式，会使用unix换行风格保存文件。

jiavip

回复 2# heyoug

我写的随机数没你那么复杂，，，看我的写法，，

@ECHO OFF
:RUN
SET LS=%RANDOM%
IF %LS% LSS 100 GOTO RUN 
IF %LS% GTR 1024 GOTO RUN
ECHO 这里就是你想要的100~1024随机数。。。。 【 %LS% 】
PAUSE>NUL
GOTO RUN
复制代码

Batcher

回复 5# jiavip


算法的好坏跟代码的长短没有必然的联系。推荐参考一下别的的思路：

批处理产生四个四位不重复的随机数
http://bbs.bathome.net/thread-470-1-1.html

怎么理解批处理产生不重复的随机数的思路？
http://bbs.bathome.net/thread-12260-1-1.html

批处理随机输出数字1~100不重复
http://bbs.bathome.net/thread-3733-1-1.html

批处理 互不相同随机数生成
http://bbs.bathome.net/thread-28168-1-1.html

批处理如何产生100-200之间不重复的的随机数？
http://bbs.bathome.net/thread-9702-1-1.html

批处理生成100个不重复的随机数
http://bbs.bathome.net/thread-568-1-1.html

批处理如何产生一个100-200 之间的随机数？
http://bbs.bathome.net/thread-468-1-1.html

523066680

sed之类的是不是可以一句话解决？

Perl是这样的

use File::Slurp;
my $s = read_file("Setttings.ini");
$s=~s/(974|438)/int(rand(1024-100+1)+100)/eg;
write_file("Setttings.ini.txt", $s);
复制代码

tigerpower

perl -i -pe "s/\d+/int(rand(925))+100/e if /^[XY]=/" settings.ini
复制代码

flashercs

这样 会不会把非[settings]section下的字段x,y也改了?
比如

[Settings]
X=974

Y=438

PicPath=111.png

TrayIcon=0
[config]
X=-1
Y=3
复制代码

523066680

回复 9# flashercs

    既然题主已经限定了文件内容，那我们就根据实际情况而解吧。
11楼已经把行号硬编码处理了 ……

tigerpower

回复 9# flashercs

perl -i -pe "s/\d+/int(rand(925))+100/e if $.=~/^[24]$/" settings.ini
复制代码