(サクラエディタ)(マクロ)(VBScript)(範囲指定した行の行頭に指定した文字を挿入するのを作ってみている所・・・)

　以前フリーの「だいなファイラー」を使ってみていると書きましたが
現在は「あふ」を使っています笑）
環境設定自体はかなりめんどいけど細かな設定ではやはりだいなファイラーより上かな？と
自分向けの環境が出来てくるとこれはかなり爽快な感じで使えますね
私の卓駆からの移行の本命は「あふ」になるかも！？笑）

　とファイラーの話はここまでで
フリーソフト化計画としてサクラエディタをやっているわけですが
となると当然マクロ機能が気になるところです

　個人的に凄く気になったのが行の数え方が「折り返し単位」がメインという
エディタ的感性の持ち主としてはかなり頭を痛める仕様になっていることですね笑）
ワープロ的感性の持ち主ならハッピーな仕様なのかもしれませんが・・・笑）
エディタ的感性というのはいうまでも無く「改行単位」って事ですね
スクリプトなどのプログラムに対してマクロ処理する場合は
そんなエディタ側の都合でしかない「折り返し単位」じゃ辛いんですよね・・・笑）

　ということで現在悩みに悩みまくって製作中なのが
スクリプトやプログラムに対するマクロの基本中の基本となる
『範囲指定した行の行頭に指定した文字列を挿入する』
です・・・・＜そんな事に苦労するなよという声が聴こえてくる・・・笑）
まぁ同じような事が出来る簡潔なプログラムはすぐに作ったんですが
ウインドウサイズによっては「折り返し」が発生して
どうしてもずれてしまうんですよね・・・、改行単位ならこんなことには・・・・

　という事でそのサンプルです
いろんなところでエレガントさに欠けたコーディングがあって恥ずかしい・・・・笑）
というか VB関係のプログラム書くの本当に久しぶりだなぁ〜

Option Explicit

Call main

Sub main()
	Dim PrefixStr, buf, buf_ary, re, line, IsFirst, SelFrom, IsOneLine

	' 行頭に挿入する文字を取得する
	' キャンセル もしくは 値をセットしなかった場合 は
	' このマクロを終了する
	PrefixStr = InputBox("行頭に挿入する文字を入力してください", "行頭に挿入")
	If ( PrefixStr = "" ) Then
		Exit Sub
	End If

	' 選択範囲が掛かっている行を選択状態にする
	' ついでに 1行かどうか や 選択開始行を保存しておく
	SelFrom = RangeSelToLineSel(IsOneLine)

	' 選択範囲を処理して 行頭に 指定された文字を打った文字列を生成
	buf = Editor.GetSelectedString
	If ( IsOneLine ) Then
		Call Editor.InsText(PrefixStr + buf)
		Exit Sub
	End If
	buf_ary = Split(buf, vbCrLf)
	buf = ""
	IsFirst = True
	Set re = New RegExp
 	re.Pattern = "^"
	For Each line In buf_ary
		If IsFirst Then
			buf =re.Replace(line, PrefixStr) 
			IsFirst = False
		Else
			buf = buf + vbCrLf + re.Replace(line, PrefixStr)
		End If
	Next

	' 範囲選択は維持されているはずなので そこにペースト
	' 結果的に 範囲選択 と 置換される
	Call Editor.InsText(buf)

	' 範囲指定開始行に戻り 画面をリドローする
	Call Editor.Jump(SelFrom, 0)
	Call Editor.ReDraw(0)
End Sub

' 選択範囲が掛かっている行を選択状態にする関数
' 第1引数 は 書き戻しで 範囲指定が一行かどうかを判断する物
' 戻り値は 選択開始行の行番号（折り返し単位）
Function RangeSelToLineSel(ByRef IsOneLine)
	Dim SelFrom, SelTo

	' 選択中では無い場合は 現在の行を選択して終わり
	If ( Editor.IsTextSelected = 0 ) Then
		Call Editor.SelectLine(0)
		IsOneLine = True
		RangeSelToLineSel = Editor.GetSelectLineFrom()
		Exit Function
	End If

	' 選択範囲の 開始行 と 終了行を取得 (いずれも 折り返し単位)
	SelFrom = Editor.GetSelectLineFrom()
	SelTo = Editor.GetSelectLineTo()
	' カーソルが行頭にあるとその行まで範囲に入るので
	' 対象にしないようにする
	' ただし矩形範囲指定の場合は除く
	If ( Editor.GetSelectColmTo() <= 1 ) and ( Editor.IsTextSelected <> 2 )Then
		SelTo = SelTo - 1
	End If

	' 一旦範囲選択を解除、これをしないと矩形範囲の時おかしくなる
	Call Editor.CancelMode

	' Jump直後はカーソルが行頭にあるので そのまま 範囲選択を開始
	' 範囲終了行までJumpしてカーソルを行末に持っていく
	Call Editor.Jump(SelFrom, 0)
	Call Editor.BeginSelect()
	Call Editor.Jump(SelTo, 0)
	Call Editor.GoLineEnd_Sel()
	IsOneLine = False
	RangeSelToLineSel = SelFrom
End Function

　まぁ「Editor」を連呼している所は「With Editor 〜 End With」とかすれば
多少は落ち着くかも・・・