種別 | ファイル入出力 |
---|---|
説明 | CSVファイルから、指定した項目のデータを取得します。 |
構文 | CsvData([File][, Item][, LineNo]) |
引数 | File :CSVのファイルパス Item :CSVの項目名 LineNo:CSVの行番号 |
戻り値 | Fileのみを指定した場合、CSVの行数を返す。 ItemとLineNoを指定した場合、項目データを返す。 |
使用例 | dim i,cnt,s cnt = CsvData("C:\temp\DW\TEST.CSV") 'CSVの行数を返す s = "" For i=1 To cnt '同じファイルなら、ファイルパスは、指定しなくても良い s = s & "受注番号 = " & CsvData("受注番号", i) & ", " s = s & "品名1 = " & CsvData("品名1", i) & ", " s = s & "品名2 = " & CsvData("品名2", i) & vbCrLf Next i MsgBox(s) '行数を取得せずに、データ取得も可能 s = CsvData("C:\temp\DW\マスター.csv", "業者名", 2) 'ファイル名を指定しない場合、直前のCsvDataのファイルから取得 s = CsvData("C:\temp\DW\注文書.csv", "型式", 3) s = CsvData(, "型式", 3) 'どちらの方式でも取得可能 s = CsvData("型式", 3) 'どちらの方式でも取得可能 |
実例 | |
備考 | 関連する関数(DataFileLoad、DataFileSave、DefinitionLoad、 DefinitionSave、TextFileLoad、TextFileSave、CsvData、CsvSrch、 SaveFieldCsv、LoadFile、SaveFile、SavePdf、AutoNumbering、 ChgFileName) |