Question

vb 文本提取

例如假定text1.text中有如下文本
dsfsfdsfkk545454weccc
dsfsfdsfkk45454wecccyy
dsfsfdsfkk54bb4weccchh
dsfsfdsfkk5455554wecccvv

我要提取各行 kk 和 ccc 之间的数值，然后把提取的值放到text2.text中
该如何编程？

Answer 1

Private Sub Command1_Click()
On Error Resume Next
Dim mStr, Rsult$, i%
mStr = Split(Text1.Text, Chr(10))
For i = 0 To UBound(mStr)
Rsult = Rsult & Mid(mStr(i), InStr(mStr(i), "kk") + 2, InStr(mStr(i), "ccc") - InStr(mStr(i), "kk") - 2) & vbCrLf
Next i
Text2.Text = Rsult
End Sub

Answer 2

Private Sub Command1_Click()
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a)
a(i) = vbCrLf & Split(Split(a(i), "kk")(1), "ccc")(0)
Text2.Text = Text2.Text & a(i)
Next
End Sub