乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 46|回复: 3

求教:关于二进制文件的读取

[复制链接]

5

主题

13

帖子

3

银币

初来乍到

Rank: 1

铜币
33
发表于 2005-1-28 15:04:00 | 显示全部楼层 |阅读模式
用Get 如何读出二进制文件中可变长度字符串。
3x
回复

使用道具 举报

25

主题

134

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
234
发表于 2005-1-28 15:15:00 | 显示全部楼层
Dim myFile() As Byte
                         Dim lngFile As Long                                                                 '文件长度
                         Dim FileName As String                                         '文件名称
                         Dim FileNumber As Integer                 '文件号
                         
                         FileName = "C:\a.txt'取得文件名及路径
                         lngFile = FileLen(FileName)                                                         '取得文件长度
                         ReDim myFile(lngFile - 1) As Byte         '初始化数组
                         FileNumber = FreeFile                                                                                                         '获得随机文件号
                                                         
                         Open FileName For Binary As #FileNumber                                 '打开文件
                         Get #FileNumber, , myFile                                                                                                                                                 '将文件写入数组
                         Close #FileNumber
回复

使用道具 举报

5

主题

13

帖子

3

银币

初来乍到

Rank: 1

铜币
33
发表于 2005-1-28 15:25:00 | 显示全部楼层

谢先,这个我会 我的意思读取一个二进制文件中的一整行
谢谢
回复

使用道具 举报

25

主题

134

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
234
发表于 2005-1-28 15:58:00 | 显示全部楼层
你可以把后面的一段先取出来存在str里,然后在str里查找"("的位置,再找")"的位置,不知道行不行
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 19:45 , Processed in 0.645226 second(s), 61 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表