子串的VB6索引

Question

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

Answer 1

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

例:

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

变量d $最终会以字符串"foo.com"结束.(不要忘记检查以确保@符号存在,否则您将最终得到整个源字符串.)