배열의 문자열과 문자열 비교

Question

이 스크립트를 사용하여 입력란의 사용자 입력을 올바른 단어 22 개와 비교하려고합니다. 나는 복수형을 찾고 있지 않다. VICE은 ADVICE이므로 2 값이된다. 문자열 값이 같음 값 만 받아들이도록하고 싶습니다.

현재로서는 처음 단어 TIED 만 인식하고 "찾음"메시지 상자를 표시하지만 목록의 다른 단어는 인식하지 못합니다.

나는 시각적 기본 스크립트

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click 
    Dim StrCorrect() As String = {"TIED", "VICE", "ICED", "DIVE", "DIET", "DATE", "CITE", "CAVE", "AIDE", "ACED", "CITED", "ACTED", "VACATE", "CATTIE", "ADVICE", "AVIATE", "ACTIVE", "VACATED", "DICTATE", "AVIATED", "ACTIVATE", "ACTIVATED"} 
    Dim Find As String = userinput 
    For Each Str As String In StrCorrect 
     If StrComp(Str, userinput, CompareMethod.Text).ToString = 0 Then 
      MsgBox("Found" & userinput) 
      Return 
     Else : MsgBox("incorrect word") 
      Return 
     End If 
    Next 
End Sub 

Answer 1

같은 루프 뭔가를을 사용합니다.

이

For Each Str As String In StrCorrect 
    If StrComp(Str, userinput, CompareMethod.Text).ToString = 0 Then 
     MsgBox("Found" & userinput) 
     Return 
    End If 
Next 

MsgBox("incorrect word") 

이는 모든 항목경우 목록에서 "잘못된 단어를"표시됩니다 : 당신은 당신이 당신의 루프 하나를 찾는없이 완료 경우 일치하는, 그래서 대신 같은 것을 시도하지 말라 알고있다 첫 번째 테스트를 실패하십시오.

Answer 2

왜 STRCOMP에 쓰고 있어요? 정확한 일치를 원한다면 왜 직접적인 비교가되지 않습니까?

For Each Str As String In StrCorrect 
     If Str = Find Then 
      MessageBox.Show("Found :" & Str) 
     End If 
    Next 

Answer 3

나는 문제는 첫 번째 항목이 일치하지 않은 경우 루프가 명시 적으로 반환하는 것입니다

For i As Integer = 0 To StrCorrect.Length - 1 
     If StrCorrect(i) = Find Then 
      MsgBox("Found" & Find) 
      Return 
     'End if 

     'The else statement simply alerting that it didnt find the right word on this iteration 
     'The else can be removed if you dont want this alert 
     Else 
      MsgBox("incorrect word") 
      'Return 
     End If 
Next 

Answer 4

그것은 당신을 도울 것입니다, 아래와 같이 시도 ...

샘플 :

Dim result As String() = Array.FindAll(StrCorrect, Function(s) s.Equals(Find)) 
If (result.Length > 0) Then 
    MsgBox("Found : " & userinput) 
Else 
    MsgBox("incorrect word") 
End If 

전체 코드 :

Dim StrCorrect() As String = {"TIED", "VICE", "ICED", "DIVE", "DIET", "DATE", "CITE", "CAVE", "AIDE", "ACED", "CITED", "ACTED", "VACATE", "CATTIE", "ADVICE", "AVIATE", "ACTIVE", "VACATED", "DICTATE", "AVIATED", "ACTIVATE", "ACTIVATED"} 
Dim Find As String = userinput 
Dim result As String() = Array.FindAll(StrCorrect, Function(s) s.Equals(Find)) 
If (result.Length > 0) Then 
    MsgBox("Found : " & userinput) 
Else 
    MsgBox("incorrect word") 
End If