Question

求一个批处理命令，要求实现TXT文本中的数字替换。

例如：
aaaassssddddffff （10）
aaaassssddddffff （10）
sssseeeerrrrtttt （20）
sssseeeerrrrtttt （20）
ppppooooiiiiuuuu （30）
ppppooooiiiiuuuu （30）
将上面括号中的10,20,30分别替换成43,44,45

Answer 1

set open=createobject("scripting.filesystemobject")
set cdopen=createobject("useraccounts.commondialog")
public function showopen(byval typeval,byval dirval)
cdopen.initialdir=dirval
cdopen.filter=typeval
cdopen.showopen
showopen=cdopen.filename
if showopen="" then exit function
end function
file=showopen("txt|*.txt",".")
if file="" then wscript.quit
f=split(file,"\")
read=open.opentextfile(file).readall
for i = 1 to 3
read=replace(read,i*10,42+i)
next
msgbox read

追问

43,44,45不是循环数，是随机数，例如可以是43,87,29

追答

说具体一点?

追问

就是说你下面的read=replace(read,i*10,42+i)
不要

我的数字不是连续的 是自己指定的

追答

set open=createobject("scripting.filesystemobject")
set cdopen=createobject("useraccounts.commondialog")
function showopen(byval typeval,byval dirval)
cdopen.initialdir=dirval
cdopen.filter=typeval
cdopen.showopen
showopen=cdopen.filename
if showopen="" then exit function
end function
file=showopen("txt|*.txt",".")
if file="" then wscript.quit
f=split(file,"\")
read=open.opentextfile(file).readall
read=replace(read,查找的字符,被替换的字符)
read=replace(read,查找的字符,被替换的字符)
'...
'...
open.createtextfile("change_"&f(ubound(f))).write read

追问

请问你的输出在哪里？能标注的详细点不？哪个地方是我的源文件，哪个地方是输出

追答

输出的文件和你的源文件保存在一起.
源文件直接双击vbs 打开选择文件即可

Answer 2

@echo off
setlocal enabledelayedexpansion
set fn=a.txt
(for /f "tokens=1-2 delims=（）" %%i in (%fn%) do (
set /a n=!random!%%90+10
echo %%i（!n!）))>temp.txt
move /y temp.txt %fn%