上下改行・右端スペース削除.epp | Library | Script | EditFiles - やる夫AA録2

まだやる夫AA録2 で消耗してるの？
アスキーアート探すなら AAMZ Viewer

やる夫AA録2は更新を無期限で休止致します。詳しくはこちら。

EditFiles/Script/Library/上下改行・右端スペース削除.epp

toseiaaCopyAndPaste.epp (0.6 KiB)

URL
Size	0.54 KiB
Last Mod.	2011-09-19 03:47
File	ファイルをダウンロード

通常モード
コピペモード

var
S : String;
I : Integer;

begin
if not IsStory then
begin
ActionExecuteOfString( 'edit2DelEndSpace' );
S:= EditorText;
S:= TrimRight( S );
S:= TrimLeft( S );
EditorSetText ( S );
Exit;
end;

for i:= 0 to PageCount-1 do
begin
S:= PageText( i ) + #13#10;

begin
repeat

S:= ReplaseStr( S, ' ' + #13, #13 );

end;
S:= TrimRight( S );
S:= TrimLeft( S );
SetPageText( i, S );
end;
end.