如何从一文本文件中提出包含"@"字符的字串？我想将一包含有email信息的字串提取。如何做？

Question

将下面代码粘入一个按钮中
Private Sub Command1_Click()
Dim i As Integer
Dim a As String, b As String
Dim c As Variant
a = "asdlfjasldjfas;ldj [email protected] asldjf;lasjd;"
c = Split(a)
For i = 0 To UBound(c)
    If InStr(1, c(i), "@") > 0 Then
    Print c(i)
    End If
Next i
End Sub

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Dim a As String, b As String
Dim c As Variant
a = "asdlfjasldjfas;ldj [email protected] asldjf;lasjd;"
c = Split(a)
For i = 0 To UBound(c)
    If InStr(1, c(i), "@") > 0 Then
    Print c(i)
    End If
Next i
End Sub