#author("2020-04-28T10:21:15+09:00","","") #author("2020-04-28T10:21:58+09:00","","") [[Ys TOOLs B]] ADD HOGE 0.1.0~ ~ ・始めに~ このTOOLは入力したテキストの各行の行末に<BR>/[l][r]/好きな文字列~ を、付け加えるTOOLです~ ~ ~ ・作成の動機~ 行末に<BR>を追加出来るTOOLと[l][r]を追加出来るTOOLは昔書いたのですが~ 某氏の助言で好きな文字を行末に追加できるようにしてはどう?~ みたいに言われたので そういうTOOLを書いてみました~ ~ ・使い方~ ~ ・「後ろに 文字列 追加の前」mesbox~ 文字列を各行の行末につけ加えたいテキストを書くかコピペするためのmesboxです~ ~ ・実行~ 「後ろに 文字列 追加の前」mesboxに 文字列 を各行の行末につけ加えたいテキストを書くかコピペして~ このbuttonを押すと各行の行末に 文字列 を付け加えて~ 「後ろに 文字列 追加の後」mesboxにそのテキストを表示します~ ~ ・「後ろに 文字列 追加の後」mesbox~ テキストの各行の行末に 文字列 を付け加えたテキストを表示します~ ~ 作成:高畑ラボ(Y_repeat)~ ~ ・連絡先~ バグなどありましたらご報告ください~ また改造後再配布時配布URLを教えていただけると嬉しいです~ y.tack2010@gmail.com~ #code{{ // 操作前文字列用mesbox用 sdim s,60000 // 操作後文字列用mesbox用 sdim t,60000 // ノートパッド用 sdim u,60000 title "add LR" // 画面初期化 f_skip_label=0 screen 0,480,600 mes "後ろに 文字列 追加の前" // sが中身の操作前文字列用mesbox mesbox s,480,200,5 // このbuttonを押すと[l][r]を行末に追加する objsize 100,24 pos 0,230 button "[BR]追加 実行",*do_add_br pos 100,230 button "[l][r]追加 実行",*do_add_lr pos 200,230 objsize 150,24 button "指定文字列 追加 実行",*do_add_hoge v4input="" input v4input,200,30 ID4input=stat objsize 100,24 // このチェックBOXをチェックすると*で始まる行には[l][r]を行末に追加しない pos 0,260 chkbox "ラベル無視",f_skip_label mes "後ろに 文字列 追加の後" // tが中身の操作後文字列用mesbox mesbox t,480,320,5 stop // 指定文字列を行末に追加するサブルーチン *do_add_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) // その文字が*でなければ[BR]を行末に追加 if tmp_2!="*"{ tmp+=v4input noteadd tmp,cnt,1 } }else{ // ノートパッドのcnt番目の行の文字列を取り出して noteget tmp,cnt // 文字列の後にをくっつけて tmp+=v4input // ノートパッドの取り出した行に上書き(格納) noteadd tmp,cnt,1 } loop // 出来上がった文字列を操作前meboxに反映 objprm 6,u stop stop // を行末に追加するサブルーチン *do_add_br 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) // その文字が*でなければ[BR]を行末に追加 if tmp_2!="*"{ tmp+="[BR]" noteadd tmp,cnt,1 } }else{ // ノートパッドのcnt番目の行の文字列を取り出して noteget tmp,cnt // 文字列の後にをくっつけて tmp+="[BR]" // ノートパッドの取り出した行に上書き(格納) noteadd tmp,cnt,1 } loop // 出来上がった文字列を操作前meboxに反映 objprm 6,u stop // [l][r]を行末に追加するサブルーチン *do_add_lr 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 // 文字列の後にをくっつけて tmp+="[l][r]" // ノートパッドの取り出した行に上書き(格納) noteadd tmp,cnt,1 } loop // 出来上がった文字列を操作前meboxに反映 objprm 6,u stop }}