行の読み込みについて (ID:90105)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 重複キーが出てきたら、取得しています。 こんなの、3分じゃんか w ・フォームにボタンとリストボックスを貼り付けます。 ・下記のコードを貼り付けます。 Private Sub Command1_Click() Dim iFileNo As Integer Dim sTmp As String Dim sKey As String sKey = "夏" iFileNo = FreeFile Open "C:\季節.txt" For Input As iFileNo Do Until EOF(iFileNo) Line Input #iFileNo, sTmp '*** キー発見 If sTmp = sKey Or sKey = "" Then sKey = "" List1.AddItem sTmp End If Loop Close iFileNo End Sub