HTMLタグを状況に応じて削除するマクロ

ダウンロード

delete_tag.zip

更新履歴

Version 1.01 (2024/2/25)

空要素の定義を削除

Version 1.00 (2023/12/14)

公開

ソースコード

setcompatiblemode 0x20200;
disabledraw;
begingroupundo;

call DeleteSelected;
goto DeletePair;

DeleteSelected:	//選択範囲内のタグを削除
	if (!selecting) return;
	##xt = seltopx; ##yt = seltopy; ##xe = selendx; ##ye = selendy;
	##rect = 0;
	if (rectselecting) ##rect = 1;
	##r = 0;
	
	escape;
	moveto ##xe, ##ye;
	
	while (1) {
		searchup "<[a-zA-Z!/?]", regular;
		if (!result) break;
		##xr = x; ##yr = y;
		$str = gettext2(column, lineno, column + 4, lineno);
		if (!strstr($str, "<!--")) searchdown "-->";
		else if (!strstr($str, "<?")) searchdown "?>";
		else searchdown "[^ <=>?-]>", regular;
		moveto selendx, selendy;
		if (result && ((##rect && (##xr >= ##xt && ##xr < ##xe && ##yr >= ##yt && x > ##xt && x <= ##xe && y <= ##ye)) || ((!##rect) && ((##yr > ##yt || (##xr >= ##xt && ##yr == ##yt)) && (y < ##ye || (x <= ##xe && y == ##ye)))))) {
			##r = 1;
			beginsel;
			moveto ##xr, ##yr;
			delete;
		} else if (##yr > ##yt || (##xr > ##xt && ##yr == ##yt)) moveto ##xr, ##yr;
		else break;
	}
	
	moveto ##xt, ##yt;
	if (!##r) beep;
	
	goto End;

DeletePair:	//カーソルを含む要素の開始タグと終了タグを削除
	##x = x; ##y = y;
	
	while (1) {
		if (selecting) escape;
		searchup "<[a-zA-Z][a-zA-Z0-9]*( [^>]+)?>", regular;
		if (!result) {	//カーソルを含む要素の開始タグが見つからなければ警告音で終了
			if (x != ##x || y != ##y) moveto ##x, ##y;
			beep;
			goto End;
		}
		##xr = x; ##yr = y;
		$$tag = gettext(x, y, selendx, selendy);	//開始タグ
		##len = strstr($$tag, " ") - 1;	//要素名の長さ
		if (##len < 0) ##len = strlen($$tag) - 2;
		$$en = midstr($$tag, 1, ##len);	//要素名
		$$etag = "</" + $$en + ">";	//終了タグ
		while (1) {
			if (selecting) escape;
			searchdown $$etag;
			if (!result) break;
			moveto selendx, selendy;
			$$str = gettext(##xr, ##yr, x, y);
			call CheckElement $$str, $$en;
			if (##return) break;
		}
		if (result && (##y > ##yr || (##x > ##xr && ##y == ##yr)) && (##y < y || (##x < x && ##y == y))) break;
		moveto ##xr, ##yr;
	}
	
	searchup $$etag;
	delete;
	moveto ##xr, ##yr;
	searchdown2 $$tag;
	delete;
	
	goto End;

CheckElement:	//指定文字列における指定要素のタグの対応を調べる
	call Count $$1, "<" + $$2 + " ";
	##stag = ##return;	//開始タグの数
	call Count $$1, "<" + $$2 + ">";
	##stag = ##stag + ##return;
	call Count $$1, "</" + $$2 + ">";
	##etag = ##return;	//終了タグの数
	##match = 0;
	if (##stag == ##etag) ##match = 1;
	return ##match;

Count:	//文字列の出現回数を調べる
	$$str = $$1;	//検索対象文字列
	##n = strstr($$1, $$2);	//文字列の出現位置
	##len = strlen($$2);	//文字列長
	##i = 0;
	while (##n > -1) {
		##i = ##i + 1;
		$$str = midstr($$str, ##n + ##len);	//未検索文字列
		##n = strstr($$str, $$2);
	}
	return ##i;

End:	//終了処理
	endgroupundo;
	enabledraw;
	endmacro;

範囲選択による削除は、厳密にはタグの先頭と末尾が選択範囲に含まれているかどうかで判定しています。
複数行にわたるタグをBOX選択で削除する場合は、この点に注意してください。

最初は、タグ内で実行するとタグを単独で削除する機能も作っていました。
でも実際に使ってみると、HTMLタグを選択するマクロを使ってタグを削除したほうが早く、結局ほとんど使わない機能となり、むしろ開始タグと終了タグを削除する機能の邪魔になってしまったため、ソースコードも削除した経緯があります。