문자열 분할 및 검색 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) = ... 전에 배열 범위에 대한 검사를 추가하는 것이 좋습니다 것입니다. 당신은 LINQ

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

Answer 2

(내 대답을 쓰기 중단되었다, 그래서 나는 마무리하기로 결정 해요!) 당신이 시도 할 수

:

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 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

를 사용할 수 있는지

Answer 5

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

Answer 6

내가 목록에 splited 이메일을 넣어 나는 C#에서 이것을 쓰는거야

모든 domain1.com을 찾기 위해 list.FindAll 방법을 사용하는 것, 내가 더 잘 알고 있어요 그것은하지만 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