一个例子(二进制方式打开,全部读取,这种方法读取文本文件比较快):
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)
解决方案 »
- 求vb高手,帮我写一个完整的程序,给100分。
- 哪位大虾帮着解决一下这个小问题!!!!!!!!!!!
- 请教:ActiveX部件不能创建对象
- 求助高手: 关于有背景图的 listview拖拽问题(会闪烁)?
- 菜鸟斗胆,对一段压缩数据库的代码进行评析,请高人引导
- 光驱启动程序的问题,在线等,急!
- 四舍五入问题请教高手!!!!
- 紧急求教:动态报表问题,用vb自带的datareport?如何动态添加字段?100分!在线等待!谢谢了
- 50分:请问在使用printer对象打印时,如何打印彩色文本?
- 我在用DATAGRIG控件时,出现“无法为更新行集定位:一些值可能已在最后读取后改变。”的错误提示??
- 这样的SQL语句怎样写...
- adodc的一点小问题,分数不多,请大家帮忙!谢谢了!
Open Mypicture For Binary As #1
ReDim bit(LOF(1)) As Byte
Get 1, 1, bit
Close 1