■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#84-1計算して読み込む方法ぷーこ2002-08-12(月) 09:49
     #85-1RE#84:計算して読み込む方法匿名852002-08-12(月) 10:12
     #88-1RE#85:計算して読み込む方法ぷーこ2002-08-12(月) 10:41
     #92-1RE#88:計算して読み込む方法Say2002-08-12(月) 11:41
     #95-1RE#92:計算して読み込む方法ぷーこ2002-08-12(月) 13:09
#84-1
計算して読み込む方法
テキストファイルに保存しているデータを合計して、テキストボックスに表示したいのですが、
数字がそのまま、だらだらとテキストボックスに表示されてしまいます。
例 (2.5...1.8...3.2...)というように。
どこで計算をすればよいかと、計算方法を教えてください。
#85-1
RE#84:計算して読み込む方法
> テキストファイルに保存しているデータを合計して、テキストボックスに表示したいのですが、
> 数字がそのまま、だらだらとテキストボックスに表示されてしまいます。
> 例 (2.5...1.8...3.2...)というように。

例のようにデータが入っているわけではないですよね?
それともデータの区切りは、ピリオド3つが区切りなのですか?

また、どのように読み込んでいますか?

> どこで計算をすればよいかと、計算方法を教えてください。

データをばらばらして読み込んで、足すだけでしょう。
ファイルフォーマットとファイルの読み込み方が肝になりますので、
それがわからないとアドバイスできません。
#88-1
RE#85:計算して読み込む方法
Dim Fn As Integer
Fn = FreeFile

Open "\Timeset.txt" For Append As #Fn
Print #Fn, Form2.Text5.Text
Close #Fn

例えば、form2.text5に1.5H(時間)が入ってたとして、何回か開始をクリックして
text5に二回目(2.7)や三回目(3.1)というようにデータをいれると、
テキストファイルになぜか(1.5...2.7...3.1...)というように
入っています。(上書きされたくないのでAppendにしています)(...はいらないのですが)
それを合計して別のテキストボックスに表示したいのですが、やり方がわかりません。
(説明が下手で申し訳ありません)
#92-1
RE#88:計算して読み込む方法
数字と数字の間にはピリオド(.)が3つ並んでますか?
半角中黒(半角の「・」)ではないですね?
本来、数字と数字の間(...の部分)にはvbCrLf(&H0D0A)がはいっているはずです。

ピリオド3つ並ぶというのはありそうにないのですが、
もし並んでいて、VB6での話なら、
●Replaceで「...」を「+」に変換してScript Controlにかませるか、
●「...」をデリミタとしてSplitでばらしてループで加算するか
●Replaceで「...」をTabかカンマかCrLfに変換して
  DBかWorkSheetに取り込んでSumするかでできます。

VB5なら、Replaceの変わりにInStrかMidステートメント使ってください。
(Midステートメントは変換前後の文字数が一致する必要がありますから、
「...」を「 , 」(カンマを半角Spaceではさむ)に変換する、といった工夫が必要です。

それと、
ファイルの読み書きにはコントロールのプロパティでなく、
専用の変数を用意して実行してください。
プロパティの実体は関数ですから、予想外の加工をされる可能性があります。
#95-1
RE#92:計算して読み込む方法
すみません。ピリオド3つでなく、中黒2つでした。^^;
ファイルの読み書きも変数に置き換えてみました。
そうしたら、たてに数字が並びましたが、
ファイル→テキストボックスにははじめの数字しか読み込まれていません。
(合計されません)もう一度ご指導願います。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)