Question

我需要通过删除＆＃34; @＆＃34;之后的部分来从电子邮件地址获取用户名。符号。例如，

Dim uemail As String
Dim uname As String

umail = email_tb.Text.ToString() 'Suppose this returns abc.xyz@pqr.com
uname = umail (and some code) 'This will return abc.xyz only

Answer 1

使用 VB ，您可以使用Split方法执行此操作：

Dim umail = email_tb.Text.ToString()
Dim uname As String = Split(umail, "@")(0)

使用 VB.NET ，您可以使用Substring和IndexOf方法来实现此目的：

Dim umail = email_tb.Text.ToString()
Dim uname As String = umail.Substring(0, umail.IndexOf("@"))

Answer 2

一种有效的方法，使用IndexOf，Substring或Remove等纯字符串方法：

Dim uname = mail.Remove(mail.IndexOf("@"c)) ' check if IndexOf returned -1 first

您也可以通过此分隔符进行拆分：

Dim tokens As String() = mail.Split("@"c)
Dim uname = tokens.First()

在VB中编辑字符串

2 个答案: