关于文本文件的导入问题 ( 积分: 100 )

while&nbsp;not&nbsp;SeekEof(TextFileVar)&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Readln(TextFileVar,temp);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//得到标记数<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;StrLen:=Length(temp);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Num:=0;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i:=1&nbsp;to&nbsp;StrLen&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Copy(temp,i,1)='|'&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Num:=Num+1;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;pos('|',temp)&gt;0&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;self.qry_yhfb.Append;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;j:=0&nbsp;to&nbsp;Num-1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;self.qry_yhfb.Fields[j].AsString:=copy(Temp,1,pos('|',temp)-1);//得到字段内容<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;temp:=copy(temp,pos('|',temp)+1,length(temp)-pos('|',temp));//去除上次降得到的内容<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;self.qry_yhfb.Post;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;closeFile(TextFileVar);<br>&nbsp;&nbsp;&nbsp;&nbsp;showmessage('成功读取银行文件!');<br>:导入文本式如<br>a|b<br>由于b后面了标示符|,导致文本文件导入不了数据库,各位大侠指点一下如何导入

Readln(TextFileVar,temp);<br>//得到标记数<br>temp&nbsp;:=&nbsp;temp&nbsp;+&nbsp;'|';<br>//补上一个

查ExtractStrings函数的帮助

我曾接触过银行数据,是用Excel发过来的非表格数据,不能和Word通用,因为每一页上都有流水号及说明,用程序识别很麻烦,而且数据中夹杂大量空格,我把数据部分帖下来(不包含流水数据),拼在一个记事本中,删掉空格,'|'用'Tab'替换,这样就可和Word通用了,而且用'Tab'做右界分隔符,也是一种标准,Excel和Word都可按表格方式处理,便于其他办公部门使用,而且Word制成表格后,最右侧也有'Tab',这样数据格式统一了,标准化数据,程序处理起来很方便,我曾用这种方式处理几十万数据.<br>因为我没看过Excel是否有内部的函数接口,所以用了一个苯方法!!