*CSVファイル→桐表読み込み変換プログラム Copyright(c) 1998
KoujiHabata
変数宣言 固有,文字列{&フォルダ名,&ファイル名1,&ファイル名}
変数宣言 固有,数値{&判断,&項目位置,&行位置}
ファイル名入力 初期値="*.csv",プロンプト="",&ファイル名1
&ファイル名=#ファイル名(&ファイル名1,2)
&フォルダ名=#ファイル名(&ファイル名1,5)
ファイル名変更 &フォルダ名+&ファイル名+".csv",&フォルダ名+&ファイル名+".k3"
表作成 &フォルダ名+&ファイル名+".TBL",定義ファイル="csv_tbl.k3",データファイル名=&フォルダ名+&ファイル名+".k3"
処理行指定 &判断,表,ガイド="項目名にする行を指定して下さい",画面消去=する
行番号 &行位置
属性自動設定 未定義値項目削除=する,表示幅ゼロ項目削除=する
&項目位置=1
繰り返し (&項目位置=<#項目数)
ジャンプ 行番号=&行位置
コマンド "項目名変更 ["+#文字列(&項目位置)+"]="+#TRIM(#項目属性(&項目位置,0),4)
&項目位置=&項目位置+1
繰り返し終了
ジャンプ 行番号=先頭
絞り込み 行数=&行位置
行削除 *
絞り込み解除 *
表整理 余白割合=10
表
ファイル名変更 &フォルダ名+&ファイル名+".k3",&フォルダ名+&ファイル名+".csv"
確認 &フォルダ名+&ファイル名+".TBL を作成しました。"
終了
|