文章存数据库还是存文件 文本数据导入数据库的方法

文本数据导入数据库的方法  

　　有一段人事档案资料archive txt 内容如下 　　小许　男　 　工程师 　　小吴　女　 　助理工程师 　　小蔡　男　 　助理工程师 　　小牟　女　 　工程师

　　要将它转入数据库archive dbf中 archive dbf结构如下 　　姓名 性别 年龄 职称

　　怎么办呢？现在通过使用delphi编程 很好地解决了这个难题 Delphi提供了许多功能强大 丰富的字符处理函数和过程 常用的有 　　( )function Length(S String) Integer//返回串的长度 　　( )function Copy(S String;Index Count Integer) String//给出一个字符串中串的拷贝 　　( )function Pos(Substr String;S String);Integer／／查找子串在字符串中的位置 　　( )Procedure Delete(VarS String;Index Count Integer); 　／／从一个字符串中去除子串

　　利用Delphi提供的已有函数和过程基础上编制自己的三个函数 实现了纯文本格式资料转入数据库功能 只要Delphi支持的数据库都可以支持

　　archive txt中每行数据为一个字符串 字符串中每个被分割的数据为一个字段 分割每个字段的字符为分割符 这里是空格 也可以是 ; ＃等符号 具体思想是 先将字符串进行调整 然后把串中每个字符同分割符比较 将不是分割符的字符追加到MyStr串中 最后得到一个字段的内容 通过一个循环 就可以将一个字符串分成几个字段

　　Function Regulate(aString Sepchar string) string 　　／／去掉多余的分割符 规范字符串 　　Function GetSubStr(varsString string;SepChar String) String; 　//得到字符串中一个子串 因要改变参数aString的值 所以将它用var定义 　　FunctionGetSubStrNum(aString SepChar String) Integer;　　／／计算一个字符串要被分割成几个字段 　　参数 aString是所需分割的一个字符串 SepChar是分割符

　　Function RegulateStr(aString String;Sepchar String) String;  　　var   　　i Num Integer;   　　Flag Boolean;   　　MyStr TempStr String; 　　begin   　　Flag:=False;／／进行标志 去除多余的分割符   　　Num:=Length(aString);／／计算aString串的长度   　　for i:= to Num do   　　begin     　　TempStr:=Copy(aString i );／／取aString串中的一字符     　　if TempStr <> SepChar then     　　begin       　　MyStr:=MyStr+TempStr;       　　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;

　　Function GetSubStr(var aString String SepChar Strign) String; 　　var   　　Mysrt String;   　　StrLen Integer;   　　SepCharPso Integer; 　　begin   　　StrLen:=Length(aString);   　　SepCharPos:=Pos(SepChar aString);／／计算分割符在子串中的位置   　　MyStr:=Copy(aString SepCharPos－ ); ／／将分割符前所有字符放到mystr串中   　　Delete(aString SepCharPos);／／除去分割符和分割符前的子串   　　GetSubStr:=MyStr;／／返回一个字段 　　end;

　　FunctionTforml GetSubStrNum(aString String;SepChar String) Integer; 　　var   　　i Integer;   　　StrLen Integer;     　Num Integer; 　　begin   　　StrLen:=Length(aString);   　　Num:= ;   　　for i:= to StrLen do     　　if Copy(aString i ) = SepCharthen       　　Num:=Num+ ;   　　GetSubSrtNum:=Num; 　　end;

　　有了上面三个函数 现在介绍一下具体的应用 　　 首先建立一个窗体Forml 加入一个RichEditl(或Menol) 一个按钮Buttonl和一个Tablel 设置Tablel的属性 　　Tablell DataBase = c:Archivs 　　Tablell TableName = Archive dbf

　　 分别加入以下程序 　　Const Space= 　　ProcedureTForml FormCreate(Sender Tobject); 　　begin   　　RichRditl Lines LoadFromFile( Archive txt ); 　　end;