종료 싱크가 반복적으로 들어간 아래쪽 싱크만 찾아 지우는 매크로

나만의 매크로 응용 2014. 4. 29. 14:00

싱크를 아래처럼 찍었다고 했을 때

--------------------------------------------------------------------

<BODY>

--------------------------------------------------------------------

종료 싱크 부분을 매크로로 돌려서 지워주는 게...

원하는 결과

--------------------------------------------------------------------

12345
<SYNC Start=600>

</BODY>
</SAMI>

--------------------------------------------------------------------

물론 가능합니다. 아래와 같이 작성해서 사용하시면 됩니다.

var
LineSumCount, DelLoop, LoopVar, ReadPos: Integer;
LineStr, CurrentSyncStr, PrevSyncStr: String;

BodyStart: Boolean;
iLoop: Integer;
EndLine: Integer;
AddnbspCount: integer;

begin

//CCP_SCRIPT := CC_STRINGREPLACE(CCP_SCRIPT, ''+CRLF+' ', ' ');

PrevSyncStr := '';
CurrentSyncStr := '';
LineSumCount := 0;
BodyStart := False;

EndLine := CC_CURRENTLINECOUNT-1;
For LoopVar := CC_CURRENTLINECOUNT-1 downto 0 do
Begin
 If Pos('</body>', LowerCase(CC_GETLINETEXT(LoopVar))) > 0 Then
 Begin
 EndLine := LoopVar-1;
 Break;
 End;
End;
 For LoopVar := EndLine downto 0 do

Begin
 LineStr := CC_GETLINETEXT(LoopVar);

 ReadPos := 0;
 For iLoop := Length(LineStr) downTo 1 do
 Begin
 If Copy(LineStr, iLoop, 1) = '>' Then
 Begin
 ReadPos := iLoop;
 Break;
 End;
 End;

 CurrentSyncStr := CurrentSyncStr + Trim(Copy(LineStr, ReadPos+1, Length(LineStr)-ReadPos));
 LineSumCount := LineSumCount + 1;

 If CC_ISSYNCLINE(LoopVar) Then
 Begin
 // 마지막으로 이전 출력값이랑 현재 출력값이 둘다 &nbsp 면 이전 싱크를 다 지웁니다.
 If (PrevSyncStr = ' ') and (CurrentSyncStr = ' ') Then
 Begin
 For DelLoop := 1 to LineSumCount do

 CC_DELETELINE(LoopVar+1);

AddnbspCount := AddnbspCount+1;

 End;

 PrevSyncStr := CurrentSyncStr;
 CurrentSyncStr := '';
 LineSumCount := 0;

 End;

End;

//CCP_SCRIPT := CC_STRINGREPLACE(CCP_SCRIPT, ' ', ''+CRLF+' ');

if AddnbspCount > 0 then ShowMessage('총 '+IntToStr(AddnbspCount) + ' 개의 ＆nbsp; 싱크 줄을 삭제했습니다.');
CCP_CaretX := 0;
//CP_TopLine := CP_TopLine + 1;
//CP_TopLine := CP_TopLine - 1;
End;

<SYNC Start=300> // 이 값이 남길 바랬는데...
<SYNC Start=400> 
<SYNC Start=450> // 매크로를 돌리면 이 값이 남네요...

CC_DELETELINE(LoopVar);이 값을

CC_DELETELINE(LoopVar+1); 이렇게 주니 해결됐네요^^

저작자표시 비영리 변경금지

'나만의 매크로 응용' 카테고리의 다른 글

사용자 정의 명령으로 인터넷 접속하기 (5)	2014.04.29
kmp 에서 블루레이립 sup 내장자막 보기 (0)	2014.04.29
를 일괄적으로 넣어 줄 수 있는 매크로 (5)	2014.04.29
커서가 있는 줄의 싱크태그를 지우는 매크로 (0)	2014.04.29
싱크, 종료 태그가 있는 줄만 지우기 매크로 (0)	2014.04.29

Posted by 투명인간취급

일	월	화	수	목	금	토
						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

NS Caption Creator 4 참고 백업 블로그

종료 싱크가 반복적으로 들어간 아래쪽 싱크만 찾아 지우는 매크로

'나만의 매크로 응용' 카테고리의 다른 글

카테고리

태그목록

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

글 보관함

달력

링크

티스토리툴바


	저는 개발자가 아닙니다. http://nscc.stylens.net/ 홈페이지가 접속이 안 돼서 NS Caption Creator 4(nscc4)에 유용한 기능들을 임시로 백업한 블로그입니다. by 투명인간취급