如何以类似数据库操作的方式打开文本文件.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 18 行

如 果 直 接 打 开 并 使 用 文 本 文 件 ， 可 以 使 用 OpenDatabase的 方 法 。 
    (指 定 文 件 位 置 ， 独 占 模 式 及 数 据 源 名 称 ) 
    如 下 的 例 子 示 范 打 开 一 个 文 本 文 件 。 
    Dim db as DataBase 
    Dim rs as Recordset 
    Set db = OpenDatabase("c:\autoexec.bat",False,False,"Text;") 
    Set rs = db.OpenRecordset("mytext") 
     
    或 在 当 前 数 据 库 增 加 一 个 TableDef对 象 。 
    Dim db As Database 
    Dim tab as TableDef 
    Set db = OpenDatabase("c:\mydbf.mdb") 
    set tab = db.CreateTableDef("mytext") 
    tab.Connect="Text;DATABASE=c:\autoexec.bat" 
    tab.SourceTableName="myfile.txt" 
    db.TableDefs.Append tab 
<END>