用下面的语句读出:
i=freefile
open filename for binary as #i
do while eof(i)
get #1,,string
loop
i=freefile
open filename for binary as #i
do while eof(i)
get #1,,string
loop
解决方案 »
- 求操作excel的封装类(C++类)
- 请教VB与sql server连接的问题
- 如果动态控件重复生成的避免
- 请教!在文本框中如何实现换行符?(在线等)
- 怎样才能控制窗体的最小度,谢谢
- vb为何不能打开映射文件啊?
- <解决后将再补300分>请教解决activereport(1.0) 在98系统或HP打印机上打印异常的方法。
- vb打印设置问题,那位大虾能帮忙解决,给分!
- 请帮忙开发一个软件,要求较高的加密性能,情报价或联系。
- 我想在dataGrid栏中能够修改数据,然后点击按钮保存新数据表??
- 调试是遇到问题:53,The network path was not found
- 请问:select * from ....where....的结果如何存到本地硬盘?
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 SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile