投稿者 超見習い初心者  (社会人) 投稿日時 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します。