中国DOS联盟

高手啊

Originally posted by abczxc at 2007-5-12 19:53:
sed -n "/^/{N;p}" urfiles>dfile
sed 好像是linux下的处理文本流的东东吧
我不会安装,麻烦lxmxn大哥给个for windows 的sed我，
好吗.

Linux 下的也可以在win下面使用啊。

发一个上来。

我也来试试：把所有以汉字开头的一行和它下面的一行写入另外一个文本
Const ForReading = 1, ForWriting = 2
Dim fso, f,ff
Set fso = CreateObject("Scripting.FileSystemObject")
File = InputBox("请输入要处理文件路径和名称：")
Set f = fso.OpenTextFile(File, ForReading, True)
out = ""
Do While f.AtEndOfStream <> True
line = f.ReadLine
If f.AtEndOfStream <> True Then
If Asc(Left(line,1))<0 Or Asc(Left(line,1))>255 Then
out = out & line & vbCrLf & f.ReadLine & vbCrLf
End If
Else
out = out & line & vbCrLf
End If
Loop
f.Close
Set ff = fso.OpenTextFile(File & "_new.txt", ForWriting, True)
ff.Write (out)
ff.Close
Msgbox "已生成新文件:" & File & "_new.txt！"
测试通过，请不要加行号!
将代码保存为filter.vbs再双击执行后输入你要处理的文件路径和名称如c:\windows\myfile.txt即可!

[ Last edited by ebfok on 2007-5-12 at 09:28 PM ]

Const ForReading = 1, ForWriting = 2
Dim fso, f,ff
Set fso = CreateObject("Scripting.FileSystemObject")
File = InputBox("请输入要处理文件路径和名称：")
Set f = fso.OpenTextFile(File, ForReading, True)
out = ""
Do While f.AtEndOfStream <> True
line = f.ReadLine
''If f.AtEndOfStream <> True Then '这个条件句是废的……
If Asc(Left(line,1)) < 0 or Asc(Left(line,1)) > 255 Then '小于0就是汉字了吧？
out = out & line & vbCrLf & f.ReadLine & vbCrLf
End If
''Else
'' out = out & line & vbCrLf
''End If
Loop
f.Close
Set ff = fso.OpenTextFile(File & "_new.txt", ForWriting, True)
ff.Write out
ff.Close
MsgBox "已生成新文件:" & File & "_new.txt！"
Set f＝nothing
Set fso ＝nothing

汉字的码的范围我不清楚，只随便找了几个汉字实验，反正汉字不可能在0-255之间就是，所以。。(恳请哪位知道的告知一下汉字的识别方法！)
再顺便问一下你用的什么vbs编辑器？

[ Last edited by ebfok on 2007-5-13 at 09:19 AM ]

明白你的意思了。。。但是你逻辑还是有问题。。报错是因为你又用了了次f.readline

所以第一的line是肯定可以读到的。你这个判断句应当在下面的判断句里面。

这样也一样……

要这种格式的文本应该是成对的……不然偷个懒加on Error Resume Next

一般脚本就直接用记事本，复杂点需要调试就扔VB里检测
汉字的ASC码是负的……而且根据ASC码的范围可以确定它的声母

实在不确定我觉得可以用排除法如果instr（0～9，a～z，A~Z。。再把标点算上）
就知道它是不是了。

之所以用两次readline是按LZ的要求：把所有以汉字开头的一行和它下面的一行写入另外一个文本。如果能进入DO..LOOP循环，第一次readline是肯定能读到，问题是第二次就不一定了，一开始我也是想要加个on Error Resume Next，后来不知怎么就忘了，现在想来要是加了on Error Resume Next就不会报错就不会想到要加那个条件句，看样子还是不加on Error Resume Next的好！

当然先是不加。。。。找到错误知道错误原因后发现就是最后一次读取不存在导致的。。在VB里都是GOTO ERRLINE看下ERR.DESCRIPTION调试好了，再考虑是用哪个比较好。

我学脚本都是小打小闹，大部分时候用的notepad，出了错没想到借助工具进行调试，所以每次出了错都是百思不得其解，效率很低，这次见识到兄的调试经验，很有启发，以后我会学着在vb中调试的！I like this forum!

要是调试VB的话下个精简版就好了6MB大小……

VB和脚本还是有些差别，比如读取文本在工程里VB要用绝对路径。。。。不然找不到文件。。。

VB里主要可以F8单步执行，就可以一句句看。。。代码的流程和变量的赋值都一清二楚。

findstr /r /n "." 1.txt >1.tmp
for /f "delims=:" %%i in ('findstr /r /i /v "*:" 1.tmp') do call:LLL %%i

for /f "tokens=1,2 delims=:" %%i in (2.tmp) do echo %%j >>2.txt
del 1.tmp
del 2.tmp
2.txt
goto:eof
:LLL
set /a jk=%1+1
findstr /r "^%1: ^%jk%:" 1.tmp >>2.tmp
set jk=

[ Last edited by bhsx on 2007-5-13 at 06:00 PM ]

对于vbs的编辑器
感性来说我喜欢notepad,理性来说我喜欢emditor……

谢谢楼上的同志啊
If Abs(Asc(whichChar))>127 Then
Response.write whichChar & "是一个汉字"
Else
Response.write whichChar & "不是一个汉字"