[文本处理] 如何替换指定特征的字符串

$ScDir="F:\Test Dir"  #设置文件目录
Get-ChildItem -Path $ScDir -Recurse -File|ForEach-Object{
    $flag=0;$string=$null;
    $content=Get-Content $_.FullName
    foreach($line in $content){
        if($line -match ';www'){$flag=1}
        if($flag -eq 1){$line=($line -replace '1,0=·啊2','a总·bc');}
        $string+=($line+"`r`n");
    }
    $string|Out-File -FilePath $_.FullName;
}
复制代码

  
@Echo Off
set "$=;www"
for /f "delims=" %%i in ('dir/a-d/s/b "%~dp0*.txt"')do (
 call:1 "%%~fi"
)
pause
goto:eof
:1
if not defined $ (echo,错误)>>"%~dp0错误记录.log"&goto:eof
set "#="
for /f "eol= tokens=* delims=" %%i in ('type "%~f1"')do (
 if /i "%%i"=="%$%" set "#=y"
 if not defined # (echo,%%i
 )else (
  for /f "eol= tokens=1,* delims=|" %%j in ("%%i")do (
   if /i "%%j"=="1,0=·啊2" (
    echo,a总·bc^|%%k
   )else (
    echo,%%i
   )
  )
 )
)
goto:eof
 
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder(".").Files
    strFile = f.Path
    If LCase(Right(strFile, 4)) = ".txt" Then
        Set objFile = fso.OpenTextFile(strFile, 1)
        arr = Split(objFile.ReadAll(), ";www")
        objFile.Close()
        If UBound(arr) >= 1 Then arr(1) = Replace(arr(1), "1,0=·啊2", "a总·bc")
        fso.OpenTextFile(strFile, 2).Write(Join(arr, ";www"))
    End If
Next

MsgBox "Done"
复制代码

srcDir = "E:\Test"
Set fso = CreateObject("Scripting.FileSystemObject")

ReplaceString srcDir

Function ReplaceString(ByRef srcDir)
    For Each f In fso.GetFolder(srcDir).Files
        strFile = f.Path
        If LCase(Right(strFile, 4)) = ".txt" Then
            Set objFile = fso.OpenTextFile(strFile, 1)
            arr = Split(objFile.ReadAll(), ";www")
            objFile.Close()
            If UBound(arr) >= 1 Then arr(1) = Replace(arr(1), "1,0=·啊2", "a总·bc")
            fso.OpenTextFile(strFile, 2).Write(Join(arr, ";www"))
        End If
    Next
    For Each fd In fso.GetFolder(srcDir).SubFolders
        ReplaceString fd.Path
    Next
End Function

MsgBox "Done"
复制代码