s3 = Split(Replace(Text5.Text, vbCrLf, ","), "ST")
For i = 1 To UBound(s3)
Text2 = Text2 & Split(s3(i), ",")(1) & vbCrLf
Next i
s3 = Split(Text5.Text, vbCrLf)
'Text4.Text = Trim(s3)
For i = 1 To UBound(s3)
If Left(s3(i), 2) = "ST" Then
s1 = Split(s3(i), ",")
Text2 = Text2 & s1(1) & vbCrLf
End If
Next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024