如何读取记录和非记录混合的文件.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 17 行

你 可 以 使 用 二 进 制 方 式 打 开 文 件 ： 
    Open "file" For Binary As #1 
    你 可 以 使 用 Seek跳 过 文 件 头 ： 
    Seek #1, 11 
    如 果 你 想 读 取 数 据 ， 没 有 必 要 借 助 Byte数 组 ， 那 样 处 理 更 麻 烦 ， 你 可 以 使 用 
    Dim f As Single, n As Long 
    Get #1, , f, n 
    这 样 的 办 法 直 接 读 取 数 据 。 
    你 也 可 以 定 义 一 个 自 定 义 类 型 ， 如 
    Type MyRecord 
     n As Integer 
     l As Single 
    .... ' 包 括 20个 字 段 
    End Type 
    Dim vt As MyRecord 
    Get #1, , vt 
<END>