查看网页源代码--VB

2009-1-2 15:23 589 0

摘要: 需要得控件:Text,Button,Inet,RichTextBox Inet控件位于Microsoft Internet...

关键词： nbsp text strLine 负责人 strArr strFind 陕西 vbcrlf 师范生师范大学

如：TEXT1里面有多行文字：今年共有20名北京学生被录为免费师范生，其中陕西师范大学在京招生17人，东北师大招生3人。陕西师范大学招办负责人惠刚介绍，在京招收的17个免费师范生中，男生5人，女生12人，与往年情况相同。但今年城镇考生达到11人，农村考生仅为6人，这是今年的一个显著变化。已经知道要查找的字符串是：负责人那么怎么在TEXT2里面显示：陕西师范大学招办负责人惠刚介绍，有两种不同的写法.不过其实是一样的.呵呵方法一: Private Sub Command1_Click()dim strArr() as string dim i as integer strArr=split(text1.text,vbcrlf)text2.text=""for i=lbound(strarr) to ubound(strarr) if instr(strarr(i),"负责人")>0 then text2.text=text2.text & strarr(i) & vbcrlf end ifnext iEnd Sub方法二:Private Sub Command1_Click() Dim strLine() As String Dim i As Integer Dim strFind As String strLine = Split(Text1.Text, vbCrLf) For i = 0 To UBound(strLine) '只寻找符合条件的第一行 If InStr(1, strLine(i), "负责人") > 0 Then Text2.Text = strLine(i) Exit For End If' '寻找符合条件的所有行' If InStr(1, strLine(i), "负责人") > 0 Then' strFind = strFind & strLine(i) & vbCrLf' End If Next' '寻找符合条件的所有行' Text2.Text = Left(strFind, Len(strFind) - 2) 'End Sub

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除