VB.net 어떻게 내가 코드 아래 시도

Question

Dim states As Collection = New Collection() 

Sub Output(Value As String) 

    txtOutput.Text += Value + vbCrLf 

End Sub 

Sub ClearOutput(sender As Object, e As RoutedEventArgs) Handles btnClear.Click 
    txtOutput.Text = "" 
    txtInput.Text = "" 
    states.Clear() 
End Sub 

Sub btnAdd_Click(sender As Object, e As RoutedEventArgs) Handles btnAdd.Click 

    Dim input As String = txtInput.Text 

    states.Add(input) 
    Output("You added: " + input) 

End Sub 

Private Sub btnGet_Click(sender As Object, e As RoutedEventArgs) Handles btnGet.Click 

    Dim counter As Integer = 1 
    Dim stateID As String = txtInput.Text.ToString 

    If CStr(states.Count) = 0 Then 
     Output("Not found") 
    End If 

    For Each state As String In states 
     If states(counter).Contains(stateID) Then 
      If Not states(counter).Contains(",") Then 
       Output("Add a valid state entry e.g. California, CA") 
       Exit For 
      End If 
      Dim stateOnly = states(counter).Substring(0, state.IndexOf(",")) 
      Output("You requested: " + states(counter)) 
      Exit For 

     End If 

     counter = counter + 1 
     If counter > CStr(states.Count) Then 
      Output("Not found") 
     End If 
    Next 

End Sub 

Private Sub btnRemove_Click(sender As Object, e As RoutedEventArgs) Handles btnRemove.Click 

    Dim counter As Integer = 1 
    Dim stateID As String = txtInput.Text.ToString 
    Dim firstCount As Integer = CStr(states.Count) 

    If CStr(states.Count) = 0 Then 
     Output("Not found") 
    End If 
    For Each state As String In states 
     If states(counter).Contains(stateID) Then 
      If Not states(counter).Contains(",") Then 
       Output("Add a valid state entry e.g. California, CA") 
       Exit For 
      End If 
      states.Remove(counter) 
      txtOutput.Text = "" 

      Dim secondCount As Integer = CStr(states.Count) 

      If secondCount < firstCount And secondCount > 0 Then 
       counter = 0 
       Output(stateID + " removed; here's what's left:") 
       OutputStates() 
       Exit For 
      End If 
      If secondCount = 0 Then 
       Output("Nothing left.") 

      End If 
     End If 

     counter = counter + 1 
     If counter > CStr(states.Count) Then 
      Output("Not found") 
     End If 
    Next 

End Sub 

Sub btnShow_Click(sender As Object, e As RoutedEventArgs) Handles btnShow.Click 
    If CStr(states.Count) = 0 Then 
     Output("No entries yet") 
    End If 
    OutputStates() 
End Sub 

Sub OutputStates() 
    For Each state As String In states 
     Output(state) 
    Next 
End Sub 

---

키 값을 입력 양식을 사전에이 상태 모음 입력을 변환합니다,하지만 작품을 나던. Sub OutputStates()에 오류가 있습니다. 출력 (상태)은 사전이 사용될 때 더 이상 작동하지 않습니다. 나는 내가 stateID 및 stateName로, 입력 트림 필요가 있다고 생각하지만 난 당신의 하위에

Dim states As Dictionary(Of String, String) _ 
    = New Dictionary(Of String, String) 

Sub Output(Value As String) 

    txtOutput.Text += Value + vbCrLf 

End Sub 

Sub ClearOutput(sender As Object, e As RoutedEventArgs) Handles btnClear.Click 
    txtOutput.Text = "" 
    txtInput.Text = "" 
    states.Clear() 
End Sub 

Sub btnAdd_Click(sender As Object, e As RoutedEventArgs) Handles btnAdd.Click 

    Dim input As String = txtInput.Text 
    Dim length As Integer = input.Length - 1 
    Dim stateID As String = input.Substring(0, 1) 
    Dim stateName As String = input.Substring(2, length) 

    states.Add(stateID, stateName) 
    Output("You added: " + input) 

End Sub 

Private Sub btnGet_Click(sender As Object, e As RoutedEventArgs) Handles btnGet.Click 

    Dim counter As Integer = 1 
    Dim stateID As String = txtInput.Text.ToString 

    If CStr(states.Count) = 0 Then 
     Output("Not found") 
    End If 

    For Each state In states 
     If states(counter).Contains(stateID) Then 
      If Not states(counter).Contains(",") Then 
       Output("Add a valid state entry e.g. California, CA") 
       Exit For 
      End If 
      Dim stateOnly = states(counter).Substring(0, states(counter).IndexOf(",")) 
      Output("You requested: " + states(counter)) 
      Exit For 

     End If 

     counter = counter + 1 
     If counter > CStr(states.Count) Then 
      Output("Not found") 
     End If 
    Next 

End Sub 

Private Sub btnRemove_Click(sender As Object, e As RoutedEventArgs) Handles btnRemove.Click 

    Dim counter As Integer = 1 
    Dim stateID As String = txtInput.Text.ToString 
    Dim firstCount As Integer = CStr(states.Count) 

    If CStr(states.Count) = 0 Then 
     Output("Not found") 
    End If 
    For Each state In states 
     If states(counter).Contains(stateID) Then 
      If Not states(counter).Contains(",") Then 
       Output("Add a valid state entry e.g. California, CA") 
       Exit For 
      End If 
      states.Remove(counter) 
      txtOutput.Text = "" 

      Dim secondCount As Integer = CStr(states.Count) 

      If secondCount < firstCount And secondCount > 0 Then 
       counter = 0 
       Output(stateID + " removed; here's what's left:") 
       OutputStates() 
       Exit For 
      End If 
      If secondCount = 0 Then 
       Output("Nothing left.") 

      End If 
     End If 

     counter = counter + 1 
     If counter > CStr(states.Count) Then 
      Output("Not found") 
     End If 
    Next 

End Sub 

Sub btnShow_Click(sender As Object, e As RoutedEventArgs) Handles btnShow.Click 
    If CStr(states.Count) = 0 Then 
     Output("No entries yet") 
    End If 
    OutputStates() 
End Sub 

Sub OutputStates() 
    For Each state In states 
     Output(states) 
    Next 
End Sub 

Answer 1

당신이 당신의 상태에 대한 루프를 시도 outputStates 잘 모릅니다 만, 지금이 대신 일반 콜렉션의 사전입니다. 당신이 가정하는 경우

: CA, California의 분할에 대한 다른 질문에 대해

Sub OutputStates() 
For Each state As KeyValuePair(Of String, String) In states 
    Output(state.key) 
    Output(state.value) 
Next 

최종 하위

:

사전을 통해 루프를 들어, 키 - 값 쌍을 사용할 수 있습니다 키와 값 사이의 구분은 쉼표입니다.

Dim splitString as String = "CA, California" 
Dim key As String = splitString.Split(",")(0).trim() 
Dim value As String = splitString.Split(",")(1).trim()