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

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