「アウトラインのノードレベルを上げる」の版間の差分

編集の要約なし
MSY-07 (トーク | 投稿記録)
変数にvarの宣言を追加
 
(同じ利用者による、間の6版が非表示)
1行目: 1行目:
当方プログラムをする身ではないため、不適切な記述があるかもしれません。
2025年1月11日現在、Google Playでハルナアウトラインがダウンロードできないため、このマクロを使用する意味がなくなりました。
訂正・更新あればよろしくお願いします。
 
<source lang="javascript">
<syntaxhighlight lang="javascript" copy>
#title = "ノードレベルを上げる"
#title = "ノードレベルを上げる"
/******************************************************************************************
/******************************************************************************************
25行目: 25行目:
var pos = 0;
var pos = 0;


reg = new RegExp("^\\" + NdMkr + "+");
var reg = new RegExp("^\\" + NdMkr + "+");
 
var sel = document.selection;
 
//カーソル位置を保持
pos = sel.GetActivePos();


with (document.selection) {
//ノード行先頭にカーソルがある場合、取り漏らすためカーソルを移動
sel.EndOfLine(false,mePosLogical);


//カーソル位置を保持
//カーソル手前に存在する先頭がノード記号である行から、旧ノード名を取得
pos = GetActivePos();
//先頭n文字がノードの深さを示している想定


//ノード行先頭にカーソルがある場合、取り漏らすためカーソルを移動
if (sel.Find("^\\"+ NdMkr , meFindPrevious | meFindReplaceRegExp) > 0){
EndOfLine(false,mePosLogical);
sel.SelectLine();
ndNmOld = sel.Text;


//カーソル手前に存在する先頭がノード記号である行から、旧ノード名を取得
//深さ2以上の時のみ、動作。
//先頭n文字がノードの深さを示している想定
if(ndNmOld.match(reg)[0].length > 1 ){
//旧ノード名の先頭1文字を削除し、新ノード名とする(深さを1減らしレベルを上げる)
if (Find("^\\"+ NdMkr , meFindPrevious | meFindReplaceRegExp) > 0){
ndNmNew = ndNmOld.slice(1) ;
SelectLine();
ndNmOld = Text;


//深さ2以上の時のみ、動作。
//選択中の旧ノード名文字列を削除し、新ノード名を追記する。
if(ndNmOld.match(reg)[0].length > 1 ){
sel.Delete();
//旧ノード名の先頭1文字を削除し、新ノード名とする(深さを1減らしレベルを上げる)
document.Write(ndNmNew);
ndNmNew = ndNmOld.slice(1) ;
//選択中の旧ノード名文字列を削除し、新ノード名を追記する。
Delete();
document.write(ndNmNew);
//ノード記号を削除した分カーソル位置を巻き戻す
pos --;
}


//ノード記号を削除した分カーソル位置を巻き戻す
pos --;
}
}
//カーソル位置の復帰
SetActivePos (pos, false);
}
}
//カーソル位置の復帰
sel.SetActivePos (pos, false);


document.HighlightFind = false;
document.HighlightFind = false;
</source>
</syntaxhighlight>
スポンサーリンク