中国DOS联盟

很高兴和大家相识,我是新人,多多照顾.

最近在制作绿色软件的过程遇到一个问题,因为在制作绿色软件时,有些软件必须在注册表中写入路径才能运行,文件关联也必须要使用路径才能实现,所以我把注册表导出来后,想根据当前绿色软件的路径使用DOS工具或是处理来完成路径替换,然后再导入到注册表中,如我原来安装的软件路径是E:\OFFICE2003,导出的注册表的某段文本是

@="E:\\OFFICE2003\\OFFICE11\\WINWORD.EXE,1",现在我想批量替换路径E:\\OFFICE2003为当前绿色软件的路径F:\\MYOFFICE(又如何获取当前路径呢?),如何批量替换这些路径呢,望大家指点下.谢谢..

在线等待..................................

[ Last edited by willsort on 2006-9-11 at 00:34 ]

用批处理啊，在要运行主程序之前先运行注册表注册表文件， 我网吧也些游戏也是这样做`！

chainliq
谢谢你的回答,但是你没有弄清楚我的问题,我是希望在运行主程序之前,如何批量修改注册表中的内容以适应不同的路径环境.

怎么这么久都没有人回答呀，是不是太简单了，没有人愿意回答呀。

获取当前路径的例子我已经找到了，贴出来大家共享:
rem 先要建立一个PathTemp.txt文本文件,内容包括set PathTemp=,请不要使用回车
cls
rem 复制PathTemp.txt为temp.bat并把当前的路径追加到temp.bat文件中
copy PathTemp.txt temp.bat
cd>>temp.bat
REM 调用temp.bat批处理文件以设置路径变量,成功后删除改文件
call temp.bat
del temp.bat
rem 以后都可以使用 %PathTemp% 来引用这个路径变量了,如Xcopy c:\boot.ini %PathTemp% /H/Y >NULL
Xcopy c:\boot.ini %PathTemp% /H/Y>NULL
CLS

补充一下,需要这个批处理程序运行在WINXP下,另外,这里怎么上传附件

为什么不用记事本的替换哪？

Re HUNRYBECKY:

在XP等NT环境的CMD中，可以直接引用系统变量%cd%来获取当前路径。

至于文本的替换，方案已经有很多了，都各有优劣，下面摘录Marco Maier Said总结的代码方案，其中有些是适合插入到你的代码中的。

Find & Replace by a batch file ??
http://groups.google.com/group/alt.msdos.batch/browse_thread/thread/6999dd86fb082377

:::1:::
CMD with variable substitution:


@echo off
if exist outf.txt del outf.txt
findstr /n "\<*" "infile.txt" > temp._t
for /f "tokens=*" %%a in (temp._t) do set "b=%%a" & call :sub
del temp._t & goto :eof
:sub
set "b=%b:"=¬%"
set "b=%b:^=^^%"
set "b=%b:|=^|%"
set "b=%b:&=^&%"
set "b=%b:(=^(%"
set "b=%b:)=^)%"
set "b=%b:>=^>%"
set "b=%b:<=^<%"
set "b=%b:search=replace%"
set "b=%b:¬="%"



>>outf.txt call echo.%%b:*:=%%


:::2:::
CMD with edlin

@echo off
if exist 3_ del 3_
for /f "tokens=1 delims=:" %%a in ('findstr /n "\<*" "%1"') do set n=%%a
set /a n=n/23
<nul>0_ (set /p="1r%~2")
<nul>2_ (set /p="%~3")


>nul copy /a 0_ 1_
>nul copy /b 1_+2_ 3_
>>3_ echo.
>>3_ echo w
>>3_ echo 900a


for /l %%a in (1,1,%n%) do >>4_ type 3_

>>3_ type 4_
>>3_ echo e
>nul<3_ edlin %1


del *.bak
del *_
exit

:::3:::
CMD via .com file:


Asm Source:


0100 MOV SI,0080
0103 CLD
0104 CALL 01E3
0107 INC SI
0108 MOV ,SI
010C CMP BYTE PTR ,22
010F JZ 0114
0111 INC SI
0112 JMP 010C
0114 MOV BYTE PTR ,00
0117 CALL 01E3
011A XOR CX,CX
011C MOV DI,0200
011F CALL 01D3
0122 CALL 01E3
0125 MOV ,CX
0129 XOR CX,CX
012B MOV DI,0280
012E CALL 01D3
0131 JMP 0145
0133 CMP DX,5120
0137 JNZ 013F
0139 MOV AH,3E
013B INT 21
013D INT 20
013F SUB DX,5120
0143 JMP 0181
0145 MOV ,CX
0149 MOV AX,716C
014C MOV BX,0002
014F MOV CX,0000
0152 MOV DX,0001
0155 MOV SI,
0159 INT 21
015B JB 013D
015D MOV ,AX
0160 MOV BX,
0164 MOV DX,511F
0167 ADD DX,+01
016A MOV SI,DX
016C MOV CX,0001
016F MOV AH,3F
0171 INT 21
0173 CMP AX,0000
0176 JZ 0133
0178 CMP BYTE PTR ,0A
017B JNZ 0167
017D SUB DX,511F
0181 MOV BX,5120
0184 MOV AX,0300
0187 MOV SI,0200
018A MOV DI,BX
018C MOV CX,
0190 REPZ
0191 CMPSB
0192 MOV DI,AX
0194 JZ 019E
0196 MOV SI,BX
0198 MOVSB
0199 INC AX
019A INC BX
019B DEC DX
019C JMP 01B1
019E MOV SI,0280
01A1 MOV CX,
01A5 ADD AX,CX
01A7 ADD BX,
01AB SUB DX,
01AF REPZ
01B0 MOVSB
01B1 DX,
01B5 0187
01B7 CX,DX
01B9 AX,CX
01BB MOV SI,BX
01BD REPZ
01BE MOVSB
01BF MOV BYTE PTR ,00
01C2 MOV SI,0300
01C5 MOV DL,
01C7 MOV AH,02
01C9 INT 21
01CB INC SI
01CC CMP BYTE PTR ,00
01CF JZ 0160
01D1 JMP 01C5
01D3 INC SI
01D4 LODSB
01D5 CMP AL,22
01D7 JNZ 01DF
01D9 CALL 01EA
01DC JNB 01DF
01DE RET
01DF STOSB
01E0 INC CX
01E1 JMP 01D4
01E3 INC SI
01E4 CMP BYTE PTR ,20
01E7 JZ 01E3
01E9 RET
01EA CLC
01EB CMP BYTE PTR ,20
01EE JZ 01F6
01F0 CMP BYTE PTR ,0D
01F3 JZ 01F6
01F5 RET
01F6 STC
01F7 RET


Ascii version obtained with laura fairhead's cm3.com
(http://lf.8k.com/TOOLS/CM3.HTM) :


echo `h}aXP5y`P]4nP_XW(F4(F6(F=(FF)FH(FL(Fe(FR0FTs*}`A?+,>#.com
echo fkOU):G*@Crv,*t$HU
mY5MC_p}y$6IVsW}j/iaUyDsX6j$fFEY*yG?Eff_H?9\FK>>#.com
echo b4QQ3?RMd{A`j{+RDQR_7dt]Zmqz$vXNLN_1kdN~eJ$W4=7xjv)6Lbzc3$_Q>>#.com
echo sW$_M2~R7Lh*vz$VkbqJ2B9`+,=e;'(XM\J;e0;vMIB,CQQf+vHMypsS\$_$>>#.com
echo Aixs~)Gw?Ctz?rjsEQH.egz$v]l'7W,F3nwQnw.dd,yH.4oTxXsXTvwTChph>>#.com
echo 9}$:?MAbsZI'=Ux'`M@'MY=m:t0M_zzS$'Z7{_t'ra=m1m6MCLdzQNG*a(,A>>#.com
echo }TMAJFgg}p6UGHUS)$C4+K#>>#.com


#.com "infile.ext" "string1" "string2">"outfile.ext"


infile.ext, string1 e string2 between ""


:::4:::
VBScript:


Set fso=CreateObject("Scripting.FileSystemObject")
r="text.txt"
if fso.FileExists(r)=false then
wscript.Quit
end if
set f=fso.OpenTextFile(r,1)
s=f.ReadAll
n=replace(s,"search","replace",1,-1,0)
set f=fso.OpenTextFile(r,2)
f.Write n
f.Close


:::5:::
VBScript using CommonDialog:


Set fil = CreateObject("UserAccounts.CommonDialog")
fil.ShowOpen
Set fso=CreateObject("Scripting.FileSystemObject")
s=inputbox("String to find")
re=inputbox("Replace with "&s&" with:")
r=fil.FileName
if fso.FileExists(r)=false then
wscript.Quit
end if
set f=fso.OpenTextFile(r,1)
ss=f.ReadAll
n=replace(ss,s,re,1,-1,0)
set f=fso.OpenTextFile(r,2)
f.Write n
f.Close


:::6:::
VBScript with Internet Explorer:


Set objShell = CreateObject("Wscript.Shell")
On Error Resume Next
Err.Clear
Set objIE = CreateObject("InternetExplorer.Application")
If Err.Number <> 0 Then
Err.Clear
Msgbox "Internet Explorer is not installed.", 16, "Browser"
Wscript.Quit(1)
End If
On Error GoTo 0
fil = sf("C:\")
If fil = "" Then
Msgbox "No file selected", 16, "Browser"
Else
Set fso=CreateObject("Scripting.FileSystemObject")
s=inputbox("String to find:")
re=inputbox("Replace "&s&" with:")
r=fil
if fso.FileExists(r)=false then
wscript.Quit
end if
set f=fso.OpenTextFile(r,1)
ss=f.ReadAll
n=replace(ss,s,re,1,-1,0)
set f=fso.OpenTextFile(r,2)
f.Write n
f.Close
End If
Set objIE = Nothing
Set objShell = Nothing
Function sf(fsp)
With objIE
.Navigate("about:blank")
Do Until .ReadyState = 4
If Wscript.Version > 5 Then
Wscript.Sleep 100
End If
Loop
With .Document
.Write("<html><body><input id=file type=file></body></html>")
.all.file.focus
If Wscript.Version > 5 Then
objShell.SendKeys fsp & "{Tab}"
Wscript.Sleep 200
End If
.all.file.click
sf = .all.file.value
If sf = fsp Then
sf = ""
End If
End With
End With
End Function


:::7:::
CMD + VBScript:


a)



>_.vbs echo Wscript.StdOut.Write Replace(WScript.StdIn.ReadAll,Wscript.arguments(0), Wscript.arguments(1))


<infile.txt cscript /nologo _.vbs "search" "replace">outfile.txt

b)
To replace the character " :



>_.vbs echo q=chr(34)
>>_.vbs echo s="search string"
>>_.vbs echo r="replace string"
>>_.vbs echo Wscript.StdOut.Write Replace(WScript.StdIn.ReadAll,q^&s^&q,r)


<infile.txt cscript /nologo _.vbs >outfile.txt

上面的这些一个都没有看懂......哎

我也遇到同样的问题，望有人能讲解一下。

Originally posted by windzb at 2006-10-29 06:05:
我也遇到同样的问题，望有人能讲解一下。

　　遇到了什么问题了？

　　如果你的问题和楼主的大同小异，就把你的问题详细的描述一遍，让大伙知道你的问题所在，这样才好替你思考你的问题，如果你的问题也是看不懂 willsort 兄发的帖子的内容的话，那别人就没有办法了，因为太多了，不好解释的。顶多说说是由哪几个脚本所完成的。如果遇到新的问题的话，你可以单独发一个主题，来描述你的问题，一来便于大家看你的问题，二来有利于论坛的搜索功能的检索。谢谢合作。

不好意思，笔误。
是遇到了和楼主一样的问题。

想批量替换 联众注册表里的游戏路径为本地路径

注册表已经提取出来，命名为game.reg。

里面的路径 是 l:\\游戏\\Globallink\\ 替换成本地路径的话 是否可以使用 %CD% 呢？

但是 使用 %CD% 得到的路径是 l:\游戏\Globallink\
直接替换的话就是不对的吧？

使用 %CD% 变量后应该不存在替换路径的问题.
比如: [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00020901-0000-0000-C000-000000000046}\DefaultIcon]
@="E:\\OFFICE2003\\OFFICE11\\WINWORD.EXE,1" 直接用:
reg add "HKLM\SOFTWARE\Classes\CLSID\{00020901-0000-0000-C000-000000000046}\DefaultIcon" /ve /d "%CD%\WINWORD.EXE,%%1%" /f 即可.
至于文件关联,可以看看下面这两个文件的帮助信息
ASSOC 显示或修改文件扩展名关联。
FTYPE 显示或修改用于文件扩展名关联的文件类型。
..... 批处理应该可以减少很多行...

感谢楼上提供的方法，有想到过。

但是联众的注册表上千行的 不可能每一行都手动添加 reg add

可以直接替换外部的game.reg文件里的内容吗？