MEMOで連続改行を規制したいんです。と他 (ID:698)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 上の１、２を理解できれば、あとはできるはずです。 上の２では、 上から順に、各行の末尾へ文字列を追加する。 です。 各行をループで調べられる(かつ、上から順に調べられるので、空行の連続が簡単に調べられる)ことがわかります。 これを踏まえて、次のように処理できますね。 順に調べて、空行でなければ空行カウントを０にする。 空行ならば、空行カウントを１進めて、 もし空行カウントがｎ以上であれば、現在の行を削除し、空行カウントを１戻す。 です。 ただし、削除するとLines.Countも変わるので、できればLines.Count-1から初めて、for i:=Memo1.Lines.Count-1 downto 0 とした方が楽です。 つまり、下から順に調べる、ということです。 少し違う方向から見るならば、(n+2)行以上の改行を、(n+1)行の改行に置き換える、とも言い換えられます。 # 先頭行のみ違います たとえば、n=2だとして、２行までの空行を許すとすると、 abc[改行][改行][改行]def[改行] は許されます。 abc[改行][改行][改行][改行]def[改行] は、abcの後の改行が１回多いです。 abc[改行][改行][改行][改行][改行]def[改行] は、abcの後の改行が２回多いです。 ４回改行でも、５回改行でも、必ず３回までにするのなら、４回改行を３回改行に置き換えられるだけ置き換えればよいのです。 abc[改行][改行][改行][改行][改行]def[改行] の、[改行][改行][改行][改行]を、[改行][改行][改行]に置き換えれば、 abc[改行][改行][改行][改行]def[改行] になります。 さらに置き換えれば、 abc[改行][改行][改行]def[改行] となります。 これ以上は、４回の改行が見つからないので終了です。 こちらの場合は、Whileループで、Pos関数の戻り値が0以上なら繰り返すようにして、Pos関数で改行が繰り返されている箇所を探し、その部分をSelLengthで指定してSelTextで置き換えてしまえばOkのはず。 # 未確認です。アイデアだけですみません。 これで解らなければ、わからない箇所について聞いてください。