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

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

示例字符串为“请联系位于XXXX的XXXX的Cp，了解查询详情-您好，我写信给您是想取消，谢谢。Chris Pearson电子邮件地址：chris@itsanemail.com.au电话号码：07 56431545首选联系方式：电子邮件“ 结果是"chris@itsanemail.com.au"

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

---

我可以在excel中完成这项工作，但找不到脚本。它不一定是完美的。如果它获得了大多数，那就很高兴了

有一个关于专家交换与此相关的交易的问题。有一个关于专家交流的问题。可能重复的

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)