vb6如何判断并删除字符串首行的空行或空格

Question

先来个简单的：
Sub Test()
    Dim w1 As String, i As Long, w2 As String, ww
    w1 = Trim(Text1.Text)
    If w1 <> "" Then
        ww = Split(w1, vbCrLf)
        w1 = ""
        For i = 0 To UBound(ww)
            w2 = Trim(ww(i))
            If w2 <> "" Then w1 = w1 & IIf(w1 <> "", vbCrLf, "") & w2
        Next
    End If
    Text2.Text = w1
End Sub

Answer 1

Private Sub Command1_Click()
    Dim reg As New RegExp
    reg.Pattern = "(\r|\n){1,}"
    reg.Global = False
    reg.IgnoreCase = True
    reg.MultiLine = True
    Text2 = reg.Replace(Text1, "")
End Sub这是你想要的效果吗？