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

名前

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

本文 現状のデータ形式でやるとして、一応案を。 データを書き込む時に、本文の最後の行に「＠End」というような終了データを加える。 Do Until EOF(x) '日付 Line Input #x , dammy List1.AddItem dammy '本文 Do Line Input #x , dammy If Left$(dammy , 4) = "＠End" Then Exit Do End If Loop Loop Close #x こんな感じ。 内容表示は、Private Sub List1_DblClick()内でLine Inputで「＠End」が選ばれた日付の場所の回数来るまで読み込んでやる そこから以下のようにすればいい Do Line Input #x , dammy If Left$(dammy , 4) = "＠End" Then Exit Do End If Text1.Text = Text1.Text + dammy + VbCrLf Loop