- 追加された行はこの色です。
- 削除された行はこの色です。
[[Programming]]
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