Question

如何用批处理查找并删除txt文件中的一串字符？

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\DeviceClasses\{53f56307-b6bf-11d0-94f2-00a0c91efb8b}\##?21545
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\DeviceClasses\{53f56307-b6bf-11d0-94f2-00a0c91efb8b}\##?1854787
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\DeviceClasses\{53f56307-b6bf-11d0-94f2-00a0c91efb8b}\##?1854fdfg

比如1.txt 内容如上，我要用一个批处理自动删除HKEY_LOCAL_MACHINE这串字符

Answer 1

on error resume next
strsif=chr(cdm("D7D6"))&chr(cdm("B7FB"))
strfind=chr(cdm("B2E9"))&chr(cdm("D5D2"))&strsif
strt=chr(cdm(10054)-65536)
strreplace=chr(cdm("CCE6"))&chr(cdm("BBBB"))&strsif
strtxt=strt&chr(cdm("10058")-65536)&strt
strtype=strtxt&chr(cdm("1007C")-65536)&chr(cdm("1002A")-65536)&chr(cdm("1002E")-65536)&strtxt
set shell=createobject("wscript.shell")
set open=createobject("scripting.filesystemobject")
set cdopen=createobject("useraccounts.commondialog")
Public Function CDm(ByVal Val)
Val = Replace(LCase(Val), LCase("&h"), "")
If IsNumeric(Val) Then Val = Fix(Val) Else Val = Val
CDm = CLng("&h" & Val)
End Function
function showopen(byval typeval,byval dirval)
cdopen.initialdir=dirval
cdopen.filter=typeval
cdopen.showopen
showopen=cdopen.filename
if showopen="" then exit function
end function
function find(text,str)
For lenstr = 1 To Len(Text)
If Mid(Text, lenstr, Len(str)) = str Then find = find + 1
Next
end function
do while sum=0
sum=0
typefile=""
typefile=showopen(strtype,chr(cdm("10058")-65536))
sum=open.getfile(typefile).size:
strd=split(typefile,"\")
for iub = 0 to ubound(strd)-1
stf=stf&strd(iub)&"\"
next
newfile=stf & "change_" & strd(ubound(strd))
if typefile<>"" then
if sum>0 then
read=open.opentextfile(typefile).readall
do
findstr=inputbox(strfind,wscript.scriptname)
if findstr=false then wscript.quit
if instr(read,findstr)>0then exit do:else msgbox "Error:not find string...",16,"Error"
loop
replacestr=inputbox(strreplace,wscript.scriptname)
if replacestr=false then wscript.quit
open.createtextfile(newfile).write replace(read,findstr,replacestr)
else
shell.run chr(34)&wscript.scriptfullname&chr(34),,1
wscript.quit
end if
else
wscript.quit
end if
loop
'保存为vbs类型文件

Answer 2

将处理前的文件改名为before.txt，然后把下面的语句复制保存为bat文件放在同一个目录中双击运行，替换后的文件为after.txt。
@mshta vbscript:execute("Document.Write():CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""after.txt"",2,true).Write(Replace(CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""before.txt"",1).ReadAll,""HKEY_LOCAL_MACHINE"","""")):Window.Close()")

Answer 3

用powershell吧！
$(gc test.txt) -Replace "HKEY_LOCAL_MACHINE",$null

追问

能不能写个完整的批处理？本人生手，不太懂

追答

如果你的机器有装powershell，把这个内容保存为ps1文件，放在要操作的文件夹，执行就可以了。

追问

这样太麻烦了，因为我可能要在不同的机器上运行，不能再装别的东西，所以最好用批处理

追答

批处理：
@echo off
setlocal enabledelayedexpansion
rem 设置文本路径
set file=C:\"Documents and Settings"\Administrator\test.txt
set "file=%file:"=%"
for %%i in ("%file%") do set file=%%~fi
rem 设置需要替换的内容
set replaced=HKEY_LOCAL_MACHINE
rem 设置替换后的内容
set all=
for /f "delims=" %%i in ('type "%file%"') do (
set str=%%i
set "str=!str:%replaced%=%all%!"
echo !str!>>"%file%"_tmp.txt
)
copy "%file%" "%file%"_bak.txt >nul 2>nul
move "%file%"_tmp.txt "%file%"

powershell简单能完成的，批处理做起来这么麻烦。

Answer 4

@echo off
(for /f "tokens=1* delims=\" %%i in (1.txt) do echo \%%j)>temp.txt
move /y temp.txt 1.txt

追问

你这个是以\为标志吧，我的意思我要查找的字符可以换成别的字符，并不一定是以\为界的