■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#14278-0DO〜Loop分とLine Input文で全文を読み込みボンゴ2001-02-01(木) 16:50
     #14279-0RE#14278:DO〜Loop分とLine Input文で全文を読み込みろってんまいあ2001-02-01(木) 17:00
     #14280-0RE#14279:DO〜Loop分とLine Input文で全文を読み込みボンゴ2001-02-01(木) 17:10
     #14281-0RE#14279:DO〜Loop分とLine Input文で全文を読み込みよねKEN2001-02-01(木) 17:12
     #14282-0RE#14281:DO〜Loop分とLine Input文で全文を読み込みボンゴ2001-02-01(木) 17:40
     #14283-0RE#14282:DO〜Loop分とLine Input文で全文を読み込みろってんまいあ2001-02-01(木) 18:08
     #14284-0RE#14283:DO〜Loop分とLine Input文で全文を読み込みボンゴ2001-02-01(木) 18:23
#14278-0
DO〜Loop分とLine Input文で全文を読み込み
DO〜Loop文とLine Input文で全文を読み込みたいのですが
    Dim textline As String

Do Until EOF(1)
Open CommonDialog1.filename For Input As #1
Line Input #1, textline

Text1.Text = textline
 Loop
    Close #1
   Exit Sub
    
End Sub
コモンダイアログで選んだテキストファイルを読み込みたいのですが
一行しか読み込みません。DO〜Loop文の使い方おかしいですか?
すみませんが教えていただけると助かります。
使用はテキスト、コマンドボタン、コモンダイアログ
ver 5.0です。
#14279-0
RE#14278:DO〜Loop分とLine Input文で全文を読み込み
> DO〜Loop文とLine Input文で全文を読み込みたいのですが
>     Dim textline As String
> 
> Do Until EOF(1)
> Open CommonDialog1.filename For Input As #1
> Line Input #1, textline
> 
> Text1.Text = textline
>  Loop
>     Close #1
>    Exit Sub
>     
> End Sub
> コモンダイアログで選んだテキストファイルを読み込みたいのですが
> 一行しか読み込みません。DO〜Loop文の使い方おかしいですか?
> すみませんが教えていただけると助かります。
> 使用はテキスト、コマンドボタン、コモンダイアログ
> ver 5.0です。

Do の前に Open しましょう
#14280-0
RE#14279:DO〜Loop分とLine Input文で全文を読み込み
> > DO〜Loop文とLine Input文で全文を読み込みたいのですが
> >     Dim textline As String
> > 
> > > 
> Do の前に Open しましょう
ありがとうございます。でも一行しか読み込めませんなぜなんでしょうか?
#14281-0
RE#14279:DO〜Loop分とLine Input文で全文を読み込み
> > Text1.Text = textline
ろってんまいあさんのアドバイスに加えて、ここも修正しましょう。
これだと1行読み込むたびに、Text1がその1行だけになります。

例えば、
Text1.Text = Text1.Text & textline

#これだと遅いので、Text1.Textにではなく文字列変数を使って文字列を連結していき
#ループの外で、Text1にその文字列を代入した方がよいです。
#14282-0
RE#14281:DO〜Loop分とLine Input文で全文を読み込み
> > > Text1.Text = textline
> ろってんまいあさんのアドバイスに加えて、ここも修正しましょう。
> これだと1行読み込むたびに、Text1がその1行だけになります。
> 
> 例えば、
> Text1.Text = Text1.Text & textline
> 
> #これだと遅いので、Text1.Textにではなく文字列変数を使って文字列を連結していき
> #ループの外で、Text1にその文字列を代入した方がよいです。
たびたび申し訳ないです(^^;)
変えてはみたのですがまだだめみたいです。問題がちがうのでしょうか??
Dim ab As String
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)

 Line Input #1, asd
Loop
Text1.Text = asd
    Close #1
   Exit Sub
    
ErrHandler:
    ' ユーザーが [キャンセル] をクリックしました。
End Sub
なぜだかわかりません。お願いします
#14283-0
RE#14282:DO〜Loop分とLine Input文で全文を読み込み
まずは、以下のように修正してみましょう。

Dim asd As String
Open CommonDialog1.filename For Input As #1   ' ファイルを開く
Do Until EOF(1)                               ' ファイルが終了するまで繰り返す
  Line Input #1, asd                          ' 1行文読み出し
  Text1.Text = Text1.Text & asd & vbCrLf      ' 読み出したデータをテキストボックスへ連結代入
Loop
Close #1                                      ' ファイルを閉じる

取り敢えず、これで約30Kb までのファイルならエラーが出ないと思います。
速度とかの改善は動いてから考えましょう。
#14284-0
RE#14283:DO〜Loop分とLine Input文で全文を読み込み
> まずは、以下のように修正してみましょう。
> 
> Dim asd As String
> Open CommonDialog1.filename For Input As #1   ' ファイルを開く
> Do Until EOF(1)                               ' ファイルが終了するまで繰り返す
>   Line Input #1, asd                          ' 1行文読み出し
>   Text1.Text = Text1.Text & asd & vbCrLf      ' 読み出したデータをテキストボックスへ連結代入
> Loop
> Close #1                                      ' ファイルを閉じる
本当にありがとうございました。うまくいきました
(^^)/

> 
> 取り敢えず、これで約30Kb までのファイルならエラーが出ないと思います。
> 速度とかの改善は動いてから考えましょう。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)