ASP 经典从字符串中提取电子邮件地址

Question

我需要能够从 ASP Classic 中的字符串中提取电子邮件地址。

示例字符串是 "Please Contact Cp. from XXXX located in xxxx with regards to enquiry details - Hi, I am writing to you to cancel Thank you . Chris Pearson email address : chris@itsanemail.com.au phone number : 07 56431545 Preferred contact method : Email" 结果是 "chris@itsanemail.com.au"

请注意，电子邮件不会始终位于字符串中的相同位置。然而，两边总会有空格。

我可以在 excel 中毫无问题地执行此操作，但找不到执行此操作的脚本。它不一定是完美的。如果它占多数就很高兴

Answer 1

Function GetEmailAddrFromStr(TheString)
    If InStr(1,TheString,"@") > 0 Then
        TheAt = InStr(1,TheString,"@")
        StartMarker = InstrRev(TheString, " ", TheAt, 0)
        EndMarker = InStr(TheAt,TheString," ")
        GetEmailAddrFromStr = Trim(Mid(TheString,StartMarker,EndMarker-StartMarker))
    Else
        GetEmailAddrFromStr = ""
    End If
End Function

SomeText = "Hi, I am writing to you to cancel Thank you . Chris Pearson email address : chris@itsanemail.com.au phone number : 07 56431545 Preferred contact method : Email"

Response.write GetEmailAddrFromStr(SomeText)

ASP 经典从字符串中提取电子邮件地址

ASP Classic extract email address from string

asp-classic