文本文件批量转换EXCEL表格文件格式的算法.pdf

《文本文件批量转换EXCEL表格文件格式的算法.pdf》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、万方数据2008年10月电脑学习第5期文本文件批量转换EXCEL表格文件格式的算法王炜’胡望水摘要：介绍了一种由文本文件到Excel表格文件的大批量自动转换算法。关键词：Foxpr09．0Excel文件格式转换中图分类号：-IP311．1文献标识码：B文章编号：100弛422(2008)05枷-02TheAIgorithmofConversingTextFnetoExcelFileWangWeiHuWangshuiAbstract：ThepaperintroducesanalgorithmwhichCallconversetextfdetoExcelfde．Keyword：F

2、oxpr09．0ExcelDataFileFormatConvemion‘1编程任务简述现有一批文本格式的测井数据，需要批量转换为电子表格格式，形式如下：depthpermporvclSW80⋯1890。0000136．58025．29954．78849．33750．663⋯1890．1250341．02227．37956．49046．75853．242⋯数据的特点是：横向多列，纵向多达数万行，且列之间的间距不固定。文件总数数百。2算法流程创建一个临时数据表。打开目标文本文件，从头至尾读取，边读边截串添加到临时数据表中去．用COPYTO命令将临时数据表中的内容转换到一个电子表

3、格文件中去。算法流程如图l所示。3关键代码及说明3．1变量定义LOCALposNumDIMENSIONpos(800)DIMENSIONtemp(1000)3．2初始环境设置CLoSEDATABASESSETDEFAULTTO("D：＼DRGroup、)donp＼klogI”)3．3读取源文件名到数组中gnDbenumber=ADIR(gaDatabase．’．’7)3．4创建～个数据表图1算法流程图tern=”FORi=I’ID40tern=tern+'en’+^U朋IM(刚PR(i))4-’C(15)．7endftean=tern4-'en7+AIJ朋IM(鲫t(41))

4、4-’C(15)7CreateTABLEd：＼test．dM(&tent)3．5遍历目录数组FORnCount=1TOgnObcnumber&＆Loopfornumberofdat{lb醐thidorm．Listl．Addltem(gaD硼aba鸵(nCount，收稿日期：2008--03—17·王炜湖北长江大学建设学院讲师(荆州434023)．·60·1))thisfonn．Textl．Vahe=gaDatabase(nCount．1)windir，D：、jDBGroupbdongp'd091V+萨一DatabaBe(nCount．1)Fp=Fopen(windir)＆＆以

5、只读(默认方式0可以不用)打开文件ifFp<0waltwind’打不开您指定的文件’retuendi3．6逐行读文件datNum=ldowhile!Feof(Fp·)posNum=1temp=Fgets(Fp．1000)＆＆从打开的文件中读取一行temp=CHRTBAN(1etup，”■。。)temp=TRIM(temp)lenth=LEN(temp)if(1en出>10)fori=ltolenth—l&＆求取每列的起始位置tmpl=SUBS'IR(temp．i，1)tmp2=SUBSTR(temp。i+l，1)IFtmplwm．”。Andtrap2<>’’poe(posNu

6、m)=ip06Num=posNum+1endiENDFORDIMENSIONdat(50000．posNum—1)tempi=SUBSTR(temp，l，poe(1))dat(datNum，1)=tempilki=2toposNum-2templ=suiⅪtr(temp，pos(i—1)，poB(i)一pos(i—1))dat(datNum,i)=tempiendftempl=SUBSTR(temp，pos(poeNum—1)，lenth—poe(posNum—1)+1)万方数据2008年10曩电脑学习第5期VBA在报表制作中的应用实例王广‘谭三清“陈宇航”’摘要：使用Mic

7、rosoftAccess及VBA程序实现批量输出交叉报表的方法。关键词：VBA交叉表AccessE】【cel中图分类号：TP391．13文献标识码：B文章编号：1002—2422(2008)05--0061--02OnelnstanceofApplyingVBAtoMakeReportFormsWangGuangTanSanqingChenYuhangAbstract：ThepaperexplainsageneralmethodofusingMicrosoftAccessandVBAprogramtoo