秀丸マクロで列ごとに一括置換したい

Question

事で急に初めて秀丸を使用することになりました。
EXCEL VBAは多少使ったことがあるのですが、
秀丸マクロは置換＝replaceallくらいしかまだ調べられていません。
下記のことをマクロで行いたいのですがコードを教えていただけますでしょうか。


やりたいこと：

①100列超×10000行超のCSVファイルのデータに対して、
　指定した列のみ全角スペース１個を半角スペース４個に変換したい
②指定列以外に全角スペースがあっても変換したくない
③指定列は必ずしも連続していない
④全角スペースの数は１項目に１個
　（全角スペース１個の項目と、↓の「家族人数」列のように
　　スペースの前に数値がある項目も存在します）
⑤１行目は見出し行、２行目からが明細行
　（変換対象は２行目から最終行の特定の列です）
⑥変換対象のCSVファイルは複数存在しますがどれもレイアウトは同じですので
　変換したい列番号も同じです


例：

No.,名前,住所,子供有無,住居,家族人数,車有無,備考
001,はなこ,東京都　,有,マンション,3人,　,
002,たろう,神奈川県,無,アパート　,0　,有,
003,よしこ,埼玉県　,有,戸建　　　,4人,無,ペットは犬

変換したい列＝「子供有無」「家族人数」「車有無」の３列のみ
（家族人数が「0　」と登録されることはあまりないと思いますが
あくまで例と思っていただければと思います。）

秀丸のバージョンは8.52です。

変換対象のCSVファイルは複数存在し、少しおいてまた作業があるので簡易化・ミス減のためマクロを作成したいです。個人的にはエクセルで実施したかったのですが秀丸で変換するよう指定され、対応することとなった次第です。

他力本願となってしまい本当に申し訳ございませんがお力をお貸しください。
長文すみませんでした。よろしくお願いいたします。

siffon9 · Accepted Answer

こんなかんじで如何でしょうか？
4列目、6列目、7列目に対して置換を行っています。

setcompatiblemode 0x0F;
gofiletop;
replaceall "(?<=^([^,]+,){3}[^,]*)(?=　+[^,]*,([^,]+,){3})　" , "    " , regular, nocasesense, nohilight;
gofiletop;
replaceall "(?<=^([^,]+,){5}[^,]*)(?=　+[^,]*,[^,]+,)　" , "    " , regular, nocasesense, nohilight;
gofiletop;
replaceall "(?<=^([^,]+,){6}[^,]*)(?=　+[^,]*,)　" , "    " , regular, nocasesense, nohilight;
if( ! result )  beep;

siffon9 · Answer

置換コマンドを使用せずに、2行目以降の行頭から1文字ずつ見ていくマクロを勉強がてら作成してみました。
ご参考にどうぞ。

setcompatiblemode 0x0F;
#target_col = 4; //対象カラム、最左カラムを0とする。
$target_char = "　"; //置換対象文字（全角スペース）
$replace_char = "    ";//置換後文字（半角スペース4個)

gofiletop;
down;
while(code != eof){
	golinetop2;

// 対象カラムまでカーソル移動
	if(#target_col != 0){
		#i = 0;
		while(#i != #target_col){
			if(char(code) == ","){
				#i = #i + 1;
			}
			right;
		}
	}

//対象カラムで文字置換
	while(true){
		if(code == 0x0D) break;
		if(char(code) == ",") break;
		if(char(code) == $target_char){
			delete;
			insert($replace_char);
			left;
		}
		right;
	}

//次行へ移動
	golineend2;
	right;
}

siffon9 · Answer

> "(?<=～～～"の部分はどういうことを行っているのか、詳しく伺ってもよろしいでしょうか。

目的のカラムの全角スペースにマッチ（適合）するような正規表現を記述しています。
正規表現の詳細については、ここでは説明しきれませんのでお手数ですが入門サイト等をご参照ください。

前出のマクロの正規表現を簡単に解説します。
（以下、全角スペースを□で表します）

"(?<=正規表現1)(?=正規表現2)□"　は、
置換対象の□の前に、正規表現1にマッチする文字列があり、
かつ、置換対象の□以降（対象の□も含む）が、正規表現2にマッチする。
という意味になります。

"(?<=^([^,]+,){3}[^,]*)(?=　+[^,]*,([^,]+,){3})　"を例にとると

正規表現1は、"^([^,]+,){3}[^,]*"
正規表現2は、"　+[^,]*,([^,]+,){3}" となります。

正規表現1は
行頭から"○○,"が3個あり、その後に","以外の文字が0個以上続くという意味です。
目的の□の前に"○○,"（すなわち","で終わる文字のかたまり）が3個ということで、4カラム目を指定しています。

正規表現2は
対象の□、","以外の文字が0個以上、","(4カラムの終了）、"○○,"が3個、の順で文字が並んでいるという意味になります。

この例では","が1行に7個、すなわち1行が8カラムで構成されていることが前提になっています。
実際に使用されるCSVのカラム数が異なる場合は、適宜修正する必要があります。

ちょっと難しいかもしれませんが、頑張って解読してみて下さい。

siffon9 · Answer

No.1です。
申し訳ありません、No.1のマクロだとヘッダ行の全角スペースも置換してしまいますね。
以下の様に修正をお願いします。
・各gofiletop; の下に down; を追加
・replaceall  を replacedown に変更

補足いただいた件について
私も詳しいわけではないのですが、selectcolomnは文字の位置を指定するのではなくて、TSVまたはCSVモード表示時においてカラム番号を指定するような使用方法になります。ですから、選択できるのはカラム単位になると思います。
また、ちょっと試してみたのですがreplaceXXのコマンドで、選択範囲内のみでの置換操作ができないようですね。

秀丸マクロで列ごとに一括置換したい

こんなかんじで如何でしょうか？

置換コマンドを使用せずに、2行目以降の行頭から1文字ずつ見ていくマクロを勉強がてら作成してみました。

> "(?<=～～～"の部分はどういうことを行っているのか、詳しく伺ってもよろしいでしょうか。

No.1です。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング