VB寻找字符

显示全部楼层 · 2009-7-11 18:23:04

思路：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 iEnd Sub

千问 · 2009-7-11 18:23:04

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) & vbCrLfNextText1.Text = tmpEnd Sub