vb txt 查找
在C:\a.txt 内容如下：
∪阿Q精神§акюизм§Акюгийн ?зэл∩∪阿斗§тэнэг§мунхаг§арчааг?й х?н§чадалг?й х?н∩∪阿尔泰葱§зэрлэг сонгино∩∪阿飞§луйварчин§танхайчууд∩∪阿訇§ахун (ислам суртахууны ёслолыг эрхлэгч буюу номлогч)∩∪阿拉伯数字§араб тоо∩∪阿拉伯字母§араб цагаан толгой∩∪阿片§хар тамхи∩∪阿司匹林§аспирин (АРС)∩∪阿谀逢迎§зусардан бялдуучлах∩∪哀悼§уй гашуудах§эмгэнэл§гашуудал§эмгэнэн гашуудах∩∪哀乐§гашуудлын х?гжим§гашуудлын марш§гашуудлын ая∩∪埃菲尔铁塔§эйфелийн цамхаг∩∪挨次§дараалах∩∪挨饿挨冻§?лс?ж даарах§?лс?ж даарахын зовлон амсах∩∪癌§хорт хавдар§?м?н§?м?н ??∩∪艾蒿§аги§агь∩∪艾菊§хурган шарилж§боролзой∩∪爱称§энхрийлсэн дуудлага§дотночилсон дуудлага∩∪爱戴§хайрлан х?ндэтгэх§хайрлах∩∪爱国公约§эх оронч гэрээ∩∪爱国军民§эх оронч цэрэг ард∩∪
text1,text2 Command1。
当在text1里输入 “阿Q精神”后，点击Command1
在
Label1(0).Caption = a(0)
Label1(1).Caption = a(1)
Label1(2).Caption = a(2)
Label1(3).Caption = a(3)
Label1(i).Caption = a(i) ....
中显示
акюизм
Акюгийн ?зэл
在这里就 找到“阿Q精神”后，将特殊的字符创“∪，§，∩∪”，过滤掉，只显示：
汉字对应的解释：
акюизм
Акюгийн ?зэл
[解决办法]
你可以先把& 和 ∩∪替换 成"," ,再替换∪成"",之后再用，，split(strfiel,",")来取你想要的数据
[解决办法]
其实这个是有规律的：
每一组解释都是有开始符号“∪”和结束符号“∩”组成，相当与就是“（”和“）”
中文字后面的符号“§”，相当于是“：”
∪阿Q精神§акюизм§Акюгийн ?зэл∩
比如要找“阿Q精神”
s="∪阿Q精神§акюизм§Акюгийн ?зэл∩∪阿斗§тэнэг§мунхаг§арчааг?й х?н§чадалг?й х?н∩∪阿尔泰葱§зэрлэг сонгино∩∪阿飞§луйварчин§танхайчууд∩∪阿訇§ахун (ислам суртахууны ёслолыг эрхлэгч буюу номлогч)∩∪阿拉伯数字§араб тоо∩∪阿拉伯字母§араб цагаан толгой∩∪阿片§хар тамхи∩∪阿司匹林§аспирин (АРС)∩∪阿谀逢迎§зусардан бялдуучлах∩∪哀悼§уй гашуудах§эмгэнэл§гашуудал§эмгэнэн гашуудах∩∪哀乐§гашуудлын х?гжим§гашуудлын марш§гашуудлын ая∩∪埃菲尔铁塔§эйфелийн цамхаг∩∪挨次§дараалах∩∪挨饿挨冻§?лс?ж даарах§?лс?ж даарахын зовлон амсах∩∪癌§хорт хавдар§?м?н§?м?н ??∩∪艾蒿§аги§агь∩∪艾菊§хурган шарилж§боролзой∩∪爱称§энхрийлсэн дуудлага§дотночилсон дуудлага∩∪爱戴§хайрлан х?ндэтгэх§хайрлах∩∪爱国公约§эх оронч гэрээ∩∪爱国军民§эх оронч цэрэг ард∩∪ "
dim intSp as integer
dim intEp as integer
intSp = InStr(1, s, "阿Q精神")
intEp = InStr(intSp, s, "∩")
Dim temp As String
Dim arr() As String
temp = Mid(s, intSp, intEp - intSp)
arr = Split(temp, "§")
Dim i As Integer
For i = 0 To UBound(arr)
If i = 0 Then
MsgBox "中文名：" & arr(i)
Else
MsgBox "解释" & i & "：" & arr(i)
End If
Next
