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

VB技巧问答10000例 VB技巧问答10000例

如 果 直 接 打 开 并 使 用 文 本 文 件 ， 可 以 使 用 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>