Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
こんなの作りたいんです。
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9666#CommentId14949
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
超見習い初心者
 (社会人)
投稿日時
2010/6/10 18:01:50
テキストデータ名:hogehoge.txt
-------------内 容---------------
エコ3 13977 834 9 機械 青 2 13954 834 13929 834 14000 834 14025 834 1
エアコン 79 1300 90.0000000000000000 2600
ファン 79 380 90.0000000000000000
ファン 5525 2378 0.0000000000000000
-------------内 容---------------
作業の流れについては下記の通りです。(VB6にて行う)
(行数の最大は300程度)
0)まず2つ整数値の入力窓(テキストBOX)をForm上に配置し入力出来る様にする。
1)X方向ズレ数値入力 → 10 (±数値入力可能)整数
2)Y方向ズレ数値入力 → -15 (±数値入力可能)整数
3)1列目の文字列(全角) "ファン"又は"エアコン"に合致する行を検索する
合致する行がある場合は
4)1列目文字列が"ファン"の場合
②の文字列を数値変換した整数値に +10 (足す)
③の文字列を数値変換した整数値に -15 (引く)
を計算し 整数値を文字列に変換し書き換える。
[計算前]-------------------------------[計算後]-------------------------
ファン 79 380 90.0000000000000000 → ファン 89 365 90.0000000000000000
①↑↑_②_③__④↑↑↑↑↑↑↑↑↑_____①↑↑_②_③__④↑↑↑↑↑↑↑↑↑
5)1列目文字列が"エアコン"の場合
②の文字列を数値変換した整数値に +10 (足す)
③の文字列を数値変換した整数値に -15 (引く)
を計算し 整数値を文字列に変換し書き換える。
[計算前]---------------------------------
エアコン 79 1300 90.0000000000000000 2600
①↑↑↑_②_③↑_④↑↑↑↑↑↑↑↑__⑤↑
[計算後]---------------------------------
エアコン 89 1285 90.0000000000000000 2600
①↑↑↑_②_③↑_④↑↑↑↑↑↑↑↑__⑤↑
6)書き換え後のテキストデータを上書き保存する。(下記の様な内容になる)
(各行の文字列間は 半角のスペースとする。)
テキストデータ名:hogehoge_New.txt
-------------内 容---------------
エコ3 13977 834 9 機械 青 2 13954 834 13929 834 14000 834 14025 834 1
エアコン 89 1300 90.0000000000000000 2600
ファン 89 365 90.0000000000000000
ファン 5535 2363 0.0000000000000000
-------------内 容---------------
と言った様な作業の流れを考えておりますが、
VB6は、良く理解出来ておりません、
先生方のお力をいただければと存じます。
宜しく御願い致します。
ps
入力窓は別画像をUPします。