求教一个关于VB的字符串问题
程序:一个类词典的小程序
控件:
一个text1 一个text2
text1 用来显示搜索结果 最初默认显示我导入的词典文件“wordlist.txt”
text2 用来输入搜索的单词
比如 我在text2输入“ac” 那么在text1 里就显示出“ac”开头的单词
以上就是我需要解决的问题,请高手赐教。。。
附: wordlist.txt 内容样板
Aarhus
Aaron
Ababa
.
.
.
abash
abanish
.
.
.
[解决办法]
哈哈,我看错了,以为Text1是放原文的,我修改一下,你试试。
Text1放原文,Text2输入待搜索字符,Text3输出搜索结果。你自己调整一下Text控件修改换行。
Private Sub Command1_Click()Dim s$(), ss$, i&s = Split(Form1.Text1.Text, vbCrLf)For i = 0 To UBound(s) If Trim(Form1.Text2.Text) = Left(Trim(s(i)), 2) Then ss = ss & s(i) & vbCrLfNext iForm1.Text3.Text = ssMsgBox ssEnd Sub