急求....读取文本问题
想统计一个txt文本内所有字符的个数（包括里面的中英文字符，回车换行符等，其中中文算一个字符),我用 dim str=readalltext() as string ,lof(str) 获取的字符个数不对，比实际少了，而且获取出来的中文字符是带问号的（？）。哪位兄弟能告诉我用方法能最快的正确获取文本内所有字符的个数，或者最快的正确获取文本内所有字符（包括中文字符）。我用inputstring()获取文本的字符，个数都正确，也能正确识别中英文，就是速度慢。 --------------------编程问答--------------------'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'功能：根据所给的文件名返回文件的内容
'函数名：fileStr
'入口参数(如下)：
' strFileName 所给的文件名；
'返回值：文件的内容
'备注：sysdzw 于 2007-5-3 提供
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function fileStr(ByVal strFileName As String) As String
On Error GoTo err1
Dim lFile&
lFile = FreeFile
Open strFileName For Input As #lFile
fileStr = StrConv(InputB$(LOF(lFile), #lFile), vbUnicode)
Close #lFile
If Right(fileStr, 2) = vbCrLf Then fileStr = Left(fileStr, Len(fileStr) - 2)
Exit Function
Err1:
MsgBox "不存在该文件或该文件不能访问！", vbExclamation
End Function
论坛签名======================================================================
当您的问题得到解答后请及时结贴.
http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html
http://topic.csdn.net/u/20100428/09/BC9E0908-F250-42A6-8765-B50A82FE186A.html
http://topic.csdn.net/u/20100626/09/f35a4763-4b59-49c3-8061-d48fdbc29561.html
如何给分和结贴？
http://community.csdn.net/Help/HelpCenter.htm#结帖
如何给自己的回帖中也加上签名？
http://blog.csdn.net/q107770540/archive/2011/03/15/6250007.aspx --------------------编程问答--------------------
--------------------编程问答--------------------
二楼的兄弟，你说的用fileStr = StrConv(InputB$(LOF(lFile), #lFile), vbUnicode)我用的VB 2005，对这个语句好像不识别啊！ --------------------编程问答-------------------- 惭愧，俺没说过。
补充：VB , 基础类
