投稿日 | : 2005/04/07(Thu) 15:31 |
投稿者 | : ぴん |
Eメール | : |
URL | : |
タイトル | : ListBoxのデータをテキストファイルに保存 |
はじめまして。ぴんと申します。
普段は質問はしないで見ている側のですが、どこを検索してもこのやりかたが見当たらなかったので
質問をさせてください。また、誰かの質問でこのことがでて来ていたら本当に申し訳ありません。
開発環境:VB6.0、Win2000
1.テキスト1、2を作成します。
2.テキスト1,2の内容をボタンを作成して、ボタン(登録)を押すと、リストボックスの方に2
つ
の内容が 隣同士に表示されるまではできました。
ここで次の課題で悩んでいます。
3.また上記のボタン以外にリストに表示されたデータを読み込み、書き込みできるボタンを作らな
く
てはならないのですが、
Private Sub Command1_Click()
Dim Fname As String
Dim LoadLine As String
Dim LoadText As String
Fname = "myFile.txt"
'LoadText = ""
Open Fname For Append As #1
Print #1, Text1.Text & " " & Text2.Text
Do While Not EOF(1)
Loop
Close #1
End Sub
の書き込みボタンだと、リストから読むのではなく、リストにデータを受け渡したテキストから
内容を読んでしまうのです。
テキストからではなく、リストの2つのデータをテキストにいれたいのです。
もう一つは、読み込みなのですが全くわかりません。
こちらのサイトを参考にさせていただいたのですが、知識不足のため、うまくいきません。
Private Sub Command2_click()
Dim strTextLine As String
Dim strTxtDat As String
Fname = "myFile.txt"
intFileNo = FreeFile
Open "myFile.txt" For Input As #intFileNo
Do While Not EOF(intFileNo)
Line Input #intFileNo, strTextLine
strTxtDat = strTxtDat & strTextLine & vbCrLf
Loop
Text1.Text = strTxtDat
Close #intFileNo
End Sub
と記述したのですが、テキスト1に、読み込んだ内容が...と記述されるくらいで、
これもリストの方に表示させたいのですが、
もし、こういうような内容の課題等を行なったかた等いらっしゃいましたら、
知識不足なわたくしで申し訳ありませんが、お教え願いたいと思います。