■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5685-0RE#5684:LOOP構造かデータ取得が悪いのか?(涙)まるき1999-12-15(水) 12:08
     #5690-0RE#5685:LOOP構造かデータ取得が悪いのか?2(涙)Taitien1999-12-15(水) 13:00
#5685-0
RE#5684:LOOP構造かデータ取得が悪いのか?(涙)
> はじめまして、いきなり長ったらしくてすみませんが、
<略>
>    Open targetFile For Input As #2          :
>     Do Until EOF(2)                  :
>      Line Input #2, A8                 :開いたファイルを記述してある計算式
>       STA = Left(A8, 3)                :で繰り返し計算し、TEXT2にすべての
>       DA5 = Mid(A8, 5, 5): D5 = Val(DA5) / 100    :結果を表示したい。
>       TA5 = Mid(A8, 11, 4): T5 = Val(TA5) / 100    :
>       readData = STA & " " & D5 & " " & T5 & vbCrLf  :
>     Loop                         :
>    Close #2                       :
>  TEXT2.Text = readData                 :
> 
> というようなプログラムをかいたのですが、どうしてもTEXT2には末尾の計算結果しか
> 表示されません。ちゃんとすべての計算結果を表示するにはどのようにプログラムを
> かけばよいのかご教授ねがいます。

ほかの行についてはよくわかりませんが、
問題はこの行でしょう。(下から4行目)
>readData = STA & " " & D5 & " " & T5 & vbCrLf  :
readData = readData & STA & " " & D5 & " " & T5 & vbCrLf  :
           ~~~~~~~~~~
こうじゃありませんか?(^^;

あと、オープンするファイル番号はFreeFile関数で取得しましょう。
#5690-0
RE#5685:LOOP構造かデータ取得が悪いのか?2(涙)
> 問題はこの行でしょう。(下から4行目)
> >readData = STA & " " & D5 & " " & T5 & vbCrLf  :
> readData = readData & STA & " " & D5 & " " & T5 & vbCrLf  :
>            ~~~~~~~~~~
> こうじゃありませんか?(^^;
> 
> あと、オープンするファイル番号はFreeFile関数で取得しましょう。
>
>

readData = readData & STA & " " & D5 & " " & T5 & vbCrLf  :
            ~~~~~~~~~~
としてしまうと、計算結果ではなくもとのデータが表示されてしまうのですよ・・・(涙)
このページと関連する記事:
#14503-0csvファイルのデータ取得について2001-02-14(水) 20:48
#14742-0CSV読込み時の動的配列2001-02-27(火) 12:14
#10926-0「開く」と「名前を付けて保存」に関する質問2000-08-27(日) 22:46
#36343-0テキスト連続読み込みによる計算処理2001-01-04(木) 15:35
#222-3行数の取得2003-11-21(金) 17:38
#28969-0上書き保存2002-05-27(月) 16:25
#23257-0Val関数で変換したデータを保存2001-09-19(水) 14:54
#36495-0テキスト部分読み込みによる計算プログラムについて2001-01-09(火) 15:28
#7798-0読み込みについて2000-04-28(金) 01:33
#20778-0メモ帳の保存や開くを再現するには?2001-05-09(水) 14:44
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)