テキストの読込について (ID:123362)

名前

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

本文 本文は配列にいれるといいかもしれません。 コレクションでもいいかも。 Private strDiary() As String Private Sub ReadDiary() Dim iFileNo As nteger Dim strFileName As String Dim strBuffer As String Dim i As Integer List1.Clear Erase strDiary i = -1 iFileNo = FreeFile strFileName = "C:\日記.txt" Open strFileName For Input As #iFileNo Do Until EOF(iFileNo) Line Input #iFileNo, strBuffer If Left$(strBuffer, 1) = "＠" Then List1.AddItem Mid$(strBuffer, 2) i = i + 1 ReDim Preserve strDiary(i) Else strDiary(i) = strDiary(i) & strBuffer & vbCrLf End If Loop Close #iFileNo End Sub Private Sub List1_DblClick() Text1.Text = strDiary(List1.ListIndex) End Sub