读书人

求教一个关于VB的字符串有关问题

发布时间: 2012-02-01 16:58:19 作者: rapoo

求教一个关于VB的字符串问题
程序:一个类词典的小程序

控件:
一个text1 一个text2

text1 用来显示搜索结果 最初默认显示我导入的词典文件“wordlist.txt”
text2 用来输入搜索的单词

比如 我在text2输入“ac” 那么在text1 里就显示出“ac”开头的单词



以上就是我需要解决的问题,请高手赐教。。。



附: wordlist.txt 内容样板
Aarhus
Aaron
Ababa
.
.
.
abash
abanish
.
.
.


















[解决办法]
哈哈,我看错了,以为Text1是放原文的,我修改一下,你试试。

Text1放原文,Text2输入待搜索字符,Text3输出搜索结果。你自己调整一下Text控件修改换行。

VB code
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 

读书人网 >VB

热点推荐