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

我會在這裏使用Spit函數。

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

希望這會有所幫助。

編輯
很抱歉忘記了添加一個數組有多個值的檢查。