トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
VBでHashtable
をテンプレートにして作成
開始行:
[[Programming]]
Dim hogen As New Hashtable
Private Sub Button1_Click(ByVal sender As System.Obje...
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.Obje...
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
終了行:
[[Programming]]
Dim hogen As New Hashtable
Private Sub Button1_Click(ByVal sender As System.Obje...
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.Obje...
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
ページ名:
