#author("2020-04-15T14:21:39+09:00","","")
[[Ys TOOLs A]]

ADD LR 0.2.0~
~
・始めに~
このTOOLは入力したテキストの各行の行末に[l][r]を付け加えるTOOLです~
~
・作成の動機~
最近、吉里吉里を使い始めて、文章のコピペ用にADD BRsを改造したら~
更に簡単に使えるかな？と思い作成しました~
~
・使い方~
~
・「[l][r] 追加の前」mesbox~
[l][r]を各行の行末につけ加えたいテキストを書くかコピペするためのmesboxです~
~
・実行~
「[l][r] 追加の前」mesboxに[l][r]を各行の行末につけ加えたいテキストを書くかコピペして~
このbuttonを押すと各行の行末に[l][r]を付け加えて~
「[l][r] 追加の後」mesboxにそのテキストを表示します~
~
・「[l][r] 追加の後」mesbox~
テキストの各行の行末に[l][r]を付け加えたテキストを表示します~
~
・ラベル無視チェックボックス~
このチェックボックスをcheckすると~
行の先頭行が*の行（吉里吉里においてはラベル）には~
行末に[l][r]をつけません~
~
作成：高畑ラボ(Y_repeat)~
~
・連絡先~
バグなどありましたらご報告ください~
また改造後再配布時配布URLを教えていただけると嬉しいです~
y.tack2010@gmail.com~
#code(c,nooutline){{
//	操作前文字列用mesbox用
sdim s,60000
//	操作後文字列用mesbox用
sdim t,60000
//	ノートパッド用
sdim u,60000

title "add LR"
//	画面初期化
	f_skip_label=0
	screen 0,480,600
	mes "[l][r] 追加の前"
//	sが中身の操作前文字列用mesbox
	mesbox s,480,200,5
//	このbuttonを押すと[l][r]を行末に追加する
	objsize 64,24
	button "実行",*do_hoge
	objsize 100,24
//	このチェックBOXをチェックすると*で始まる行には[l][r]を行末に追加しない
	chkbox "ラベル無視",f_skip_label
	mes "[l][r] 追加の後"
//	tが中身の操作後文字列用mesbox
	mesbox t,480,320,5
	stop
	
//	[l][r]を行末に追加するサブルーチン
*do_hoge
	sdim tmp,2000
//	操作前mesboxの中身の入ったsをuにコピーして
		u=s
//	uをノートパッド命令の対象にする
	notesel u
//	文字列の行数繰り返すのでnotemax回繰り返す
	repeat notemax
//	チェックBOXをチェックしていたら
		if f_skip_label==1{
			noteget tmp,cnt
//	ノートパッドから一文字取り出して
			tmp_2=strmid(tmp,0,1)
//	その文字が*でなければ[l][r]を行末に追加
			if tmp_2!="*"{
				tmp+="[l][r]"
				noteadd tmp,cnt,1
			}
		}else{
//	ノートパッドのcnt番目の行の文字列を取り出して
			noteget tmp,cnt
//	文字列の後に<BR>をくっつけて
			tmp+="[l][r]"
//	ノートパッドの取り出した行に上書き（格納）
			noteadd tmp,cnt,1
		}
		loop
//	出来上がった文字列を操作前meboxに反映
	objprm 3,u
	stop
}}