检索超大文本文件中某行信息

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:28:03
现有一个文本文件，内容如下：
近似值|jìn sì zhí
近些年|jìn xiē nián
近在|jìn zài
近在眉睫|jìn zài méi jié
近在咫尺|jìn zài zhǐ chǐ
进步|jìn bù
进城|jìn chénɡ
进程|jìn chénɡ
进出|jìn chū
进出境|jìn chū jìnɡ
进出口|jìn ch
……
有7万行，1.3M 每行都是如上的汉字|拼音 格式。现在想用vb6实现检索，即只有输入某个词语，即可检索到拼音。如果检索不到，返回空值。因为要反复操作，所以要求检索速度要快，越快越好。下载地址：
http://blogimg.chinaunix.net/blog/upfile2/090321195016.rar
如果速度够快，补加50分。

建议转换成数据库 

也可以 '需要代码请Q:58507961 

Dim Pos As Long 

Dim aru As Long 

Dim 字() As String 

Dim 拼音() As String 

Public Function GetPY(ByVal 汉字 As String) As String 

'查找 

GetPY = "" 

For i = 1 To Pos 

If 汉字 = 字(i) Then 

GetPY = 拼音(i) 

Exit For 

End If 

Next i 

End Function 

Private Sub Command1_Click() 

'测试 

MsgBox GetPY(Text1.Text) 

End Sub 

Public Function LoadPYLIB() 

'加载字库 

aru = 1024 

ReDim Preserve 字(1 To aru) 

ReDim Preserve 拼音(1 To aru