| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 678 人关注过本帖
标题:[求助]如何以Binary方式读取该数
只看楼主 加入收藏
redice
Rank: 3Rank: 3
等 级:新手上路
威 望:6
帖 子:902
专家分:0
注 册:2006-12-11
结帖率:72.73%
收藏
 问题点数:0 回复次数:3 
[求助]如何以Binary方式读取该数
如何以Binary方式读取该数

Dim cells(0 To 3) As Byte
Dim x As Long
x = 123456789
Open "c:\ceshi.txt" For Binary As 1
Put 1, , x '写入一个Long型数
Get 1, , cells
MsgBox cells '这样并不能得到该数字
搜索更多相关主题的帖子: Binary 
2007-05-06 11:27
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
Dim L As Long
Dim x As Long
x = 123456789
Open "c:\ceshi.txt" For Binary As #1
Put #1, , x '写入一个Long型数
Seek #1, 1
Get 1, , L
MsgBox L '这样并不能得到该数字End Sub

VB QQ群:47715789
2007-05-06 15:18
redice
Rank: 3Rank: 3
等 级:新手上路
威 望:6
帖 子:902
专家分:0
注 册:2006-12-11
收藏
得分:0 
回复:(Joforn) Dim L As Long Dim x As Long ...
老兄 谢谢你 我一时犯糊涂了

鲲鹏数据 - 专业Web数据采集服务提供者
http://www.
2007-05-06 18:50
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 
  我和楼上2个前辈有很大差距 很想知道你们是怎么学习怎么进步的 怎么从不了解到精通的 

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-05-07 00:17
快速回复:[求助]如何以Binary方式读取该数
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014637 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved