读取:
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
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
解决方案 »
- 报表设计器command1
- 知道一个IE窗口的句柄,如何刷新它呢,多谢
- 有没有支持中文的字符串查找与替换方法?
- MSHFlexGrid的排序问题
- ~{8wN;4sO@0o0oC&~},~{NR5D~}VB ~{VP~}SQL~{2iQ/N*J2C4;aSPUbQy5D4mNs~}
- 怎样去掉mpg或者avi等影音文件中一个一边声道? 目的就是要让两边声道一致,怎样做?不胜感谢。
- 大学毕业,散分同贺!!!
- 用VB怎样打开某一驱动器或光驱?
- 斑竹,斑竹(怎样利用API扑捉活动窗体以外的鼠标状态)
- 请问那里有winapi for visual basic 的详细参考资料?
- 请问,如何限制一个TEXTBOX里只能输入数字?
- 如何在VB中实现多条件的查询?
不用 write
使用 write 就会加了