|
[2866] Re5: 連続する改行を一つにしたい | |
|
▽ 2003/4/8 (火) 14:59:37 MMX |
|
Opera/7.03 (Windows NT 5.1; U) [ja] |
▼ すいさん
> 以外にありません。
if文の原料が少ないと苦しいです。
エディタの状態値（Getｘｘｘｘ）は不足している。
------ 連続空白行圧縮.PPA
S_GoFileEnd(0); // ファイルの最後に移動
while True do begin
S_SearchPrev('^[ \t]*\r\n', 4); // 前を検索
if S_GetSelectedString(0) = '' then Break;
S_InsText('★'): // 置換
end;
S_ReplaceAll('^★+', '\r\n', 4); //
-------------------------------------
|
|