我需要能够从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)