unit1.pas

可以从一个文本文件中的每一行内容

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ComCtrls;

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function SplitString(const Source,ch:string):TStringList;

var
  Form1: TForm1;
  len:integer;
  dest,source:TStrings;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
//var
//i:Integer;
begin
Self.RichEdit1.Lines.LoadFromFile('d:\convert\mailing.txt');
//len:=Length(Self.RichEdit1.Text);
//dest.Add(Self.TntRichEdit1.Text);
//source.Add(Self.RichEdit1.Text);
//for i:=0 to len-1 do
//    Utf8ToUnicode(@dest[i],Self.TntRichEdit1.Text,len);
//memo1.Lines.LoadFromFile('d:\convert\mailing.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
j:integer;
s:string;
temp:TStringList;
begin

self.ADOQuery1.First;
j:=0;
for i:=0 to ADOQuery1.recordcount do
begin
if j<=6238-1 then
begin
s:=self.RichEdit1.Lines[j];
//s:=memo1.Lines[j];
temp:=SplitString(s,'|');
//showmessage(temp[0]);
//showmessage(temp[1]);
//showmessage(temp[2]);
self.ADOQuery1.Edit;
self.ADOQuery1.FieldByName('Ayat_Sura_Num').AsString:=temp[0];
self.ADOQuery1.FieldByName('Ayat_Num').AsString:=temp[1];
self.ADOQuery1.FieldByName('Ayat_Ayat').AsString:=temp[2];
j:=j+1;
end;
ADOQuery1.Next;
end;
self.ADOQuery1.Edit;
self.ADOQuery1.Post;
showmessage('success');
end;

function SplitString(const Source,ch:string):TStringList;
var
  temp:String;
  i:Integer;
begin
  Result:=TStringList.Create;
  //如果是空自符串则返回空列表
  if Source=''
  then exit;
  temp:=Source;
  i:=pos(ch,Source);
  while i<>0 do
  begin
     Result.add(copy(temp,0,i-1));
     Delete(temp,1,i);
     i:=pos(ch,temp);
  end;
  Result.add(temp);
end;

{Function Convert(Temp:WideString):TStrings;
var
str:Tstrings;
i:integer;
s:string;
begin
str.Add(Temp);
for i:=0 to length(Temp)-1 do
    if (str[i]='&') and (str[i+1]='#') then
        begin
          s:=str[i+2]+str[i+3]+str[i+4]+str[i+5];
          result:=result.Append(chr(s));
//          i:=i+5;
        end
    else
        result:=result+chr(s);
end;  }

end.