| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6890 人关注过本帖
标题:求助:VB读取大量txt数据 摘取制定字段 分类汇总写入execel
只看楼主 加入收藏
ffg654321
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-1-20
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求助:VB读取大量txt数据 摘取制定字段 分类汇总写入execel
求助:VB读取大量txt数据 摘取制定字段 分类汇总写入execel
txt 数据格式如下:
090805-10:33:35 192.168.5.1 7.1f RNC_NODE_MODEL_K_9_16_COMPLETE stopfile=/tmp/5640
=================================================================================================================
Proxy Id                             0
MO                                   SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1
=================================================================================================================
ManagedElementId                     1
applicationConfiguration[0]         
faultTolerantCoreStates[2]           ManagedElement=1,Equipment=1,Subrack=MS,Slot=10,PlugInUnit=1;Active ManagedElement=1,Equipment=1,Subrack=MS,Slot=11,PlugInUnit=1;PassiveReady
Struct healthCheckResult has 3 members:
 >>> 1.healthCheckResult = 99
 >>> 2.message =
 >>> 3.startTime =
healthCheckSchedule[0]              
logicalName                          XNRNC01
Struct mimInfo has 3 members:
 >>> 1.mimName = RNC_NODE_MODEL_K
 >>> 2.mimVersion = 9.16
 >>> 3.mimRelease =
mimName                              RNC_NODE_MODEL_K
productName                          RNC3810
productNumber                       
productRevision                     
productType                          Node
site                                
userLabel                            XNRNC01
=================================================================================================================
Proxy Id                             1
MO                                   SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1,ManagedElementData=1
=================================================================================================================
ManagedElementDataId                 1
autoConfigurationAllowed             false
daylightSavingTime                   false
docLibSystemDefined                 
docLibUserDefined                  
documentServerAddress               
hdVolumeCFreespace                   1013604352
hdVolumeCSize                        1381645824
logonServerAddress                  
minimumHdVolumeCFreespace            0
nodeLocalTimeZone                    GMT
nodeUTCTime                          1249439599000
nodeUniqueID                        
ntpBurstFlagPrimary                  false
ntpBurstFlagSecondary                false
ntpBurstFlagThird                    false
ntpMaxPollPrimary                    1024
ntpMaxPollSecondary                  1024
ntpMaxPollThird                      1024
ntpMinPollPrimary                    64
ntpMinPollSecondary                  64
ntpMinPollThird                      64
ntpServerAddressPrimary              0.0.0.0
ntpServerAddressSecondary            0.0.0.0
ntpServerAddressThird                0.0.0.0
ntpServiceActivePrimary              false
ntpServiceActiveSecondary            false
ntpServiceActiveThird                false
piuGroupEscalationType               4 (WARM_AT_PIU_RESTART)
swServerUrlList                     
=================================================================================================================
Proxy Id                             2
MO                                   SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1,SystemFunctions=1
=================================================================================================================
SystemFunctionsId                    1
userLabel                           
=================================================================================================================
Proxy Id                             3
MO                                   SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1,SystemFunctions=1,PmService=1
=================================================================================================================
maxNoOfCounters                      1700000
maxNoOfMonitors                      30
maxNoOfPmFiles                       200
minorAlarmCeasingDelta               5
performanceDataPath                  /p001200/pm_data
performanceDataVolume                /p001200/
transactionTimeOut                   60
userLabel                           
warningAlarmCeasingDelta             5
warningAlarmLimitPercent             80
=================================================================================================================
Proxy Id                             4
MO                                   SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1,SystemFunctions=1,WebServer=1
=================================================================================================================
WebServerId                          1
reservedBySwAllocation[1]           
 >>> reservedBySwAllocation = SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1,SwManagement=1,SwAllocation=WebServer
userLabel                           
=================================================================================================================
Proxy Id                             5
MO                                   SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1,SystemFunctions=1,Ncli=1
=================================================================================================================
NcliId                               1
administrativeState                  1 (UNLOCKED)
operationalState                     1 (ENABLED)
=================================================================================================================
Proxy Id                             6
MO                                   SubNetwork=ONRM_RootMo_R,SubNetwork=XNRNC01,MeContext=XNRNC01,ManagedElement=1,SystemFunctions=1,Licensing=1
=================================================================================================================
LicensingId                          1
Struct emergencyStateInfo has 2 members:
 >>> 1.state = 2 (USE_DEGRADED)
 >>> 2.time = 0
licenseFileUrl                       http://192.168.5.1/keyfiles/Licensing.xml
userLabel                           
===============================
生成之后的excel 格式如下:
Filename    UtranCell    administrativeState    operationalState    cId    locationAreaRef    routingAreaRef    uarfcnDl    primaryScramblingCode    primaryCpichPower    primarySchPower    secondarySchPower    bchPower
090623-193133_XNRNC0    WXN0011A    1 (UNLOCKED)    1 (ENABLED)    11    57686    1    10713    319    330    -18    -35    -31
090623-193133_XNRNC0    WXN0011B    1 (UNLOCKED)    1 (ENABLED)    12    57686    1    10713    39    330    -18    -35    -31
090623-193133_XNRNC0    WXN0011C    1 (UNLOCKED)    1 (ENABLED)    13    57686    1    10713    262    330    -18    -35    -31
090623-193133_XNRNC0    WXN0021A    1 (UNLOCKED)    0 (DISABLED)    21    57686    1    10713    295    330    -18    -35    -31
090623-193133_XNRNC0    WXN0021B    1 (UNLOCKED)    0 (DISABLED)    22    57686    1    10713    134    330    -18    -35    -31
090623-193133_XNRNC0    WXN0021C    1 (UNLOCKED)    0 (DISABLED)    23    57686    1    10713    335    330    -18    -35    -31
090623-193133_XNRNC0    WXN0031A    1 (UNLOCKED)    1 (ENABLED)    31    57686    1    10713    56    330    -18    -35    -31
090623-193133_XNRNC0    WXN0031B    1 (UNLOCKED)    1 (ENABLED)    32    57686    1    10713    351    330    -18    -35    -31
090623-193133_XNRNC0    WXN0031C    1 (UNLOCKED)    1 (ENABLED)    33    57686    1    10713    48    330    -18    -35    -31
格式祥见附件
0805.rar (307.75 KB)
CELL_Level.rar (3.95 KB)

0805为TXT cell-level 为csv文件,
谢谢
搜索更多相关主题的帖子: 摘取 字段 数据 execel txt 
2010-01-20 20:13
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
给个思路吧。

1、引用 excel 对象,打开excel 文件,然后从第 2 行开始。用变量指示

2、打开TXT文档,搜索出指定的字串,把所必须的字段全部搜索到后,然后再搜索可空字段,取得内容后,再写入 excel 的当前行。

3、写完后,行计数+1 ,然后再关闭TXT文档后,再跳到2 操作下一个TXT文件。

4、所有的TXT文档结束后,保存 EXCEL ,再关闭,再结束。


授人于鱼,不如授人于渔
早已停用QQ了
2010-01-21 18:51
ffg654321
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-1-20
收藏
得分:0 
回复 2楼 风吹过b
大哥 能你能给段代码啊
2010-01-26 09:58
快速回复:求助:VB读取大量txt数据 摘取制定字段 分类汇总写入execel
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.054557 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved