Database 版 (精华区)
作 家: baby (心月--八月戒网了) on board 'database'
题 目: 用Delphi实现将纯文本资料转入数据库
来 源: 哈尔滨紫丁香站
日 期: Thu Jul 31 16:05:38 1997
出 处: bbs@bbs.orange.sjtu.edu.cn
发信人: alen.bbs@bbs.swjtu.edu.cn (小虎子), 信区: database
标 题: 用Delphi实现将纯文本资料转入数据库
发信站: 锦城驿站 (Thu Jul 31 04:13:21 1997)
转信站: sjtubbs!sjtunews!swjtunews!swjtubbs
Origin: xnjd21.swjtu.edu.cn
用Delphi实现将纯文本资料转入数据库
蔡旭
在我们日常工作中，常会碰到这样一个难题：一大堆
收集好的纯文本格式，比较规整的资料怎样才能将它们分
离，转到自己已经建好的数据库中进行管理呢？
例如，有一段人事档案资料archive．txt，内容如下
：
小许男21工程师
小吴女23助理工程师
小蔡男22助理工程师
小牟女22工程师
要将它转入数据库archive．dbf中，archive．dbf结
构如下：
姓名，性别，年龄，职称
怎么办呢？现在通过使用delphi编程，很好地解决了
这个难题。Delphi提供了许多功能强大，丰富的字符处理
函数和过程，常用的有：
（1）functionLength（S：String）：Integer
／／返回串的长度
（2）functionCopy（S：String；Index，Count：In
teger）：String
／／给出一个字符串中串的拷贝
（3）functionPos（Substr：String；S：String）
；Integer
／／查找子串在字符串中的位置
（4）ProcedureDelete（VarS：String；Index，Cou
nt：Integer）；
／／从一个字符串中去除子串
利用Delphi提供的已有函数和过程基础上编制自己的
三个函数，实现了纯文本格式资料转入数据库功能。只要
Delphi支持的数据库都可以支持。
archive．txt中每行数据为一个字符串，字符串中每
个被分割的数据为一个字段，分割每个字段的字符为分割
符，这里是空格，也可以是，、；、＃等符号。具体思想
是：先将字符串进行调整，然后把串中每个字符同分割符
比较，将不是分割符的字符追加到MyStr串中，最后得到
一个字段的内容。通过一个循环，就可以将一个字符串分
成几个字段。
FunctionRegulate（aString，Sepchar：string）：
string
／／去掉多余的分割符，规范字符串
FunctionGetSubStr（varsString：string；SepChar
：String）：String；
／／得到字符串中一个子串
／／因要改变参数aString的值，所以将它用var定义
。
FunctionGetSubStrNum（aString，SepChar：String
）：Integer；
／／计算一个字符串要被分割成几个字段。
参数：aString是所需分割的一个字符串，
SepChar是分割符。
FunctionRegulateStr（aString：String；Sepchar
：String）：String；
var
i，Num：Integer；
Flag：Boolean；
MyStr，TempStr：String；
begin
Flag：ΚFalse；／／进行标志，去除多余的分割符
Num：ΚLength（aString）；／／计算aString串的
长度
fori：Κ1toNumdo
begin
TempStr：ΚCopy（aString，i，1）；／／取aStrin
g串中的一字符
ifTempStrΙΛSepCharthen
begin
MyStr：ΚMyStr＋TempDtr；
Flag：ΚTrue；
end
else
if（FlagΚTrue）then
begin
Mystr：ΚMystr＋TempSrt；
Flag：ΚFalse；
end；
end；
ifMyStr［Length（MyStr）］ΙΛSepCharthen
MyStr：ΚMyStr＋SepChar；
RegulateSrt：ΚMyStr；
end；
FunctionGetSubStr（varaString：String，SepChar
：Strign）：String；
var
Mysrt：String；
StrLen：Integer；
SepCharPso：Integer；
begin
StrLen：ΚLength（aString）；
SepCharPos：ΚPos（SepChar，aString）；／／计
算分割符在子串中的位置
MyStr：ΚCopy（aString，1，SepCharPos－1）；／
／将分割符前所有字符放到mystr串中
Delete（aString，1，SepCharPos）；／／除去分割
符和分割符前的子串
GetSubStr：ΚMyStr；／／返回一个字段
end；
FunctionTforml．GetSubStrNum（aString：String
；SepChar：String）：Integer；
var
i：Integer；
StrLen：Integer；
Num：Integer；
begin
StrLen：ΚLength（aString）；
Num：Κ0；
fori：Κ1，toStrLendo
ifCopy（aString，i，1）ΚSepCharthen
Num：ΚNum＋1；
GetSubSrtNum：ΚNum；
end：
有了上面三个函数，现在介绍一下具体的应用：
1．首先建立一个窗体Forml，加入一个RichEditl（
或Menol），一个按钮Buttonl和一个Tablel，设置Tablel
的属性：
Tablell．DataBaseΚ′c：ιArchivs′
Tablell．TableNameΚ′Archive．dbf′
2．分别加入以下程序：
ConstSpaceΚ′′
ProcedureTForml．FormCreate（Sender：Tobject）
；
begin
RichRditl．Lines．LoadFromFile（′Archive．txt
′）；
end；
ProcedureTForml．Button1Click（Sender：Tobje
ct）；
var
i，j：Integer；
MyLine：String；
begin
withTableldo
begin
Open；
fori：Κ0toRichEditl．Lines．Count－1do
begin
MyLine：ΚRegulateStr（Richeditl．Lines［i］，
Space）；
forj：Κ1toNumToken（MyLIne，Space）do
begin
Append；
fileds［j－1］．aString：ΚGetSubSrt（MyLine，
Space））；
post；
end；
end；
end；
end；
然后就可以进行编译，运行了。此程序在win95／Del
phi2．0下调试通过。
--
(o<~ ~>o) L ("< >`) N >~)/ /_
/ ) A ( \ / ) E ( \ ^^
--/ ^^------^^ \---L-----^-------------
※ 来源:．锦城驿站 bbs.swjtu.edu.cn．[FROM: 202.115.66.19]
--
※ 来源:·哈尔滨紫丁香站 bbs1.hit.edu.cn·[FROM: bbs@bbs.orange.sjtu.]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：5.600毫秒