子串的VB6索引

Question

我正在尝试在VB6中匹配电子邮件地址字符串中的域名，这不是我的日常用语。我基本上想从地址（即admin@foo.com）中提取域名进行比较。我想通过获取“@”之后的所有内容来提取它，我认为找到“@”的索引然后使用Left$()将满足我的需求。我怎样才能获得索引？

Answer 1

您可以使用InStr功能执行此操作：

示例：

s$ = "admin@foo.com"
d$ = Mid$(s$, InStr(1, s$, "@") + 1)

变量d $最终会以字符串“foo.com”结束。 （不要忘记检查以确保@符号存在，否则您最终会得到整个源字符串。）

Answer 2

我在这里使用Split功能。

Dim strEmail, arr, strDomain
strEmail = "emailaddress@website.com"
arr = Split(strEmail, "@")
if arr.Count > 1 then
    strDomain = arr(1)
end if

希望这有帮助。

编辑
抱歉忘了添加一个检查，表明该数组的值超过1。