[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re: 数値処理 投稿日 ： 2009/08/11(Tue) 00:00 投稿者 ： しんご
| ２次配列を用いたらどうでしょうか？ Dim Data(1 to 5, 0 to 3) as String Dim i As Integer Dim j As Integer ①テキストファイルを読込んで、Data(i, 0) に各行のデータを一時保存する ②Data(i, 1) ～ Data(i, 3) に各列の値を入れる For i = 1 to 5 For j = 1 to 3 Data(i, j) = Mid$(Data(i, 0), (4 * j - 3), 4) Next Next ③各列に対して指定値をかける For i = 1 to 5 For j = 1 to 3 Select Case j Case 1: Data(i,j) = CStr(Val(Data(i,j)) * 9) ' ９倍する Case 2: Data(i,j) = CStr(Val(Data(i,j)) * 6) ' ６倍する Case 3: ' そのままなので、何もしない End Select Next Next ④Data(i, 0) にテキストファイルに書込むデータを一時保存する For i = 1 to 5 Data(i, 0) = Data(i, 1) & Data(i, 2) & Data(i, 3) Next ⑤Data(i, 0) をテキストファイルに保存する ざっとこんな感じでしょうか？ ⑤の書込みは、読込みができているということなので その逆をすればよいです。Write か Print を使うのがいいのかな。 掲示板投稿画面で書いただけで、実際に走らせてチェックしてません。 手抜きですみません、、 以上 |
をクリックするとツリー全体を一括表示します） - 数値処理 - ほうまつ 09/08/10-23:15No.13938