대사1
<SYNC Start=300><P Class=KRCC>
<SYNC Start=500><P Class=KRCC>
대사2
<SYNC Start=600><P Class=KRCC>
<SYNC Start=800><P Class=KRCC>
대사3
<SYNC Start=900><P Class=KRCC>
<SYNC Start=1700><P Class=KRCC>
대사4
<SYNC Start=1800><P Class=KRCC>
<SYNC Start=200><P Class=KRCC>
대사1
<SYNC Start=300><P Class=KRCC>
<SYNC Start=500><P Class=KRCC>
대사2
<SYNC Start=600><P Class=KRCC>
<SYNC Start=800><P Class=KRCC>
대사3
<SYNC Start=900><P Class=KRCC>
<SYNC Start=1700><P Class=KRCC>
대사4
<SYNC Start=1800><P Class=KRCC>
========================================================================================================
위에 같은 자막에 를 일괄적으로 넣어 줄 수 있는 매크로입니다.
이런건 조금 난감한 편인데요
어쨌거나 매크로로 안되는건 없으니깐..
아래와 같이 매크로를 만들어주면 됩니다. 주석이나 이런건 지원 안되구요 ^_^;;
이 매크로 만들면서 느낀건데 태그 지우는 매크로 명령이 있어야되겠네요.. -_-a; 전에 만들었던거 같은데..
var LoopVar: Integer; LineAddBuf: String; AddnbspCount: integer; lChar: String; lLoop: Integer; lRLine: String; lRStr: String; EndLine: Integer; begin 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 If CC_ISSYNCLINE(LoopVar) Then Begin lRLine := Trim(CC_GETLINETEXT(LoopVar)); lRStr := ''; For lLoop := Length(lRLine) downto 1 do Begin lChar := Copy(lRLine, lLoop, 1); If lChar = '>' Then Break; lRStr := lRStr + lChar; End; If (Trim(lRStr) = '') and (Trim(LineAddBuf) = '') Then begin CC_INSERTLINE(LoopVar+1, ' '); AddnbspCount := AddnbspCount+1; End; LineAddBuf := ''; continue; End; LineAddBuf := LineAddBuf + TrimW(CC_GETLINETEXT(LoopVar)); End; if AddnbspCount > 0 then ShowMessage('총 '+IntToStr(AddnbspCount) + ' 개의 &nbsp; 를 추가했습니다.'); CCP_CaretX := 0; end; |
========================================================================================================
실행 후 결과
대사1
<SYNC Start=300><P Class=KRCC>
<SYNC Start=500><P Class=KRCC>
대사2
<SYNC Start=600><P Class=KRCC>
<SYNC Start=800><P Class=KRCC>
대사3
<SYNC Start=900><P Class=KRCC>
<SYNC Start=1700><P Class=KRCC>
대사4
<SYNC Start=1800><P Class=KRCC>
<SYNC Start=200><P Class=KRCC>
대사1
<SYNC Start=300><P Class=KRCC>
<SYNC Start=500><P Class=KRCC>
대사2
<SYNC Start=600><P Class=KRCC>
<SYNC Start=800><P Class=KRCC>
대사3
<SYNC Start=900><P Class=KRCC>
<SYNC Start=1700><P Class=KRCC>
대사4
<SYNC Start=1800><P Class=KRCC>
'나만의 매크로 응용' 카테고리의 다른 글
kmp 에서 블루레이립 sup 내장자막 보기 (0) | 2014.04.29 |
---|---|
종료 싱크가 반복적으로 들어간 아래쪽 싱크만 찾아 지우는 매크로 (0) | 2014.04.29 |
커서가 있는 줄의 싱크태그를 지우는 매크로 (0) | 2014.04.29 |
싱크, 종료 태그가 있는 줄만 지우기 매크로 (0) | 2014.04.29 |
공백줄 삭제 매크로 (0) | 2014.04.29 |