有一段人事档案资料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);／／计算分割符在子串中的位置