■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#20778-0メモ帳の保存や開くを再現するには?kai2001-05-09(水) 14:44
     #20781-0RE#20778:メモ帳の保存や開くを再現するには?匿名207812001-05-09(水) 16:49
     #20785-0RE#20781:メモ帳の保存や開くを再現するには?匿名207852001-05-09(水) 18:56
#20778-0
メモ帳の保存や開くを再現するには?
はじめまして。
メモ帳をVBで作成したいと思っているんですが、テキストファイルの開き方や保存の仕方がわかりません。
やっと、「ファイルを開く」というWindows共通のダイアログを開くことはできたのですが、
開いたあと(開くファイル名を取得した後)、それを実際にテキストボックスに表示させる
方法がわかりません。
on error goto errorroutine
open "file名" for input as #1 
return:
input #1,data
text1.text=text1.text & data
goto return
errorroutine:
exitsub
のような記述をした場合に正常に読めない場合
(「00.xls」というものを読むとなぜか「0」だけが読み取られる)もありうまくいきません。
普通はどのようにして読み書きしているのでしょうか?保存についてもお願いします。

VB6・Windows2k

#20781-0
RE#20778:メモ帳の保存や開くを再現するには?
> はじめまして。
> メモ帳をVBで作成したいと思っているんですが、テキストファイルの開き方や保存の仕方がわかりません。
> やっと、「ファイルを開く」というWindows共通のダイアログを開くことはできたのですが、
> 開いたあと(開くファイル名を取得した後)、それを実際にテキストボックスに表示させる
> 方法がわかりません。
> on error goto errorroutine
> open "file名" for input as #1 
> return:
> input #1,data
> text1.text=text1.text & data
> goto return
> errorroutine:
> exitsub
> のような記述をした場合に正常に読めない場合
> (「00.xls」というものを読むとなぜか「0」だけが読み取られる)もありうまくいきません。
> 普通はどのようにして読み書きしているのでしょうか?保存についてもお願いします。

たとえば

Dim File

File = FreeFile
Open "File名" For Input As #File
Do While Not EOF(1)
   Input #File, data
   Debug.Print data ←イミディエイトウィンドウに変数の中身を表示するソース
  Text1.text=text1.text & data
Loop
Close #File
errorroutine:
Exit Sub
って書いて試してみたら?
#20785-0
RE#20781:メモ帳の保存や開くを再現するには?
> たとえば
> 
> Dim File
> 
> File = FreeFile
> Open "File名" For Input As #File
> Do While Not EOF(1)
>    Input #File, data
>    Debug.Print data ←イミディエイトウィンドウに変数の中身を表示するソース
>   Text1.text=text1.text & data
> Loop
> Close #File
> errorroutine:
> Exit Sub
> って書いて試してみたら?

「たとえば」ということなので、細かいつっこみは失礼を承知の上ですが、、、

>Dim File
 Dim File as Long,data As String

>Do While Not EOF(1)
 Do While Not EOF(File)

>   Input #File, data
   Line Input #File,data

>  Text1.text=text1.text & data
   Text1.text=text1.text & data & vbCrLf

の方がいいと思います、、、。
Input文では「,(カンマ)」区切りで読み込んでしまうため、
一行づつ読み込むLine Input文を使用したほうが、、。
このページと関連する記事:
#4628-0RE#4625:line input ステートメントでの読みこみ1999-12-28(火) 02:46
#14278-0DO〜Loop分とLine Input文で全文を読み込み2001-02-01(木) 16:50
#5339-0RE#5287:テキストファイルの扱い方を教えてください2000-01-26(水) 18:08
#20008-0リストボックスの読み込み2001-04-03(火) 18:59
#36321-0お気に入り機能2001-01-03(水) 18:17
#19367-0固定長のファイルの読み込み、書込み2001-03-06(火) 10:47
#9302-0テキストボックスへの読み込みで2000-07-01(土) 23:57
#40587-0テキストファイルの文字列置換方法2001-03-21(水) 15:34
#7782-0リストボックスの書き出し2000-04-27(木) 17:29
#17803-0テキストエディタを作るときに分からない事2001-01-15(月) 23:40
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)