批处理如何复制文本某内容到另一文本某位置？

Aolnle · 发表于 2014-11-20 12:43:28

描述：桌面上有两个文本快捷方式，分别名为：*周志.link *日志.link
周志文本内容形式如下：
（1）XXXXX
（2）YYYYYY
ZZZZZ
（3）XXXXX
日志文本内容形式如下：
1、XXXXXX
2、XXXXXX
3、
4、XXXXXX
请问如何以批处理运行打开*周志.link所指向的文本，复制（2）所包含的部分并粘贴到*日志.link所指向的文本中的3、后面，运行后期待结果如下：
运行后日志文本内容：
1、XXXXXX
2、XXXXXX
3、YYYYYYY
ZZZZZZ
4、XXXXXX

大神大神，急求急求！:)

Aolnle · 发表于 2014-11-20 13:59:24

大神，你在哪里？！

apang · 发表于 2014-11-20 16:09:43

本帖最后由 apang 于 2014-11-26 10:03 编辑

试试vbs

''桌面文件夹路径
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

复制代码

Aolnle · 发表于 2014-11-20 16:29:15

大神运行后出现错误，提示：缺少对象：'ParseName(...)'

apang · 发表于 2014-11-20 16:40:24

回复 4# Aolnle

LNK文件放要到桌面，第5行的周志.LNK 日志.LNK文件名改成实际的文件名

Aolnle · 发表于 2014-11-20 17:09:28

回复 5# apang

大神这次出现了行1 字符13 输出超出了文件尾的错误

apang · 发表于 2014-11-20 17:16:53

回复 6# Aolnle

把你测试的文件打包，上传，我试试

amwfjhh · 发表于 2014-11-20 17:26:49

本帖最后由 amwfjhh 于 2014-11-20 17:34 编辑

@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

复制代码

Aolnle · 发表于 2014-11-20 18:18:51

回复 8# amwfjhh 大神，你完美的解决了我的问题，多谢！！

Aolnle · 发表于 2014-11-20 18:21:44

回复 7# apang

多谢大神，问题解决了，辛苦了！

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 批处理如何复制文本某内容到另一文本某位置？