''桌面文件夹路径
strDesk = CreateObject("WScript.Shell").SpecialFolders("Desktop")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strDesk)
''快捷方式的目标文件路径
strPath1 = objFolder.ParseName("周志.Lnk").GetLink.Path
strPath2 = objFolder.ParseName("日志.Lnk").GetLink.Path

Set fso = CreateObject("Scripting.FileSystemObject")
''读取目标文件内容
txt1 = fso.OpenTextFile(strPath1, 1).ReadAll
txt2 = fso.OpenTextFile(strPath2, 1).ReadAll

''建立正则表达式，替换文本内容
Set re = New RegExp
re.Pattern = "^ *（2）([\s\S]*?)(?=^ *（)"
re.MultiLine = True
If Not re.Test(txt1 & vbCrLf & "（") Then WScript.Quit
s = re.Execute(txt1 & vbCrLf & "（")(0).SubMatches(0)
re.Pattern = "(3、).*(\n|$)"
txt2 = re.Replace(txt2, "$1" & s)
fso.OpenTextFile(strPath2, 2).Write txt2
复制代码

@ECHO off

:_start
set /p lnkA=拖入周志快捷方式:
set /p lnkB=拖入日志快捷方式:

if "%lnkA%" EQU "" echo 输入参数不全，请重试&pause&goto :_start
if "%lnkB%" EQU "" echo 输入参数不全，请重试&pause&goto :_start

set "lnkA=%lnkA:\=\\%"
set "lnkB=%lnkB:\=\\%"

for /f "skip=1 delims=" %%i in ('wmic path win32_shortcutfile where Name^="%lnkA%" get target') do set "filA=%%i"
for /f "skip=1 delims=" %%i in ('wmic path win32_shortcutfile where Name^="%lnkB%" get target') do set "filB=%%i"

set fil

for /f "tokens=1 delims=[]" %%i in ('^<"%filA%" find /n "（2）"') do set /a offset=%%i
set /a offset-=1
echo offset : %offset%

(for /f "tokens=*" %%i in ('^<"%filA%" more +%offset%') do (
	(echo %%i | findstr /v "（3）") && call set strRe=%%strRe%%%%i || GOTO :_read_end
))>nul
:_read_end
set strRe=%strRe:~3%
echo %strRe%

(for /f "tokens=*" %%i in (%filB%) do (
	(echo %%i | findstr /v "3、") || echo 3、%strRe%
))>new.txt
start new.txt
pause
复制代码