子串的VB6索引

Question

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

Answer 1

您可以使用InStr函数执行此操作：

例：

s$ = "[email protected]"
d$ = Mid$(s$, InStr(1, s$, "@") + 1)

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

Answer 2

我在这里使用Split函数。

Dim strEmail, arr, strDomain
strEmail = "[email protected]"
arr = Split(strEmail, "@")
if arr.Count > 1 then
    strDomain = arr(1)
end if

希望这可以帮助。

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