/*
SMPLAY 1.3.0 build36에 자막 파서 엔진


2002.12.24
버그 패치 파일 오픈 방법을 고전 fopen 에서 스트링리스트에 LoadFromFile로 방법 하니 잘되네..

2003. 1. 8
일반적인 예제 프로그램으로 컨버젼

by SPARROW

*/


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{


       String filename;
       String tmp,tmp2,p,caps,caps2;  //s[]줄단위

       TStringList * s;

       s = new TStringList();

       char buf[80];
       int i=0,x=0,k=0,sp,sp2;  //sp스타트 포인트

  if ( OpenDialog1->Execute() )
       filename = OpenDialog1->FileName;

   if ( FileExists(filename) )
   {
           s->LoadFromFile(filename);

        cap_max=s->Count;
        //헤더 부분 건너 뒤기 알고리즘
        for (i=0;i<cap_max;i++){
                tmp=UpperCase( s->Strings[i] ); //대문자로 변환
                if (tmp.AnsiPos("START=") !=0)
                        break;
        }//여기서 i값의 초기화가 된다..

        for (;i<cap_max;i++){
                tmp=UpperCase( s->Strings[i] ); //대문자로 변환
            //    p=s[i];     //싱크 파싱을 위한 백업
                //caps=s[i];  //자막 파싱을 위한 백업

                caps = s->Strings[i];

                //caps2="";
                if (tmp.AnsiPos("START=") !=0) {     //싱크숫자 배오기 알고리즘
                      k++;
                      sp=tmp.Pos("=");  //=위치찾기..
                      p=tmp.Delete(1,sp);  //=앞부분 제거

                      sp=p.Pos(">"); // > or MS 붙은거 파싱...
                      sp2=p.Pos("MS");
                      if (sp2!=0 && sp2<sp)
                             sp=sp2;

                       p=p.Delete(sp,p.Length()); // > or MS 뒷부분을 제거
                       syc[k]=p.ToInt(); //싱크수치를 숫자로 변환

                       p="";
                       //자막 파싱 과정....
                       sp=caps.Pos(">"); //<SYNC START=xxxxx >
                       p=caps.Delete(1,sp);  //>앞부분 제거

                       sp=p.Pos(">"); //<P CLASS xxxxx >
                       p=p.Delete(1,sp);  //부분 제거

                     caps=p;
                    //x 예외처리 반복이 5 이상이 넘어가면 파싱 중지
                    x=0 ;
                    while(caps.Pos("<")!=0 || caps.Pos(">")!=0 || caps.Pos("&nbsp")!=0){
                     x++;
                     if (x>5) break;  //예외처리 무한루푸 방지

                       tmp=UpperCase(caps);
                       sp=tmp.Pos("</BR>"); //
                       if (sp>0){
                           tmp2=caps;
                           tmp=caps.Delete(sp,caps.Length()); //앞부분이 남느다.
                           tmp2=tmp2.Delete(1,sp+4); //뒷부분 남는다
                           caps=tmp + '\n' + tmp2;
                          }

                       tmp=UpperCase(caps);
                       sp=tmp.Pos("<BR>"); //
                       if (sp>0){
                           tmp2=caps;
                           tmp=caps.Delete(sp,caps.Length()); //
                           tmp2=tmp2.Delete(1,sp+3);
                           caps=tmp + '\n' + tmp2;
                        }

                       tmp=UpperCase(caps);
                       sp=tmp.Pos("&NBSP;"); // 어쩌구 자막 부터 <br> 길이 탐색..
                       if (sp>0){
                           tmp2=caps;
                           tmp=caps.Delete(sp,caps.Length()); //
                           tmp2=tmp2.Delete(1,sp+5);
                           caps=tmp + ' ' + tmp2;
                       }
                       //알수없는 테그 처리
                       tmp=caps;
                       sp=tmp.Pos("<");
                       sp2=tmp.Pos(">");
                       if (sp>0 || sp2>0) {
                          tmp2=caps;
                          tmp=caps.Delete(sp,caps.Length());
                          tmp2=tmp2.Delete(1,sp2);
                          caps=tmp + tmp2;
                        }
                     }

                       Capx[k]=caps;


                }else { //싱크스타트가 없는 문자열
                    //x 예외처리 반복이 5 이상이 넘어가면 파싱 중지
                  x=0;
                  while(caps.Pos("<")!=0 || caps.Pos(">")!=0 || caps.Pos("&nbsp")!=0){
                    x++;
                    if (x>5) break;  //예외처리 무한 루푸 방지
                    sp=tmp.Pos("&NBSP;");
                    if (sp>0){
                        tmp2=caps;
                        tmp=caps.Delete(sp,caps.Length());
                        tmp2=tmp2.Delete(1,sp+5);
                        caps=tmp + ' ' + tmp2;

                     }
                    tmp=UpperCase(caps);
                    sp=tmp.Pos("</BR>");
                    if (sp>0){
                        tmp2=caps;
                        tmp=caps.Delete(sp,caps.Length());
                        tmp2=tmp2.Delete(1,sp+4);
                        caps=tmp + ' ' + tmp2;
                     }
                     tmp=UpperCase(caps);
                     sp=tmp.Pos("<BR>");
                     if (sp>0){
                        tmp2=caps;
                        tmp=caps.Delete(sp,caps.Length());
                        tmp2=tmp2.Delete(1,sp+3);
                        caps=tmp + ' ' + tmp2;
                     }
                     //알수 없는 태그처리...
                     tmp=caps;
                     sp=tmp.Pos("<");
                     sp2=tmp.Pos(">");
                     if (sp>0 || sp2>0 ){
                        tmp2=caps;
                        tmp=caps.Delete(sp,caps.Length());
                        tmp2=tmp2.Delete(1,sp2);
                        caps=tmp + tmp2;
                     }

                  }

                           Capx[k]=Capx[k]+caps;
                }

        }//for
        cap_max = k;
   }
   s->Free();
  for ( int i=0;i<cap_max; i++)
  {
    Memo1->Lines->Add(IntToStr(syc[i]) + " " + Capx[i]);
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Memo1->Clear();
}
//---------------------------------------------------------------------------