如果用access实现,建议你到vba版或者access版提问,如果用delphi,你可以用几个函数来实现,copy,pos,delete等来截字符串

解决方案 »

  1.   

    思路就是1楼所提的,把文本读到内存中,一行一行的处理,先pos再copy,.....找齐所有的信息后,再插入数据表中,再处理下一行。
      

  2.   

    先用"|"分隔开,在用在":" TStringList,就是分隔分隔,全部独立出来再插。 
      

  3.   

    读取文本文件然后 处理 读取的内容把内容复制给字段 执行sql语句
      

  4.   

    从样例中可以看到是使用符号“|”分隔每一个数据项的,直接截取就好了,然后生成SQL语句,或者APPEND到ACCESS中var
      sText, sValue: string;
    begin
      sText := #79681 | 姓名:gg | 性别:男 | 所在地:新疆-乌鲁木齐 | 工作经验(年):7.0 登记日期:2012-04-19 17:56:52.491专业:安装工程,煤矿工程,电力工程,土建工程,水利工程 证书名称: | 证书编号: | ;
      sValue := Copy(sText, 1, Pos('|', sText) - 1);//#76981
      Delete(sText, 1, Pos('|', sText) + 1);
      
      sValue := Copy(sText, 1, Pos('|', sText) - 1);//姓名:gg 
      sValue := Copy(sValue, Pos(':', sValue) + 1, Length(sValue));//gg
      Delete(sText, 1, Pos('|', sText) + 1);
      .......
    end;或者var
      sText, sTmp, sValue: string;
    begin
      sText := #79681 | 姓名:gg | 性别:男 | 所在地:新疆-乌鲁木齐 | 工作经验(年):7.0 登记日期:2012-04-19 17:56:52.491专业:安装工程,煤矿工程,电力工程,土建工程,水利工程 证书名称: | 证书编号: | ;
      ComboBox1.Items.Text := StringReplace(sText, '|', #13, [rfReplaceAll]);
      //上面语句将字符串按“|”截取到CommboBox1.Items中,通过索引即可顺序访问
      sTmp := ComboBox1.Items[0];//#76981
      sTmp := ComboBox1.Items[1];//姓名:gg
      sValue := Copy(sTmp, Pos(':', sTmp) + 1, Length(sTmp));//gg
      
      sTmp := ComboBox1.Items[2];//性别:男
      sValue := Copy(sTmp, Pos(':', sTmp) + 1, Length(sTmp));//男
      .............
    end;
      

  5.   

    TStringList可以滿足你要求!
    用它可以以"|"爲分隔符識別。