好像可以用input(n,#文件号)啊(参数n:一次读取字符的个数)input函数把一个文件作为非格式的字符流来读取,而不把回车-换行作为一次读取操作的结束标志。这样,只需要每次读取的字符时作一个判断就行了! 例如: Open fstrFileName For Input As #1 Do While Not EOF(1) strTemp = Input(1, #1) If strTemp = Chr(32) Or strTemp = Chr(10) Or strTemp = Chr(13) Or strTemp = Chr(9) Then ''''''''添加自己的语句 End If Loop Close #1
Line Input # 语句一次只从文件中读出一个字符,直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过,而不会被附加到字符串上。但现在我所要读的文本到一行结束的时候没有回车符,只有换行符怎么办???
那就不用Line Input呗!(它是为windows系统文本设计的)
一次性读入,再Split,更方便,也会快得多!
例如:
Open fstrFileName For Input As #1
Do While Not EOF(1)
strTemp = Input(1, #1)
If strTemp = Chr(32) Or strTemp = Chr(10) Or strTemp = Chr(13) Or strTemp = Chr(9) Then
''''''''添加自己的语句
End If
Loop
Close #1