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

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
//    操作前文字列用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

添付ファイル: fileYs_A03 ADD LR wiki.zip 76件 [詳細]