由于工作需要经常用到VB来处理文本文件的情况，这次遇到的文本比较特殊，请大家帮忙出主意。谢谢～

这次的文本是在UNIX下取的，转换成DOS格式倒不难，用Uedit做的。关键是后面的问题

文本如下（举例）：

XX单位XX报表
--------------
  1  1 00271234567          20,000.00
  2  2 80801234567             100.00
  3  3 91414141414          85,100.00
  4  4 15615615616           4,723.00
合计　　21532135132       121
　　说明：xxxxxxxxx
  5  5 12312312313          12,750.00
  6  6 80812345678           4,555.00
合计　　0212312        1222
  备注：xnbcbnvbnbfnbn
................

主要就是该文本比较乱，有数字有中文。现在想将有中文的行过滤掉，由于文本没有规律，所以不能查找指定字符。

用Line InPut 读
如：line input #1,MyStr
每读一行时,判断里面是否含有中文字符,有的话,将空值赋予MyStr,即MyStr=""
举个例子吧:
Private Sub Command1_Click()
Dim File As Long
Dim MyStr As String
Dim sTemp As String
File = FreeFile
Open "C:\Documents and Settings\Administrator\桌面\11.txt" For Input As #File
Do While Not EOF(File)
Line Input #File, MyStr
 For i = 1 To Len(MyStr)
   If LenB(StrConv(Mid(MyStr, i, 1), vbFromUnicode)) = 2 Then
     MyStr = ""
      Exit For
   End If
 Next i
 If MyStr <> "" Then sTemp = sTemp + MyStr + vbCrLf
Loop
Text1 = sTemp
Close #File
End Sub

[[italic] 本帖最后由 不说也罢 于 2007-12-21 21:15 编辑 [/italic]]