标题: 如何在批处理中实现对文本文档的每一行开头或者末尾加入 [打印本页]
作者: liuwei723 时间: 2006-4-26 15:08 标题: 如何在批处理中实现对文本文档的每一行开头或者末尾加入
我想在一个文本文档的每一行的开头和结尾加上特定的字符串，请问如何实现？
Last edited by liuwei723 on 2006-4-26 at 15:09 ]
Last edited by liuwei723 on 2006-4-26 at 15:09 ]
作者: bush 时间: 2006-4-28 00:51
dos下，好像这个只有用第三方工具。 vbs的倒好容易。
我以前都是用change.exe来处理文字替换，行首插入稍微麻烦一点
我以前都是用change.exe来处理文字替换，行首插入稍微麻烦一点
作者: Wengier 时间: 2006-4-28 01:12
DOS下倒是可以试试lmod工具来实现，比如说：
type in.txt | lmod start [] end > out.txt
这样就可以在in.txt中每行的开头和结尾加入字符串，并将结果输入到out.txt
type in.txt | lmod start [] end > out.txt
这样就可以在in.txt中每行的开头和结尾加入字符串，并将结果输入到out.txt
作者: bagpipe 时间: 2006-4-28 11:44
@echo off
setlocal enabledelayedexpansion
set mm=%1
set /p start=输入每行开头要添加的字符串：
set /p end=输入每行结为要添加的字符串：
for /f "tokens=1,2* delims=:" %%i in ('findstr /n . %mm%') do echo ^!start^!%%j^!end^! >>22.txt
endlocal
前几天看过无奈何兄的那个前后加符号的回帖，上面的可以过滤空白行，不过生成的文件把以前的空白行删除了，不知道空白行对楼主有用还是没用，还有就是对于" & <"这些字符的处理问题，ECHO命令是不能直接写入生成的，所以需要用^前导字符来进行显示，如果楼主没有其他要求，这个应该差不多也许大概应该可以完成基本的使用了！！！！！！！！
setlocal enabledelayedexpansion
set mm=%1
set /p start=输入每行开头要添加的字符串：
set /p end=输入每行结为要添加的字符串：
for /f "tokens=1,2* delims=:" %%i in ('findstr /n . %mm%') do echo ^!start^!%%j^!end^! >>22.txt
endlocal
前几天看过无奈何兄的那个前后加符号的回帖，上面的可以过滤空白行，不过生成的文件把以前的空白行删除了，不知道空白行对楼主有用还是没用，还有就是对于" & <"这些字符的处理问题，ECHO命令是不能直接写入生成的，所以需要用^前导字符来进行显示，如果楼主没有其他要求，这个应该差不多也许大概应该可以完成基本的使用了！！！！！！！！
作者: liuwei723 时间: 2006-4-28 19:22
Originally posted by bagpipe at 2006-4-28 11:44:
@echo off
setlocal enabledelayedexpansion
set mm=%1
set /p start=输入每行开头要添加的字符串：
set /p end=输入每行结为要添加的字符串：
for /f "tokens=1,2* delim ...
呵呵，谢谢。几位兄弟给我写的代码，我都仔细研究过，总算可以达到要求了。
以前由于对批处理接触的少，所以这方面就不太了解，研究了两天，总算学到了些东西，对批处理有了进一步的了解。现在就是对FOR和SET没有完全搞明白。其帮助文件说的也不太明白，而对于这方面的一些讨论，大多也只有怎么写代码，没有解释其含义的。不知谁能够提供给我一个好点的东西，可以再深层学习一下。
作者: bagpipe 时间: 2006-4-30 12:37
http://www.cn-dos.net/forum/viewthread.php?tid=19331&fpage=1&highlight=%2Bbagpipe
论坛中好像很多介绍命令的，自己好好看看，主要是对实践一下，上面的也许对你有帮助
论坛中好像很多介绍命令的，自己好好看看，主要是对实践一下，上面的也许对你有帮助
作者: liuwei723 时间: 2006-4-30 17:55
Originally posted by bagpipe at 2006-4-30 12:37:
http://www.cn-dos.net/forum/viewthread.php?tid=19331&fpage=1&highlight=%2Bbagpipe
论坛中好像很多介绍命令的，自己好好看看，主要是对实践一下，上面的 ...
呵呵，谢谢～后来我专门把for仔细研究了一下，做了些实践，总算把for的几个参数搞明白是怎么回事。这篇文章真的不错，早看我就早点明白了，收藏下拉，呵呵。
作者: khw 时间: 2006-5-2 01:32
我想在一個文本文檔的每一字後面加上特定的字符串，請問如何實現？
如:
可愛的太陽啊
微微的春風吹
變成:
可-愛-的-太-陽-啊-
微-微-的-春-風-吹-
求各位高手幫忙處理!!!!
如:
可愛的太陽啊
微微的春風吹
變成:
可-愛-的-太-陽-啊-
微-微-的-春-風-吹-
求各位高手幫忙處理!!!!
作者: 3742668 时间: 2006-5-2 08:59
Re khw:
如果纯粹地用批处理来解决的在效率以及容错上面不是很理想，而且相对比较繁琐，建议用vbs解决:
保存为 字符处理.vbs 后把要处理的文件拖到它上面或直接双击运行都可以，在弹出的对话框中输入你想插入的符号。
不光可以插入符号，还可以删除和替换符号，具体不足之处自己看着改改吧，windows xp pro sp2下测试通过。
ps:建议单独的问题单独发一个贴。
如果纯粹地用批处理来解决的在效率以及容错上面不是很理想，而且相对比较繁琐，建议用vbs解决:
SFile = GetFileName()
Msg = "替换字符格式为:" & vbtab & "str1:=str2" & vblf
Msg = Msg & "省略str2可以删除str1"
Str = inputbox(Msg,"输入要插入的字符:")
if len(Str) = 0 then Wscript.Quit
'先把文件读到StrOld中，然后把处理后的字符串StrNew写回到文件
with CreateObject("Scripting.FileSystemObject")
set F = .OpenTextFile(SFile,1,True)
StrOld = F.ReadAll
set F = Nothing
set F = .OpenTextFile(SFile,2,True)
if len(Str) > 1 and instr(Str,":=") then
StrArray = split(Str,":=")
StrNew = Replace(StrOld,StrArray(0),StrArray(1))
else
StrNew = InertStr()
end if
F.Write(StrNew)
end with
'插入字符函数,依次读入每个字符并判断是否为空格，回车，换行
Function InertStr()
for i = 1 to len(StrOld)
if mid(StrOld,i,1) = space(1) or _
asc(mid(StrOld,i,1)) = 13 or _
asc(mid(StrOld,i,1)) = 10 then
strTmp = strTmp & mid(StrOld,i,1)
else
strTmp = strTmp & mid(StrOld,i,1) & Str
end if
next
InertStr = strTmp
End Function
'获得被操作文件名
Function GetFileName()
if WScript.Arguments.Count <> 0 Then
GetFileName = Wscript.Arguments(0)
else
with CreateObject("UserAccounts.CommonDialog")
.Filter = "文本文件|*.txt|所有文件|*.*"
.ShowOpen
GetFileName = .Filename
end with
end if
if len(trim(GetFileName)) = 0 then Wscript.Quit
End Function
保存为 字符处理.vbs 后把要处理的文件拖到它上面或直接双击运行都可以，在弹出的对话框中输入你想插入的符号。
不光可以插入符号，还可以删除和替换符号，具体不足之处自己看着改改吧，windows xp pro sp2下测试通过。
ps:建议单独的问题单独发一个贴。
作者: khw 时间: 2006-5-2 14:55
3742668版主您好 :
我已測試ok,非常感謝您的詳細解答,真是佩服佩服!
khw
我已測試ok,非常感謝您的詳細解答,真是佩服佩服!
khw
作者: doscc 时间: 2006-5-2 18:01
收下脚本.
作者: vkill 时间: 2006-11-4 07:21
这个问题sed 解决最好，我感觉~任何字符都经过测试,一句话就可以
sed "s/^/\/span>/;s/\x24/\/span>/" test.txt
sed下载:http://www.student.northpark.edu/pemente/sed/gsed407x.zip
sed "s/^/\/span>/;s/\x24/\/span>/" test.txt
sed下载:http://www.student.northpark.edu/pemente/sed/gsed407x.zip
作者: youxi01 时间: 2006-11-4 09:58
在批处理中，对于空行的问题，似乎可以这样解决：
将原来的for /f "tokens=1,2* delims=:" %%i in ('findstr /n . 1.txt')
改成for /f "tokens=1,2* delims=:" %%i in ('findstr /n .* 1.txt')
@echo off
setlocal enabledelayedexpansion
set /p start=输入每行开头要添加的字符串：
set /p end=输入每行结为要添加的字符串：
for /f "tokens=1,2* delims=:" %%i in ('findstr /n .* 1.txt') do echo ^!start^!%%j^!end^!>>22.txt
pause>nul
将原来的for /f "tokens=1,2* delims=:" %%i in ('findstr /n . 1.txt')
改成for /f "tokens=1,2* delims=:" %%i in ('findstr /n .* 1.txt')
@echo off
setlocal enabledelayedexpansion
set /p start=输入每行开头要添加的字符串：
set /p end=输入每行结为要添加的字符串：
for /f "tokens=1,2* delims=:" %%i in ('findstr /n .* 1.txt') do echo ^!start^!%%j^!end^!>>22.txt
pause>nul
作者: suli2921 时间: 2007-7-5 15:43
Originally posted by vkill at 2006-11-4 07:21 AM:
这个问题sed 解决最好，我感觉~任何字符都经过测试,一句话就可以
sed "s/^/\/span>/;s/\x24/\/span>/" test.txt
sed下载:http://www.student.northpark ...
替换的内容能写到原来的文件中吗？
我试了一下，只能在命令行窗口中显示，
不会用 sed，还望指教。
作者: bjsh 时间: 2007-7-5 22:43
现在的sed 有个 -i 选项 可以直接作用于 源文件;
实际上 是它自动替你完成了 重定向到临时文件 然后 替换文件的操作.
lz的问题 在vim 里的 可视化块 操作里 瞬间就可以完成;
选个好的编辑器 要省时省力的多啊
实际上 是它自动替你完成了 重定向到临时文件 然后 替换文件的操作.
lz的问题 在vim 里的 可视化块 操作里 瞬间就可以完成;
选个好的编辑器 要省时省力的多啊