vb 提取特定字符

显示全部楼层 · 2009-6-13 10:36:12

比如说随便举个例子
1组==统计63个
343223
ffdsf
4535

千问 · 2009-6-13 10:36:12

Private Sub Command1_Click()Dim a, ia = Split(Text1.Text, vbCrLf & vbCrLf)For i = LBound(a) To UBound(a)
If Left$(a(i), 2) = "1组" Then
Text2.Text = IIf(Len(Text2.Text) = 0, a(i), Text2.Text & vbCrLf & vbCrLf & a(i))
End IfNext iEnd Sub...

千问 · 2009-6-13 10:36:12

Private Sub Command1_Click()a = InStr(1, Text1.Text, "1组")b = InStr(a, Text1.Text, "组")Text2.Text = Text2.Text & Mid(Text1.Text, a, b - a-1)End Sub...