unitchange.pas

一个背单词程序。是我闲着没事做的。 给大家看看

unit UnitChange;

interface

uses
  Windows,  SysUtils, Variants, Classes, Controls, Forms,
  Dialogs,StdCtrls;

type
  TFrmChange = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ListBox1: TListBox;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmChange: TFrmChange;

implementation

uses UnitMain;

{$R *.dfm}

procedure TFrmChange.Button3Click(Sender: TObject);
begin
   close;
end;

procedure TFrmChange.Button1Click(Sender: TObject);
begin
  //
  if OpenDialog1.Execute then
   edit1.Text:=OpenDialog1.FileName;
end;

procedure TFrmChange.Button2Click(Sender: TObject);
var
    cfp,cfpSave:textfile;
    tmp,tmp2,s,Savefile,words,pys,comms:string;
    i,cyb_Star,cyb_end:integer;

begin
  {  tmp:='C:\Program Files\WordRain\wrd\';
    for i:=0  to listbox1.Count-1 do
    begin
      edit1.Text:=tmp+inttoStr(i)+'.wrd';
      savefile :=tmp+listbox1.Items[i]+'.dst';
           }


    //打开读文件
    assignfile(cfp, Trim(Edit1.Text));
    reset(cfp);
    //打开保存文件
    if SaveDialog1.Execute then  Savefile:=SaveDialog1.FileName;
    assignfile(cfpSave,savefile);
    rewrite( cfpSave );
   //我也爱背单词4.21转换算法========
    while not eof(cfp) do begin
      readln(cfp,s);
      cyb_Star := pos(chr(9)+chr(47),s);   //chr(9)+chr(47)
      if cyb_Star=0 then cyb_Star := pos(chr(9)+chr(9),s);//chr(9)+chr(9)
      words:= trim(copy(s,0,cyb_Star-1)) ;
      s:=Trim( Copy( s,cyb_Star,length(S) ) );
      cyb_end := pos(chr(47)+chr(9),s);
      if cyb_end=0 then cyb_end := pos(chr(9)+chr(9),s);// chr(9)+chr(9)
      if cyb_end=0 then
      begin
            pys:='';
            comms:=trim( copy(s,0,length(S)) ) ;

            append(cfpSave);
            writeln(cfpSave,words+'['+pys+']'+comms);
      end else begin
      pys := trim(copy(s,2,cyb_end-2));
     // s:=Trim( Copy( s,cyb_end,length(s) ) );
      comms := Trim( Copy( s,cyb_end+1,length(s) ) );

      append(cfpSave);
      writeln(cfpSave,words+'['+pys+']'+comms);
      end; 
    end;
    //==========我也爱背单词4.21转换算法

    {//单词雨算法=======
    while not eof(cfp) do begin
      readln(cfp,s);
      cyb_Star := pos('[T]',s);
      cyb_end :=pos('[M]',s);
      // ShowMessage(inttostr(cyb_Star)+','+inttostr(cyb_end));
      if cyb_Star=0 then  //没有音标时
      begin
        pys:='';
        words:= trim(copy(s,4,cyb_end-4)) ;
      end else begin
         pys:= Trim( Copy( s,cyb_Star+3,cyb_end-3-cyb_Star ) );
         words:= trim(copy(s,4,cyb_Star-4)) ;
      end;
      comms:=trim( copy(s,cyb_end+3,length(S)) ) ;
      append(cfpSave);
      writeln(cfpSave,words+'['+pys+']'+comms);
    end;
     //=======单词雨算法
     }


    closefile(cfp);
    closefile(cfpsave);
  {  end;    }

    MessageBox(Handle,'转存成功完成!','提示', MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1);

end;

procedure TFrmChange.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
  FrmChange:=nil;
end;

procedure TFrmChange.FormShow(Sender: TObject);
begin
left:=frmmain.left;
  top:=FrmMain.Top+FrmMain.Height;
end;

end.