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

文本数据导入数据库的方法 有一段人事档案资料 archive.txt, 内容如下： 小许男 21 工程师 小吴女 23 助理工程师 小蔡男 22 助理工程师 小牟女 22 工程师 要将它转入数据库 archive.dbf 中,archive.dbf 结构如下： 姓名,性别,年龄,职称 怎么办呢？现在通过使用 delphi 编程,很好地解决了这个难题。Delphi 提供了许多功能 强大,丰富的字符处理函数和过程,常用的有： (1)function Length(S：String)：Integer//返回串的长度 (2)function Copy(S：String;Index,Count：Integer) ：String//给出一个字符串中串的拷贝 (3)function Pos(Substr：String;S：String);Integer ／／查找子串在字符串中的位置 (4)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:=1 to Num do begin TempStr:=Copy(aString,i,1); ／／取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