字符串拆分和搜索VB.NET

Question

需要在vb中取一个字符串并将其拆分。还需要查看两个返回的值并返回包含“domain1.com”的值。管道是分隔符。

txtEmailFrom.Text = "john@huno.com|james@domain1.com" 
Dim brokened() As String 
brokened = Split(txtEmailFrom.Text, "|") 

不知道从哪里何去何从......

Answer 1

txtEmailFrom.Text = "john@huno.com|james@domain1.com" 
Dim brokened() As String 
dim email as string 
dim emailSplit() as string 
brokened = Split(txtEmailFrom.Text, "|") 

for email in brokened 
    emailSplit = Split(email, "|") 
    if emailSplit(1) = "domain1.com" then 
     Console.WriteLine(email) 
    end if 
next 

我写这没有IDE &这可能是VB6风格。
希望它应该给你一个转换为VB.net的想法

编辑：当然，最好在这行if emailSplit(1) = ...之前添加数组边界检查。

Answer 2

如果你可以使用LINQ

txtEmailFrom.Text = "john@huno.com|james@domain1.com" 
Dim result = txtEmailFrom.Text.Split(CChar("|")) _ 
       .Where(Function(d) d.Contains("domain1.com")).FirstOrDefault 

Answer 3

Dim brokened() As String = txtEmailFrom.Text.Split("|"c) 

Dim returnValue as String 

For each item as String in brokened 
    If item.Contains("domain1.com") Then 
    returnValue = item 
    End If 
Next 

Answer 4

（我被打断写我的答案，让我下定决心完成！）

你可以试试这个：

Module Module1 

    Sub Main() 

     Dim email As String = "john@huno.com|james@domain1.com" 

     Dim brokened() As String 
     brokened = Split(email, "|") 

     Dim k As List(Of String) = (From j As String In brokened _ 
            Where j.Contains("domain1.com") _ 
            Select j).ToList() 

     For Each u As String In k 
      Console.WriteLine(u) 
     Next 


    End Sub 

End Module 

希望这有助于。 Jas。

Answer 5

For Each email In brokened 
    If email.Contains("domain1.com") Then 
     Return email 
    End If 
Next 

Answer 6

我把splited电子邮件列表中，并使用list.FindAll方法来找到所有domain1.com

我会在C＃写这个，我更熟悉它，但它应该是相同的vb.net

List<string> emails = new List<string>(); 
emails.AddRange(txtEmailFrom.Text.Split("|".ToCharArray())); 

emails.FindAll(s=> {return s.Contains("domain1.com");}); 

类似的东西...写不用其他IDE

Answer 7

Dim test As String = "john@huno.com|james@domain1.com" 
Dim brokend() As String 
brokend = test.Split(New String() {"|"}, StringSplitOptions.None) 

For Each email As String In brokend 
    If email.EndsWith("domain1.com") Then 
     Return email; 
    End If 
Next