UC知道VB寻找字符
来源：百度知道 编辑：UC知道 时间：2024/06/19 08:01:48
假如有abc三个人
当a查询自己的记录时，则在form1.text1中显示form2.text1中所有开头是a的行
比如
a 123
b 567
c 498
a 555
怎么才能显示出
a 123
b 555
当a查询自己的记录时，则在form1.text1中显示form2.text1中所有开头是a的行
比如
a 123
b 567
c 498
a 555
怎么才能显示出
a 123
b 555
dim s() as string
s=split(form2.text2.text,vbcrlf)
for i = 0 to ubound(s)
if left(s(i),1)="a" then
form1.text1.text=form1.text1.text & s(i) & vbcrlf
end if
next
思路：
1、将数据备查按行分开存放到数组
2、对数组循环
检查数组元素的首字符，符合要求，就放到里面。
代码：
Private Sub Command1_Click()
Dim 行
Dim 字符 As String
字符 = Left(InputBox("请输入要查找的字符", , "a"), 1)
行 = Split(from2.Text1, vbCrLf)
Text1 = ""
For i = 0 To UBound(行)
If Left(行(i), 1) = 字符 Then Text1 = Text1 & vbCrLf & 行(i)
Next i
End Sub
Private Sub Command1_Click()
a = Split(Form2.Text1.Text, vbCrLf)
For i = 0 To UBound(a)
If Left(a(i), 1) = "a" Then tmp = tmp & a(i) & vbCrLf
Next
Text1.Text = tmp
End Sub