vb查找指定字符并标记

Question

假设text1.text中有以下字符：
jhggg
hghdsfdk2sdsc
dk3sfdsdsc
k5fgffg
gfhggfh

查找每行字符中是否有k2，k3，k5这几个字符，有则标记为如下格式，并使text1.text为以下内容：

jhggg
hghdsfdk2sdsc //标记1
dk3sfdsdsc //标记2
k5fgffg //标记3
gfhggfh

Answer 1

复制代码
Private Sub Command1_Click()
Dim s() As String
Dim i As Integer, k As Integer
s = Split(Text1.Text, vbCrLf)
Text1 = ""
For i = 0 To UBound(s)
If InStr(s(i), "k2") > 0 Or InStr(s(i), "k3") > 0 Or InStr(s(i), "k5") > 0 Then
k = k + 1
s(i) = s(i) & " " & "//标记" & k
End If
Text1 = Text1.Text & s(i) & vbCrLf
Next i
End Sub

Answer 2

dim a() as string
dim b as string
dim i as integer
a=Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
If InStr(a(i), "k2") > 0 Or InStr(a(i), "k3") > 0 Or InStr(a(i), "k5") > 0 Then
a(i) = a(i) & " " & "//标记" & k
End If
b=b & a(i)
next
text1=b