// quote.csv.cms 2009.10.03 by あすかぜ // // 特定の列のみをクオートして CSV 形式でエクスポートします。 // 編集・再配布は自由です。 // // 使い方: // Cassava を展開したフォルダ内の「Export」フォルダ内にこのファイルを置き、 // Cassava を再起動してください。 // // [ファイル]-[エクスポート] を実行し、ファイルの種類で QUOTE.CSV を選択してください。 // 保存ボタンを押すとインプットボックスが表示されるので、 // 「2,3,4」のような形式で列を指定してください。 // 指定した列のみをクオートして出力します。 // 出力する列の入力 cols = InputBox("クオートする列を指定してください。"); if(cols == ""){ MessageBox("キャンセルしました。"); return; } cols = "," + replace(cols, " ", "") + ","; // 各行をループ for(y=1; y<=Bottom; y++){ for(x=1; x<=Right; x++){ // 2 つめのデータ以降は「,」 を出力 if(x > 1){ write(","); } if(pos(cols, "," + x + ",") > 0){ // "" で囲んで出力。" は "" に変換。 write("\""); write(replace([x,y], "\"", "\"\"")); write("\""); }else{ // そのまま出力。 write([x,y]); } } writeln(); }