Board logo

标题: 如何在批处理中实现对文本文档的每一行开头或者末尾加入 [打印本页]

作者: liuwei723     时间: 2006-4-26 15:08    标题: 如何在批处理中实现对文本文档的每一行开头或者末尾加入
我想在一个文本文档的每一行的开头和结尾加上特定的字符串,请问如何实现?

Last edited by liuwei723 on 2006-4-26 at 15:09 ]

作者: bush     时间: 2006-4-28 00:51
dos下,好像这个只有用第三方工具。 vbs的倒好容易。

我以前都是用change.exe来处理文字替换,行首插入稍微麻烦一点

作者: Wengier     时间: 2006-4-28 01:12
DOS下倒是可以试试lmod工具来实现,比如说:

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命令是不能直接写入生成的,所以需要用^前导字符来进行显示,如果楼主没有其他要求,这个应该差不多也许大概应该可以完成基本的使用了!!!!!!!!

作者: 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解决:

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

作者: 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

作者: 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

作者: 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 里的 可视化块 操作里 瞬间就可以完成;

选个好的编辑器 要省时省力的多啊