Ｐａｇｅ 141 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼マルテフォーマットデータの取り込み ひろ 02/12/3(火) 14:34 ┣Re:マルテフォーマットデータの取り込み ひろ 02/12/3(火) 14:52 ┗Re:マルテフォーマットデータの取り込み イケガミ 02/12/3(火) 15:23 ┗Re:マルテフォーマットデータの取り込み ひろ 02/12/3(火) 16:39 ┗Re:マルテフォーマットデータの取り込み イケガミ 02/12/3(火) 16:52 ┗Re:マルテフォーマットデータの取り込み ひろ 02/12/16(月) 17:04 ─────────────────────────────────────── ■題名 ： マルテフォーマットデータの取り込み ■名前 ： ひろ ■日付 ： 02/12/3(火) 14:34 -------------------------------------------------------------------------
| はじめまして、ＶＢＡ初心者です。よろしくお願いいたします。 下記のようなＣＳＶデータが存在します。 伝票ヘッダーと伝票明細のマルテデータです。 ■伝票ヘッダーフォーマット ・データ種別(\\)、日付、伝票番号、合計金額 ■伝票明細フォーマト ・データ種別(**)、商品コード、売上金額 ■データイメージ \\,20020101,000001,3000 <==伝票ヘッダー **,a,2500 <==伝票明細 **,b,500 <==伝票明細 \\,20020101,000002,2500 **,c,800 **,d,1700 上記のデータを読み込んで、下記のテーブルへセットしたいと考えています。 明細情報にヘッダーの情報を不可するイメージです。 ■新テーブル 日付、伝票番号、商品コード、売上金額 ■取り込み後イメージ 20020101,000001,a,2500 20020101,000001,b,500 20020101,000002,c,800 20020101,000002,d,1700 ＡＣＣＥＳＶＢＡで実現する方法を教えてください。 |
| マルテフォーマットと間違えて記述いたしました。 正しくはマルチフォーマットです。 |
| ヘルプで以下の項目を確認してください。 ＃使用例もありますので。 Open ステートメント Line Input # ステートメント FreeFile 関数 |
| 情報提供、誠にありがとうございます。 下記のようなコード記述で、読み込むところまではＨｅｌｐで理解できました。 Freefile関数の使い方がわかりません。 よろしくご指導お願いいたします。 Private Sub コマンド0_Click() Dim textline Open "c:\text\denpyo.txt" For Input As #1 Do While Not EOF(1) Line Input #1, textline Debug.Print textline Loop Close #1 End Sub |
| >Freefile関数の使い方がわかりません。 ファイルをコードから複数開かないのであれば、FreeFile 関数は 使う必要がないとおもいますよ。（たぶん。） なので、現在のコードを元に、ヘッダー部・データ部を判断し、 テーブルに取込めるように修正すればいいと思います。 |
| 超初心者なので、まだこの先がわかっていませんが、一旦終了とさせていただきます。 イケガミさん、ありがとうございました。 |