NS Caption Creator 4 참고 백업 블로그

var
  ClearTagFlag: Boolean;
  CommentTagFlag: Boolean; //주석 태그 체크
  StartTagFlag: Boolean;
  LoopVar: Integer;//줄번호
  CurrentLine: WideString; //현재 줄
  NextLine: WideString; //다음 줄

  AddBRCount: Integer; //<br> 추가 개수
begin

  ClearTagFlag := False;
  StartTagFlag := False;
  For LoopVar := 0 To CC_CURRENTLINECOUNT-2 Do
  Begin

     CurrentLine := TrimW(CC_GETLINETEXT(LoopVar));
     NextLine := TrimW(CC_GETLINETEXT(LoopVar+1));
// 싱크 중간 긴 주석문에 <br> 안 들어가게 하는 체크문
     If (CommentTagFlag) and (Pos('-->', CurrentLine) > 0) or (CommentTagFlag) and (Pos('-->', NextLine) > 0) Then CommentTagFlag := False;

     If CC_ISSYNCLINE(LoopVar) Then
     Begin
        If Not StartTagFlag Then StartTagFlag := True;
        Continue;
     End;
    
     If Not StartTagFlag Then Continue;

     If CC_ISSYNCLINE(LoopVar+1) Then
        Continue;

// 대사, &nbsp; 아래 줄에 공백일 때 <br> 안 들어가게 하는 if문
     If (CurrentLine = '') or (CurrentLine = '&nbsp;') or (NextLine = '') or (NextLine = '&nbsp;') Then
     Begin
        ClearTagFlag := True;
        Continue;
     End;

// 싱크 중간 긴 주석문에 <br> 안 들어가게 하는 체크문
     If (Pos('<!--', CurrentLine) > 0) or (Pos('<!--', NextLine) > 0) Then CommentTagFlag := True;
     If (CommentTagFlag) and (Pos('-->', CurrentLine) > 0) or (CommentTagFlag) and (Pos('-->', NextLine) > 0) Then CommentTagFlag := False;

     If (Pos('-->', CurrentLine) > 0) and (Pos('-->', CurrentLine) > Length(CurrentLine)-3) or (Pos('-->', NextLine) > 0) and (Pos('-->', NextLine) > Length(NextLine)-3) Then Continue;
     If (CurrentLine <> '') or (CurrentLine <> '&nbsp;') or (NextLine <> '') or (NextLine <> '&nbsp;') Then ClearTagFlag := False;

     If ClearTagFlag or CommentTagFlag Then Continue;

     If (Pos('</BODY', UpperCase(CurrentLine)) <> 0) or (Pos('</BODY', UpperCase(NextLine)) <> 0) Then Break;

     If UpperCase( Copy(CurrentLine, Length(CurrentLine)-3, 4) ) <> '<BR>' Then
     Begin
        CC_MODIFYLINE(LoopVar, CurrentLine+'<BR>');
        AddBRCount := AddBRCount + 1;
     End;

  End;

//핸들러로 <br> 추가 개수가 1개 이상이면 메시지박스 출력,
//<br> 1개라도 추가한 게 없으면 메세지박스 안 뜨게 했습니다.
if AddBRCount > 0 then ShowMessage('총 '+IntToStr(AddBRCount) + ' 개의 <BR> 태그가 추가되었습니다.');

end; 

var
  LoopVar: Integer;
  CurrentLine: WideString;   
begin
  For LoopVar := 0 To CC_CURRENTLINECOUNT-1 Do
  Begin
     CurrentLine := TrimW(CC_GETLINETEXT(LoopVar));

     If Pos('<SYNC', UpperCase(CurrentLine)) > 0 Then
     Begin       
        CurrentLine := CC_STRINGREPLACE(CurrentLine, '<SYNC', '<SYNC');
        CC_MODIFYLINE(LoopVar, CurrentLine);
     End;
  End;
end;

Delete(CCP_CURRENTLINE, CCP_CARETX, 1);
CCP_CARETX := CCP_CARETX - 1;

if (CCP_CARETX <= 0) Then
Begin
If (CCP_CARETY <= 0) Then Exit;
CCP_CARETY := CCP_CARETY - 1;
CCP_CARETX := Length(CCP_CURRENTLINE);
CCP_CURRENTLINE := CCP_CURRENTLINE + CC_GETLINETEXT(CCP_CARETY+1);
CC_DELETELINE(CCP_CARETY+1)
End
Else
Begin
Delete(CCP_CURRENTLINE, CCP_CARETX, 1);
CCP_CARETX := CCP_CARETX - 1;
End;

 맞춤법 검사

 Speller.cs2

ScriptName=인터넷 실행

unit InternetRun;

function ShellExecute(hWnd: integer; Operation, FileName,
  Parameters, Directory: PChar; ShowCmd: Integer): integer;
  external 'shell32.dll' name 'ShellExecuteA';                              
  
procedure Main;
begin
  ShellExecute(0, 'open', 'iexplore.exe', 'http://stylens.com', ' ', 1);
end;

end.

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, '<P Class=KRCC>'+CRLF+'&nbsp;', '<P Class=KRCC>&nbsp;');

  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 = '&nbsp;') and (CurrentSyncStr = '&nbsp;') 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, '<P Class=KRCC>&nbsp;', '<P Class=KRCC>'+CRLF+'&nbsp;');

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

var
  LineCheck, MaxLine: Integer;
begin
  MaxLine := CCP_CaretY - 10;
  If MaxLine < 0 Then MaxLine := 0;

  for LineCheck := CCP_CaretY downto MaxLine do
  begin
    If CC_ISSYNCLINE(LineCheck) Then
    Begin
  CCP_CaretY := LineCheck;
  CC_RUNLOWCOMMAND('Menu_DeleteCurrentTime');
  CCP_CURRENTLINE := CC_STRINGREPLACE(CCP_CURRENTLINE, '<Sync Start=0><P Class=KRCC>', '');
    End;
  end;
end;

If CC_ISSYNCLINE(CCP_CARETY) Then
Begin
CC_RUNLOWCOMMAND('Menu_DeleteCurrentTime');
CCP_CURRENTLINE := CC_STRINGREPLACE(CCP_CURRENTLINE, '<Sync Start=0><P Class=KRCC>', '');

If CCP_CURRENTLINE = '' Then CC_DeleteLine(CCP_CARETY); //추가
End;