首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-02-01 
求教一个关于VB的字符串问题程序:一个类词典的小程序控件:一个text1一个text2text1 用来显示搜索结果最初

求教一个关于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 

热点排行