- 822 名前：デフォルトの名無しさん [2009/04/04(土) 09:57:25 ]
- >>821
ファイルリストボックスでtxtを読み込み、右のテキストボックスにファイルの内容を
読み込む、ｔｘｔTextArea_change()にてテキストの変更があったらセーブする。
この場合ファイルの読み書きにファイル番号が必要だけど、ちゃんと読み書きする
ファイル番号はイベントプロシージャ毎にCloseしてるはずなんだけど、プロシージャを
超えてファイル番号は使われてます、となる。だからスコープが関係してるかなと思い、
SubはPrivateと書いたんだけど、意味は伝わったのかな？
ちなみに書き込み時のソース
Private Sub Savetiming()
Dim fd As Integer
Dim writetext As String
writetext = lstFile.Path & "\" & lstFile.FileName
fd = FreeFile
Open writetext For Output As #fd
Print #fd, txtTextArea.Text
Close #fd
End Sub
読み込み時のソースは上記の通り。もしかしてText1.textを表示するとファイルは開かれた
ままになるんでしょうか？文字列変数を用意して代入してもいいけど、そうなると
ファイルを読み込むたびに先頭にCRLFが挿入されるっす・・・・
ソースください、ソース。
|
 |
