用Delphi实现将纯文本资料转入数据库
p> 在我们日常工作中,常会碰到这样一个难题:一大堆收集好的纯文本格式,比较规整的资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢?
例如,有一段人事档案资料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中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割每个字段的字符为分割符,这里是空格,也
p> 在我们日常工作中,常会碰到这样一个难题:一大堆收集好的纯文本格式,比较规整的资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢?
例如,有一段人事档案资料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中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割每个字段的字符为分割符,这里是空格,也