C++ Builder XE 读取文件夹里所有文本文件

AnsiString Dir="";

    //++++++++++++++++++++++++++++++++++++++++++++
     //计算时间
     clock_t start,end,dtStart;
     start=clock();
     //
     RzProgressBar1->Percent=0;
     //++++++++++++++++++++++++++++++++++++++++++++
          //Dir里保存着所选的文件夹绝对路径
    //为空退出
    //Dir= RzSelectFolderDialog1->SelectedPathName;
  //判定是否批量处理
 if(!PL)
 {
    if(RzSelectFolderDialog1->Execute())
    {
     Dir =RzSelectFolderDialog1->Directory;
     //Form5->RzMaskEdit1->EditText=RightStr(Dir,3);
     //RzMaskEdit1->EditText= RightStr(Dir,3);
    }
 }
    else
    {
     Dir=plDir;
    }
  //-----------------------
   if (Dir.Length()==0)
      return;
    int i,num,Lnum;
    Lnum=ListView1->Items->Count;

    TListItem *pItem=0;
   TSearchRec   sr;
   //int iAttributes=0x0000003F;
    //识别是否彩果
    if(isNum(System::Strutils::RightStr(Dir,3)))
    {
        //Edit3->Text=System::Strutils::RightStr(Dir,3);
    }
   if   (FindFirst(Dir+"\\*.txt",faAnyFile,sr)   ==   0)
      {   ListView1->Items->BeginUpdate();
          TStringList *Flist =new TStringList;
          Flist->Clear();
          do
          {
               Flist->Append(Dir+"\\"+sr.Name);
                  //++++++++++++++++++++++++++++++++++++++++++++
                   //if(Lnum<100)
                   //RzProgressBar1->Percent=Lnum;
                   //Application->ProcessMessages();
                  //++++++++++++++++++++++++++++++++++++++++++++
          } while(FindNext(sr) == 0);
          FindClose(sr);
          //
          //Flist->Sorted=true;
          Flist->CustomSort(CrnSortList); // 进行排序

          for(int i=0;i<Flist->Count;i++)
          {
                 pItem=ListView1->Items->Add();
                 pItem->Caption=Lnum+1;
                 pItem->SubItems->Add(ExtractFileName(Flist->Strings[i]));
                 pItem->SubItems->Add("***"); //注数
                 pItem->SubItems->Add(Flist->Strings[i]); //注数
                // pItem->SubItems->Add("*");
                Lnum++;
          }
          ListView1->Items->EndUpdate();
      }
   Lnum=ListView1->Items->Count;
   //PageControl1->ActivePageIndex=0;
     // +++++++++++++++++++++++++++++++++++++++++++++++
     //操作完成计时
     end=clock();
     dtStart=end-start;
     float dSec=float(dtStart)/1000;
     RzStatusPane1->Caption="预导入大底:"+String(Lnum)+" 个";
          ListView1->Columns->Items[0]->Caption="id ["+AnsiString(Lnum)+"]";
     RzStatusPane2->Caption =
        "耗时:"+FloatToStrF(dSec,ffFixed,4,3)+" 秒 ";
     RzProgressBar1->Percent=100;

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

lzksword

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值