Question

用vb写一个可以查询.txt文件内容的程序

我有一个.txt文件,里面都是中文字对应该香港拼音的.如 :
CHI 子
CHING 精
YAM 荫
BING 冰
CHI 志
这样的格式,现在我要做的就是输入一个名字,就输出他的香港拼音如:输入张爱平,它就输出OP Cheung 张爱平 请问有什麼办法可以用vb做到啊

Answer 1

'需控件：Text1、Label1

Dim ctStr As String
Private Sub Form_Load()
ctStr = OpenF("C:\a.txt") '你的文件
End Sub

Private Sub Text1_Change()
Dim S As Long, I As Long, J As Long
Dim nStr As String, Str1 As String, Str2 As String

nStr = Text1.Text
For I = 1 To Len(nStr)
Str1 = Mid(nStr, I, 1)
If Str1 = " " Then GoTo Xia
S = InStr(ctStr, Str1)
If S = 0 Then
Str2 = Str2 & "？ "
Else
For J = S - 1 To 1 Step -1
If Asc(Mid(ctStr, J, 1)) < 32 Then Exit For
Next
Str2 = Str2 & Mid(ctStr, J + 1, S - J - 1)
End If
Xia:
Next
Label1.Caption = Str2
End Sub

Private Function OpenF(F As String) As String
'返回文本文件的全文
Dim H As Long, S As Long, B() As Byte

On Error GoTo Cuo
S = FileLen(F)
ReDim B(1 To S)

H = FreeFile
Open F For Binary As #H
Get #H, , B
Close H

OpenF = B
OpenF = StrConv(OpenF, vbUnicode)
Exit Function
Cuo:
End Function

Answer 2

创建一个二维精数组，将文本文件的内容读入数组，然后用替换函数（好像是replace吧，好长时间没用VB了）对输入的内容进行替换，也就是找到汉字，就换成拼音。

Answer 3

OP Cheung 张爱平 这个香港拼音是什么东西，怎么回事 看不懂。

Answer 4

不明白你的意思