中国DOS联盟

对于自己提出的问题，
显示行数：http://www.cn-dos.net/forum/viewthread.php?tid=27919&fpage=1

删除最后一行：http://www.cn-dos.net/forum/viewthread.php?tid=27920&fpage=1
终于都解决了

@echo off setlocal EnableDelayedExpansion rem 删除临时文件。 if exist result*.txt del result*.txt rem 计算行数，考虑了空行。 for /f "delims=" %%i in ('find /v /n "" test.txt') do set /a line+=1 set/a num=line-1 echo test.txt文本的行数是：!num!。 pause>nul rem 下面是输出去除最后一行后的文本内容，不过用了几个临时文件进行转移。 for /f "tokens=1,2* delims=" %%i in ('findstr /x /n .* test.txt') do ( set /a n+=1 if "!n!" neq "!line!">>result0.txt echo %%i ) for /f "tokens=1,2* delims=:" %%i in (result0.txt) do ( set /a n+=1 if "!n!" neq "!line!" ( if not "%%j"=="" (echo %%j>>result.txt) else echo.>>new2.txt) ) rem 删除不需要的临时文件result0.txt，只保留最后结果。 del result0.txt

各位可以多测试特殊字符，看看结果是不是正确。
谢谢了。
有问题请批评指正。

[ Last edited by namejm on 2007-2-27 at 02:12 PM ]

用findstr的/n输出的可以包含空行，你再读一遍……这个你才发的时候就想到了，太费周章了……需要2次就没发，所以最后还是建议你用脚本，读一次就可以了。

2楼

用findstr的/n输出的可以包含空行，你再读一遍……

的确可以的啊，你那里不可以么？

需要2次

一个是find 一个是findstr
好不。你可以讲清楚么？还有那里有问题！？

那我就发一个只有一个find的代码，真正只读一次：


@echo off setlocal EnableDelayedExpansion if exist new*.txt del new*.txt for /f "delims=" %%i in ('find /v /n "" old.txt') do set /a line+=1 set/a num=line-1 echo 文本行数是：!num!。 pause>nul for /f "tokens=1,2* delims=:" %%i in ('findstr /x /n .* old.txt') do ( set /a n+=1 if "!n!" neq "!line!" ( if not "%%j"=="" (echo %%j>>new2.txt) else echo.>>new2.txt) )

[ Last edited by scriptor on 2007-2-26 at 12:32 AM ]

if "!n!" neq "!line!" ( if not "%%j"=="" (echo %%j>>new2.txt) else echo.>>new2.txt)

这段代码是判断只有一个回车符号的行的，
并作处理为， 若是回车换行，就echo.
若不是，就把原文输出。

[ Last edited by scriptor on 2007-2-26 at 12:31 AM ]

但是若有一行全是空格构成的，就有问题了，比如：

转换后，输出为
echo 处于关闭状态。

怎么解决？

唉，看着麻烦。脚本简单就用脚本写……用最适合的最有效率的代码...个人的原则。。。

硬要p处理文本有点勉强（并不是说做不到）

我可不写vbs和js了
你可不可以写一个给我？？

Const ForReading = 1
Const ForWriting = 2
Dim strText,strNewText,OutStr
Set objFSO = Createobject("Scripting.Filesystemobject")
Set objFile = objFSO.OpenTextFile("d:\slorelee\桌面\1.txt", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Split(strText,vbCrlf)
Msgbox "有" & Cstr(Ubound(strNewText)+1) & "行"

strNewText(Ubound(strNewText))=Empty

OutStr=Join(strNewText,vbCrlf)
OutStr=Mid(OutStr,1,Len(OutStr)-2)

Set objFile = objFSO.OpenTextFile("d:\slorelee\桌面\2.txt", ForWriting,True)
objFile.Write OutStr
objFile.Close

Originally posted by scriptor at 2007-2-26 14:01:
我可不写vbs和js了
你可不可以写一个给我？？

处理文件还是sed awk好了

Originally posted by vkill at 2007-2-26 03:52:

处理文件还是sed awk好了

脚本也不懒的。。。而且非3方嘛

Originally posted by scriptor at 2007-2-26 00:02:

───────────────────　版务记录　────────────────────
执行：namejm
原标题：终于都 ...

你怎么老是减我的分！？

　　我的扣分理由已经在版务记录里写得很清楚了，如果我经常对你扣分，可能的原因是：
　　1、你经常把标题写得很模糊；
　　2、你经常灌水。

　　被我扣分的不只你一个人，很多人都挨了扳子的。如果处理有失偏颇的情况，请到 意见反馈 & 网友交流 版块发帖提出。

Originally posted by namejm at 2007-2-27 02:19 PM:
　　我的扣分理由已经在版务记录里写得很清楚了，如果我经常对你扣分，可能的原因是：
　　1、你经常把标题写得很模糊；
　　2、你经常灌水。 ...

:D:D:D:D:D
幸甚

for /f "delims=:" %%i in ('findstr /n . readme.txt') do set /a num=%%i-1 for /f "tokens=*" %%i in ('more readme.txt +%num%') do set xxx=%%i type readme.txt|find /v "%xxx%">readme2.txt&&echo %num%
我也写了个