void __fastcall TForm1::Button1Click(TObject *Sender)
{
       int i,j,Astart,Aend,Acount,Bstart,Bend,Bcount;
       bool Aflag=false,Bflag=false; // false代表第一個.true代表第二個
       AnsiString Data,Astring,Bstring;
         TStringList *slTxt=new TStringList;
         slTxt->LoadFromFile("d:\\test.txt");
         for(i=0;iLines->Count;i  )
         {
            Data= Memo1->Lines->Strings[i].SubString(0,500);
             for(j=1;j<=Data.Length();j  )
             {                    if(Data[j]==34)      //字元為"時
                {
                  if(Aflag==false)   // 第一個"時
                  {
                     Aflag=true;
                     Astart=j 1;
                  }
                  else if(Aflag==true) // 第二個"時
                  {
                     Aend=j;
                     Acount=Aend-Astart;
                     Aflag=false;
                     Astring=Data.SubString(Astart,Acount);
                     ShowMessage(Astring);
                     Astart=0;           // 歸零的動作
                     Aend=0;
                  }
                }
                else if(Data[j]==39)    //字元為'時
                {
                  if(Bflag==false)     // 第一個'時
                  {
                     Bflag=true;
                     Bstart=j 1;
                  }
                  else if(Bflag==true) // 第二個'時
                  {
                     Bend=j;
                     Bcount=Bend-Bstart;
                     Bflag=false;
                     Bstring=Data.SubString(Bstart,Bcount);
                     ShowMessage(Bstring);
                     Bstart=0;
                     Bend=0;
                     Bcount=0;
                  }
                }
             }
          }
}