利用VBA从TXT评鲦易纪文档中提取数据,并输入txt中。如下为例:从TEXT档案中提取alarm的资料。资料如图,数据之间以点逗隔开
工具/原料
EXCELVBA
方法/步骤
1、打开EXCELVBE编辑器(Alt+F11),并添加模块。
2、在新建的模块中添加代码:Subread_TXT()DimmyDataFile钽吟篑瑜AsStringDimmyNewFILEAs惺绅寨瞀StringDimArr,BrrAsVariantDimmyLineAsStringmyDataFile="C:\Users\Administrator\Desktop\百度经验\DATA.txt"myNewFILE="C:\Users\Administrator\Desktop\百度经验\NEWFILE.txt"OpenmyDataFileForInputAs#1'将读取的DATA数据最为输入性的顺序文件1OpenmyNewFILEForOutputAs#2'将写入的TXt作为顺序文件2DoWhileNotEOF(1)'读取行是否为最后LineInput#1,myLine'将所读取的行资料赋值给myLineArr=Split(myLine,",")'将string分裂成数组IfArr(1)="alarm"Then'查找是否是需要的值Print#2,myLine'在2号文件中写入EndIfmyLine=""LoopClose#1'关闭Close#2EndSub
3、执行代码,即可获取所需要的资料。