用Delphi实现将纯文本资料转入数据库_Delphi

  • 内容
  • 评论
  • 相关

   在我们日常工作中,常会碰到这样一个难题:一大堆收集好的纯文本格式,比较规整的资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢?例如,有一段人事档案资料document.txt,内容如下:  
  张强,25,助理工程师,  
  王宏,30,工程师,  
  李远,45,高级工程师,  
  要将它转入数据库中,document.db结构如下:  
  姓名,年龄,职称  
  怎么办呢?现在通过使用Delphi编程,很好地解决了这个难题。Delphi提供了许多功能强大,丰富的字符处理函数和过程,常用的有:  
  ① function Length(S:String):Integer  //返回串的长度  
  ② function Copy(S:String; Index,Count: Integer):String  
  //给出一个字符串中串的拷贝  

http://www.gaodaima.com/?p=65745用Delphi实现将纯文本资料转入数据库_Delphi

  ③ function Pos(Substr:String; S:String); Integer    
  //查找子串在字符串中的位置  
  ④ Procedure Delete(Var S:String; Index,Count: Integer);  
  //从一个字符串中去除子串  
  利用Delphi提供的已有函数和过程基础上编制自己的三个函数,实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。  
  Document.txt中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割每个字段的字符为分割符,这里是逗号,也可以是、;#等符号。具体思想是:先将字符串进行调整,然后把串中每个字符同分割符比较,将不是分割符的字符追加到MyStr串中,最后得到一个字段的内容。通过一个循环,就可以将一个字符串分成几个字段。  
  Function GetSubStr(var aString:string; SepChar:String): String;  
  //得到字符串中一个子串  
  因要改变参数aString的值,所以将它用var定义。  
  Function GetSubStrNum(aString, SepChar: String): Integer;  
  //计算一个字符串要被分割成几个字段。  
  参数:aString是所需分割的一个字符串,  
  SepChar是分割符。
  Function GetSubStrNum(aString:String;SepChar:String):integer;
  var
  i:Integer;
  StrLen:Integer;
  Num:Integer;
  begin
  StrLen:=Length(aString);
  Num:=0;
  For i:=1 to StrLen do
  If Copy(aString,i,1) = SepChar then
  Num:=Num+1;
  result:=Num;
  end;
  Function GetSubStr(var aString:String;SepChar:String):String;
  var
  Mystr:String;
  StrLen:Integer;
  SepCharPos:Integer;
  begin
  StrLen:=Length(aString);
  SepCharPos:=Pos(SepChar,aString); //计算分割符在子串中的位置
  MyStr:=Copy(aString,1,SepCharPos-1); //将分割符前所有字符放到mystr串中
  Delete(aString,1,SepCharPos); //除去分割符和分割符前的子串
  GetSubStr:=MyStr; //返回一个字段
  end;  
  有了上面三个函数,现在介绍一下具体的应用:  
  ① 首先建立一个窗体Forml,加入一个RichEditl(或Menol),一个按钮Buttonl和一个Tablel,设置Tablel的属性:  
  Tablell.DataBaseName:= 'c:/test';  
  Tablell.TableName:= 'document.db';  
  ② 分别加入以下程序:  
  const
  SepChar=',' ;
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  RichEdit1.Lines.LoadFromFile('c:/test/test.txt');
  end;
  procedure TForm1.Button1Click(Sender: TObject);
  var
  i,j,num:Integer;
  MyLine:String;
  item:array[1..3] of string;
  begin
  For i:=0 to RichEdit1.Lines.Count-1 do
  begin
  MyLine:=Richedit1.Lines[i];
  num:=GetSubStrNum(myline,SepChar);
  for j:=1 to num do
  item[j]:=GetSubStr(myline,SepChar);
  table1.open;
  with table1 do
  begin
  table1.insert;
  table1name.Asstring:=item[1];
  table1age.Asinteger:=strtoint(item[2]);
  table1title.Asstring:=item[3];
  table1.post;
  end;
  table1.close;
  end;
  end;  
  然后就可以进行编译、运行了。

欢迎大家阅读《用Delphi实现将纯文本资料转入数据库_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 用Delphi实现将纯文本资料转入数据库_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注