在我们日常工作中,常会碰到这样一个难题:一大堆收集好的纯文本格式,比较规整的资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢? 例如,有一段人事档案资料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);//计算分割符在子串中的位置 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; for i:=1 to StrLen do if Copy(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.分别加入以下程序: Const Space= '' ProcedureTForml.FormCreate(Sender:Tobject); begin RichRditl.Lines.LoadFromFile('Archive.txt'); end; ProcedureTForml.Button1Click(Sender:Tobject); var i,j:Integer; MyLine:String; begin with Tablel do begin Open; for i:=0 to RichEditl.Lines.Count-1 do begin MyLine:=RegulateStr(Richeditl.Lines[i],Space); for j:=1 to Num do begin Append; fileds[j-1].aString:=GetSubSrt(MyLine,Space)); post; end; end; end; end;
Var FList: TStringList; tmpStr: String; Begin FList:= TStringList.Create; FList.LoadFromFile(TextFileName); for i:=0 to flist.count-1 do begin table1.fieldbyname('field1').asstring:=copy(flist[i],1,4)具体位置自己判断 end;
小许男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);//计算分割符在子串中的位置
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;
for i:=1 to StrLen do
if Copy(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.分别加入以下程序:
Const Space= ''
ProcedureTForml.FormCreate(Sender:Tobject);
begin
RichRditl.Lines.LoadFromFile('Archive.txt');
end; ProcedureTForml.Button1Click(Sender:Tobject);
var
i,j:Integer;
MyLine:String;
begin
with Tablel do
begin
Open;
for i:=0 to RichEditl.Lines.Count-1 do
begin
MyLine:=RegulateStr(Richeditl.Lines[i],Space);
for j:=1 to Num do
begin
Append;
fileds[j-1].aString:=GetSubSrt(MyLine,Space));
post;
end;
end;
end;
end;
FList: TStringList;
tmpStr: String;
Begin
FList:= TStringList.Create;
FList.LoadFromFile(TextFileName);
for i:=0 to flist.count-1 do
begin
table1.fieldbyname('field1').asstring:=copy(flist[i],1,4)具体位置自己判断
end;