アールメカブ

• 追加された行はこの色です。
• 削除された行はこの色です。
• VBでHashtable へ行く。
• VBでHashtable の差分を削除

[[Programming]]

　Dim hogen As New Hashtable
 Dim hogen As New Hashtable

    Private Sub Button1_Click(ByVal sender As System.Object, 
 ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String
        Dim str2(1) As String
        Dim myFile As String = "C:\TextFile1.txt"
 
        Try
            FileOpen(1, myFile, OpenMode.Input)
            Do Until EOF(1)
                str1 = LineInput(1)
                str2 = Split(str1, ",")
                hogen(str2(0)) = str2(1)
                'hogen.Add(str2(0), str2(1))
                'hogen.Item(str2(0), str2(1))
            Loop
 
        Catch ex As Exception
 
            MsgBox("読み込みエラー")
        Finally
            FileClose(1)
        End Try
 
 End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, 
  ByVal e As System.EventArgs) Handles Button2.Click
        Dim str = TextBox1.Text
        Label1.Text = str
 
        If hogen(str) <> "" Then
            Label2.Text = hogen(str)
        Else
            Label2.Text = "は見つかりませんでした"
        End If
  End Sub