EditFiles/Script/Library/上下改行・右端スペース削除.epp
| 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;
if Pos( ' ' + #13, S ) + Pos( ' ' + #13, S ) <> 0 then
begin
repeat
S:= ReplaseStr( S, ' ' + #13, #13 );
S:= ReplaseStr( S, ' ' + #13, #13 );
until Pos( ' ' + #13, S ) + Pos( ' ' + #13, S ) = 0;
end;
S:= TrimRight( S );
S:= TrimLeft( S );
SetPageText( i, S );
end;
end.
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;
if Pos( ' ' + #13, S ) + Pos( ' ' + #13, S ) <> 0 then
begin
repeat
S:= ReplaseStr( S, ' ' + #13, #13 );
S:= ReplaseStr( S, ' ' + #13, #13 );
until Pos( ' ' + #13, S ) + Pos( ' ' + #13, S ) = 0;
end;
S:= TrimRight( S );
S:= TrimLeft( S );
SetPageText( i, S );
end;
end.
