■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#24653-0Split関数でデリミタ区切りRYO2001-11-17(土) 17:14
     #24655-0RE#24653:Split関数でデリミタ区切りあき☆彡2001-11-17(土) 18:06
#24653-0
Split関数でデリミタ区切り
初心者です。お分かりになる方ぜひ教えてください。
CSVファイルを読み込んで、","ごとに区切ったフィールドを格納し、Debug.Printで書き出したいのですがうまくいきません。
なにがいけないのでしょうか? csvSplitを配列にしないと駄目なのでしょうか? 
エラーは「型が違います」というメッセージです。
ソースは下のものです。よろしくお願いします。

Private Sub command1_click()
    
    Dim inpNum        As Integer 
    Dim strRecBuff    As String
    Dim csvSplit      As Variant

    '■ファイルオープン:読み込み処理
    inpNum = FreeFile
    Open "aaa.csv" For Input As inpNum
        Do Until EOF(inpNum)
            Line Input #inpNum, strRecBuff
         
            csvSplit = Split(strRecBuff, ",")
            
            Debug.Print strRecBuff   ’←ここがおかしいのでしょうか? 
        Loop
    Close inpNum
#24655-0
RE#24653:Split関数でデリミタ区切り
> CSVファイルを読み込んで、","ごとに区切ったフィールドを格納し、Debug.Printで書き出したいのですがうまくいきません。
>csvSplitを配列にしないと駄目なのでしょうか? 
と思われたなら配列にして確認してみては(^^;

> エラーは「型が違います」というメッセージです。
型が違うとエラーになるなら型を同じにするとか(^^;

で、この部分を
>     Dim csvSplit      As Variant
     Dim csvSplit()      As String
とすれば良いと思います。

>     '■ファイルオープン:読み込み処理
>     inpNum = FreeFile
>     Open "aaa.csv" For Input As inpNum
>         Do Until EOF(inpNum)
>             Line Input #inpNum, strRecBuff
>          
>             csvSplit = Split(strRecBuff, ",")
>             
>             Debug.Print strRecBuff   ’←ここがおかしいのでしょうか? 
                     ↑
             エラーの原因ではないと思いますが、
             おかしい?と言われれば、
             区切ったフィールドを出力するならばcsvSplitを使わないといけないのでは?
>         Loop
>     Close inpNum

それでは、頑張って下さい。
このページと関連する記事:
#269-0TAB区切りのデータファイルの読み書きの方法1999-07-26(月) 14:43
#508-3テキストファイルを一気に読み込みたい。2003-12-05(金) 20:54
#33866-0ファイルの読み込みについて2000-11-21(火) 19:45
#1001-1保存ファイルと配列について2004-02-06(金) 12:37
#7782-0リストボックスの書き出し2000-04-27(木) 17:29
#365-4ファイルからデータの読み込み方。2003-12-04(木) 14:00
#17250-0ファイルの扱いについて教えて下さい NO.32000-12-20(水) 16:35
#16318-0配列について2001-05-25(金) 22:57
#8149-0テキストファイルの・・・2000-05-20(土) 17:56
#14278-0DO〜Loop分とLine Input文で全文を読み込み2001-02-01(木) 16:50
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)