文本数据导入数据库的方法
有一段人事档案资料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;
lishixinzhi/Article/program/Delphi/201311/25055
