知识大全文本数据导入数据库的方法

Posted 2022-07-21 知

篇首语：业无高卑志当坚，男儿有求安得闲？本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全文本数据导入数据库的方法相关的知识，希望对你有一定的参考价值。

　　有一段人事档案资料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;

cha138/Article/program/Delphi/201311/25055

知识大全 文本数据导入数据库的方法

知识大全文本数据导入数据库的方法