巨文本索引器——TID 1.0

最新推荐文章于 2023-11-24 17:10:26 发布

KiteGirl

最新推荐文章于 2023-11-24 17:10:26 发布

阅读量2.3k

点赞数

分类专栏：玄菟郡VB6.0研究所文章标签： string file integer function byte access

本文链接：https://blog.csdn.net/KiteGirl/article/details/3554669

版权

TID 1.0是一个用于巨型文本文件索引的工具，通过创建TID文件实现快速访问文本内容。它支持自定义分隔符，可以高效地获取文件中指定行的数据。TID包含`TID_LinkFile_GetRagByTIDFile`函数，用于根据索引文件获取目标文件的指定行数据，以及`TID_File_Create`过程，用于创建TID文件。该工具对于处理大型文本文件的检索和分析非常有用。

摘要由CSDN通过智能技术生成

Option Explicit
'KiteGirl TID 1.00 - modIndexText.bas
'巨型文本文件索引器。
'（这是一个模块，需要把这些代码复制到模块里）

'TID使用示例：
'GIS2.txt文件，以&HA为分隔符，分隔符长度1。利用TID取它的任意行（这里从第3行开始，取2行）
'（这里举例为特殊文本，Windows下正常文本采用默认值分隔符就可以）
'Dim tStrings() As String
'TID_File_Create "GIS2.txt", "GIS2.tid", &HA, 1 '给GIS2.txt建立索引。如果文件内容、路径不改变，只需要建立一次TID。
'tStrings() = TID_LinkFile_GetRagByTIDFile("GIS2.tid", 3-1, 2) '根据索引文件GIS2.tid，返回链接文件的内容。
'结果：返回一个String数组。这个数组有2个元素，索引从0到1。这两个元素依次是GIS2.txt中第3行、第4行的内容。

'对用户有用的函数说明

'TID_LinkFile_GetRagByTIDFile函数

'语法：     tOutStrings() = TID_LinkFile_GetRagByTIDFile(pFileName[, pRagStart][, pRagCount])
'功能：     根据TID文件，返回链接文件从指定行号开始指定数量的行。
'参数：     string pFileName       TID文件名
'           long    pRagStart       起始行号。默认为-1，从第0行开始读。
'           long    pRagCount       读取行数。默认为0，读取文件记录中全部的行。

'返回：     string tOutStrings()   从行号开始，指定记录数量的字符串。

'说明：     pFileName是TID文件，而不是你要读取的目的文件。目的文件的文件名被记录在TID文件里。
'           如果你的目的文件改变了位置，则必须重新建立TID文件，否则程序会找不到目的文件。
'           pRagStart行号从0计算。例如：如果你想从100行开始读，则应指定为99。
'           pRagCount行数至少为1行，小于1为非法值。如为非法值，则程序默认读取全部的行。

'示例：     读GIS2.tid文件所链接的文件。从第3行取2行。
'           Debug.Print Join(TID_LinkFile_GetRagByTIDFile("GIS2.tid", 3-1, 2), vbCrLf)

'TID_File_Create过程

'语法：     TID_File_Create pLinkFile, pTIDFile[, pLimit_Code][, pLimit_Len][, pBuffer_Size]
'功能：     为一个链接文件建立TID文件。
'参数：     string pLinkFile       链接文件
'           string pTIDFile        TID文件
'           byte    pLimit_Code     分隔符（目前只支持一个字节）。默认为vbCrlf
'           long    pLimit_Len      分隔符长度。默认为2
'           long    pBuffer_Size    缓冲区容量。默认65536

Public Type tpTID_RagInfo                           '碎片信息(8Byte)
riStart As Long                                   '碎片开始地址(0 to x)。
riLength As Long                                  '碎片长度(0 to x)
End Type

Public Type tpTID_InfoHead                          '文件信息头(以vbCrlf连接为一组Byte)
ihFileType As String                              '文件类型
ihFileVersion As String                           '文件版本
ihLinkFile As String                              '链接文件
End Type

Public Type tpTID_FileHead                          '文件头
thInfoHeadRag As tpTID_RagInfo                    '文件信息长度
thInfoHead() As Byte                              '文件信息头(以vbCrlf连接的Byte数组)
thDataStart As Long                               '数据开始(1 to x)
thDataCount As Long                               '索引数量(1 to x)
End Type

Public Type tpTID_File                              'TID文件
tfFileHead As tpTID_FileHead                      '文件头
tfFileInfo As tpTID_InfoHead                      '信息头
tfRagInfos() As tpTID_RagInfo                     '碎片表
End Type

Public Const conTID_FileType As String = "TID"      'TID标识符
Public Const conTID_FileVersion As String = "1.00" 'TID文件版本
Public Const conTID_RagInfoLen As Long = 8          'RagInfo记录长
Public Const conTID_FileHead_DataStart As Long = 8 '数据区偏移地址，为tpTID_FileHead的thDataStart、thDataLength的字节长度和。
Public Const conTID_Limit_Code_CrLf As Byte = &HD   '分隔符CrLf
Public Const conTID_Limit_Code_Cr As Byte = &HD     '分隔符Cr
Public Const conTID_Limit_Code_Lf As Byte = &HA     '分隔符Lf
Public Const conTID_Limit_Len_CrLf As Long = 2      '分隔符长CrLf
Public Const c