VB 用SPLIT从字符串中提取数据的问题

2024-12-02 05:37:40

推荐回答（2个）

回答（1）：

s3 = Split(Replace(Text5.Text, vbCrLf, ","), "ST")
For i = 1 To UBound(s3)
   Text2 = Text2 & Split(s3(i), ",")(1) & vbCrLf
Next i

回答（2）：

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