如何通過bde 或ado 對txt 數據文件進行讀寫(有經驗人請回答)(200分)

C

choipan

Unregistered / Unconfirmed
GUEST, unregistred user!
因為txt文件中的數據需要進行數據庫的操作..所以才必須以此方式連接..請不要再
叫我以普通的方式來進行調用...
由於在文件中有客戶資料, 并且同一客戶出現的次數不定.若多過一次時.
必須把該筆資料的所有欄位都填上資料,意思即是不可以有空欄位, 而欄位間的
分隔符為 "," , 例子如下:
a001,50,david,....
a002,80,mary,....
a003,70,jack,...
,60,jack,...
像第四筆資料由於和第三筆資料是同一個客戶的,所以把它所欠的欄位值自動加上
變成:
a001,50,david,....
a002,80,mary,....
a003,70,jack,...
a003,60,jack,...
請問要如何實現??
謝謝了!


 
ado有一个txt文件驱动,把一个文本文件作数据库,不过我试过,文本文件的一行作为一个字段
使用不方便。建议你用下面的方法,将文本数据导入一个access数据库中再进行操作。
例子如下——————————————————————————————————————————————:
在我们日常工作中,常会碰到这样一个难题:一大堆收集好的纯文本格式,比较规整的资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢?
  例如,有一段人事档案资料archive.txt,内容如下:
  小许男21工程师
  小吴女23助理工程师
  小蔡男22助理工程师
  小牟女22工程师
  要将它转入数据库archive.dbf中,archive.dbf结构如下:
  姓名,性别,年龄,职称
  怎么办呢?现在通过使用delphi编程,很好地解决了这个难题。Delphi提供了许多功能强大,丰富的字符处理函数和过程,常用的有:
  (1)functionLength(S:String):Integer
  //返回串的长度
  (2)functionCopy(S:String;Index,Count:Integer):String
  //给出一个字符串中串的拷贝
  (3)functionPos(Substr:String;S:String);Integer
  //查找子串在字符串中的位置
  (4)ProcedureDelete(VarS:String;Index,Count:Inte?ger);
  //从一个字符串中去除子串
  利用Delphi提供的已有函数和过程基础上编制自己的三个函数,实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。
  archive.txt中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割每个字段的字符为分割符,这里是空格,也可以是,、;、#等符号。具体思想
是:先将字符串进行调整,然后把串中每个字符同分割符比较,将不是分割符的字符追加到MyStr串中,最后得到一个字段的内容。通过一个循环,就可以将一个字符串分
成几个字段。
  FunctionRegulate(aString,Sepchar:string):string
  //去掉多余的分割符,规范字符串
  FunctionGetSubStr(varsString:string;SepChar:String):String;
  //得到字符串中一个子串
  //因要改变参数aString的值,所以将它用var定义。
  FunctionGetSubStrNum(aString,SepChar:String):Integer;
  //计算一个字符串要被分割成几个字段。
  参数:aString是所需分割的一个字符串,SepChar是分割符。
  FunctionRegulateStr(aString:String;Sepchar:String):String;
  var
  i,Num:Integer;
  Flag:Boolean;
  MyStr,TempStr:String;
  begin
  Flag:=False;//进行标志,去除多余的分割符
  Num:=Length(aString);//计算aString串的长度
  fori:=1toNumdo
  begin
  TempStr:=Copy(aString,i,1);//取aString串中的一字符
  if TempSt>=SepChar then
  begin
  MyStr:=MyStr+TempDtr;
  Flag:=True;
  end
  else
  if(Flag=True)then
  begin
  Mystr:=Mystr+TempSrt;
  Flag:=False;
  end;
  end;
  if MyStr[Length(MyStr)]>=SepChar then
  MyStr:=MyStr+SepChar;
  RegulateSrt:=MyStr;
  end;
  FunctionGetSubStr(varaString:String,SepChar:Strign):String;
  var
  Mysrt:String;
  StrLen:Integer;
  SepCharPso:Integer;
  begin
  StrLen:=Length(aString);
  SepCharPos:=Pos(SepChar,aString);//计算分割符在子串中的位置
  MyStr:=Copy(aString,1,SepCharPos-1);//将分割符前所有字符放到mystr串中
  Delete(aString,1,SepCharPos);//除去分割符和分割符前的子串
  GetSubStr:=MyStr;//返回一个字段
  end;
  FunctionTforml.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;
  GetSubSrtNum:=Num;
  end:
  有了上面三个函数,现在介绍一下具体的应用:
  1.首先建立一个窗体Forml,加入一个RichEditl(或Menol),一个按钮Buttonl和一个Tablel,设置Tablel的属性:
  Tablell.DataBase=′c:Archivs′
  Tablell.TableName=′Archive.dbf′
  2.分别加入以下程序:
  ConstSpace:=′′
  ProcedureTForml.FormCreate(Sender:Tobject);
  begin
  RichRditl.Lines.LoadFromFile(′Archive.txt′);
  end;
  ProcedureTForml.Button1Click(Sender:T object);
  var
  i,j:Integer;
  MyLine:String;
  begin
  with Tablel do
  begin
  Open;
  for i:=0 to RichEditl.Lines.Count-1 do
  begin
  MyLine:=RegulateStr(Richeditl.Lines[i],Space);
  for j:=1 to Num To ken(MyLIne,Space) do
  begin
  Append;
  fileds[j-1].aString:=GetSubSrt(MyLine,Space));
  post;
  end;
  end;
  end;
  end;

 
顶部