[文本处理] [已解决]求助批处理根据文件夹所在的盘符修改指定文本中特定的字符

大地

求助：根据文件夹所在的盘符修改指定文本中特定的字符
有个文件夹命名为：ABCD  但它不确定在哪个盘符中存在，有时在C盘  有时在H盘……。 如果找到在F盘中存在，则修改123.ini中内容C:\ABCD 替换为 F:\ABCD
如果在K盘中存在，则改为K:\ABCD   并且在文本中不止一处，可能有多处，要全部替换完毕，
哪位大神帮忙写一下，谢谢!

idwma

@echo off
setlocal enabledelayedexpansion
set a=abcdefghijklmnopqrstuvwxyz
for /l %%i in (0;1;25) do (
    set "b=!a:~%%i,1!:\windows"
    if exist "!b!" (
	for %%k in ("123.ini" "456.ini" "789.ini") do (
	    (for /f "usebackq delims=" %%j in (%%k) do (
		set "c=%%j"
		call echo %%c:C:\ABCD=!b!%%
	    ))>123.txt
	    move /y 123.txt %%k
	)
    )
)
pause
复制代码

大地

回复 4# idwma


    老大  假设其它条件完全一样，如果同时修改三个文件，123.ini  456.ini   789.ini   该如何添加语句，我瞎试了一下，加个逗号没能成功 哈

大地

回复 4# idwma


    老大  厉害  成功了  语句我虽然还有点看不懂  慢慢理解吧  谢谢

idwma

回复 3# 大地

@echo off
setlocal enabledelayedexpansion
set a=abcdefghijklmnopqrstuvwxyz
for /l %%i in (0;1;25) do (
    set "b=!a:~%%i,1!:\ABCD"
    if exist "!b!" (
	(for /f "delims=" %%j in (123.ini) do (
	    set "c=%%j"
	    call echo %%c:C:\ABCD=!b!%%
	))>123.txt
    )
)
move /y 123.txt 123.ini
pause
复制代码

大地

回复 2# idwma


测试成功  谢谢老大  

不过我的另一个精简系统中无法使用  能不能不用VB语句 用纯DOS式的批处理语句写  这样局限性小，应用范围广一点。

idwma

/*&@cls&echo off
cscript -nologo -e:jscript %0
pause
exit
*/

a='123.ini';
b='ABCD';
c=/f:\\ABCD/;
fs=WSH.CreateObject('Scripting.FileSystemObject');
d=fs.OpenTextFile(a).ReadAll();
for(i=65;i<91;i++){
    if(fs.FolderExists(String.fromCharCode(i)+':\\'+b)){
	e=fs.OpenTextFile(a,2);
	e.Write(d.replace(c,String.fromCharCode(i)+':\\'+b));
    }
}
复制代码