文本数据导入数据库的方法

有一段人事档案资料archive txt 内容如下 小许　男　 　工程师 小吴　女　 　助理工程师 小蔡　男　 　助理工程师 小牟　女　 　工程师

要将它转入数据库archive dbf中 archive dbf结构如下 姓名 性别 年龄 职称

怎么办呢？现在通过使用delphi编程 很好地解决了这个难题 Delphi提供了许多功能强大 丰富的字符处理函数和过程 常用的有 ( )function Length(S String) Integer//返回串的长度 ( )function Copy(S StringIndex Count Integer) String//给出一个字符串中串的拷贝 ( )function Pos(Substr StringS String)Integer／／查找子串在字符串中的位置 ( )Procedure Delete(VarS StringIndex Count Integer)　／／从一个字符串中去除子串

利用Delphi提供的已有函数和过程基础上编制自己的三个函数 实现了纯文本格式资料转入数据库功能 只要Delphi支持的数据库都可以支持

archive txt中每行数据为一个字符串 字符串中每个被分割的数据为一个字段 分割每个字段的字符为分割符 这里是空格 也可以是 ＃等符号 具体思想是 先将字符串进行调整 然后把串中每个字符同分割符比较 将不是分割符的字符追加到MyStr串中 最后得到一个字段的内容 通过一个循环 就可以将一个字符串分成几个字段

Function Regulate(aString Sepchar string) string ／／去掉多余的分割符 规范字符串 Function GetSubStr(varsString stringSepChar String) String　//得到字符串中一个子串 因要改变参数aString的值 所以将它用var定义 FunctionGetSubStrNum(aString SepChar String) Integer／／计算一个字符串要被分割成几个字段 参数 aString是所需分割的一个字符串 SepChar是分割符

Function RegulateStr(aString StringSepchar String) String  var   i Num Integer  Flag Boolean  MyStr TempStr Stringbegin   Flag:=False／／进行标志 去除多余的分割符   Num:=Length(aString)／／计算aString串的长度   for i:= to Num do   begin     TempStr:=Copy(aString i )／／取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:=MyStrend

Function GetSubStr(var aString String SepChar Strign) Stringvar   Mysrt String  StrLen Integer  SepCharPso Integerbegin   StrLen:=Length(aString)  SepCharPos:=Pos(SepChar aString)／／计算分割符在子串中的位置   MyStr:=Copy(aString SepCharPos－ )／／将分割符前所有字符放到mystr串中   Delete(aString SepCharPos)／／除去分割符和分割符前的子串   GetSubStr:=MyStr／／返回一个字段 end

FunctionTforml GetSubStrNum(aString StringSepChar String) Integervar   i Integer  StrLen Integer    　Num Integerbegin   StrLen:=Length(aString)  Num:=   for i:= to StrLen do     if Copy(aString i ) = SepCharthen       Num:=Num+   GetSubSrtNum:=Numend

有了上面三个函数 现在介绍一下具体的应用 首先建立一个窗体Forml 加入一个RichEditl(或Menol) 一个按钮Buttonl和一个Tablel 设置Tablel的属性 Tablell DataBase = c:\Archivs Tablell TableName = Archive dbf

分别加入以下程序 Const Space= ProcedureTForml FormCreate(Sender Tobject)begin   RichRditl Lines LoadFromFile( Archive txt )end

lishixinzhi/Article/program/Delphi/201311/25055

传奇单机把文本导入数据库的方法是：

库下数据导入的最重要的方法之一，该工具由Oracle客户端提供，其基本工作原理是：首先要针对数据源文件制作一个控制文件，控制文件是用来解释如何对源文件进行解析，其中需要包含源文件的数据格式。

目标数据库的字段等信息，目前在数据仓库领域中，数据抽取与装载（ETL）是一重要的技术，这一技术对于一些大的数据文件或者文件数量较多尤其适合。这里简单介绍目前一款主流的数据抽取工具——Informatica。该工具主要采用图形界面进行编程，其主要工作流程是：首先将源数据文件的结构（格式）导入为Informatica里，然后根据业务规则对该结构进行一定的转换(transformation)，最终导入到目标表中。

有三个方法:\x0d\x0a1.在上传袄数据库是时候,写一段格式代码\x0d\x0a% \x0d\x0aFunction Deal(exp1) \x0d\x0adim exp2 \x0d\x0aexp2=Replace(exp2,Chr(13),"br

---