把特定范围内TXT数据提取到另外一个TXT里面

dflyj2

L020001H> lt all
L020001H> get sector power
=================================================================================================================
MO                                                      Attribute         Value
=================================================================================================================
SectorCarrier=1                                         configuredMaxTxPower 80000
SectorCarrier=1                                         csiRsPowerRatio   0
SectorCarrier=1                                         maximumTransmissionPower 490
SectorCarrier=1                                         txPowerPersistentLock false
SectorCarrier=2                                         configuredMaxTxPower 80000
SectorCarrier=2                                         csiRsPowerRatio   0
SectorCarrier=2                                         maximumTransmissionPower 490
SectorCarrier=2                                         txPowerPersistentLock false
SectorCarrier=3                                         configuredMaxTxPower 80000
SectorCarrier=3                                         csiRsPowerRatio   0
SectorCarrier=3                                         maximumTransmissionPower 490
SectorCarrier=3                                         txPowerPersistentLock false
SectorEquipmentFunction=1                               availableHwOutputPower 80000
SectorEquipmentFunction=2                               availableHwOutputPower 80000
SectorEquipmentFunction=3                               availableHwOutputPower 80000
=================================================================================================================
Total: 6 MOs


L020001H> q
Bye...
以上为源TXT文本内容，
提取后为：
SectorCarrier=1                                         configuredMaxTxPower 80000
SectorCarrier=1                                         csiRsPowerRatio   0
SectorCarrier=1                                         maximumTransmissionPower 490
SectorCarrier=1                                         txPowerPersistentLock false
SectorCarrier=2                                         configuredMaxTxPower 80000
SectorCarrier=2                                         csiRsPowerRatio   0
SectorCarrier=2                                         maximumTransmissionPower 490
SectorCarrier=2                                         txPowerPersistentLock false
SectorCarrier=3                                         configuredMaxTxPower 80000
SectorCarrier=3                                         csiRsPowerRatio   0
SectorCarrier=3                                         maximumTransmissionPower 490
SectorCarrier=3                                         txPowerPersistentLock false
SectorEquipmentFunction=1                               availableHwOutputPower 80000
SectorEquipmentFunction=2                               availableHwOutputPower 80000
SectorEquipmentFunction=3                               availableHwOutputPower 80000
请大神帮忙看看，一下为我写的代码，但是提取不出来~
Sub cov()
Dim f
Dim arrstrinput As String
Dim arrinput, arrcell, arrline
Dim blsts As Boolean
f = Application.GetOpenFilename("kget,*.log", 1, , , False)
blsts = False
Open f For Input As #1
Do Until EOF(1)
     Line Input #1, arrstrinput
         If InStr(arrstrinput, "get") Then
                arrinput = Split(arrstrinput, ">")
                arrcell = arrinput(0)
         ElseIf InStr(arrstrinput, "=====") > 0 Then
               blsts = False
               GoTo nextline
         ElseIf InStr(arrstrinput, "MO                                                      Attribute         Value") > 0 Then
               blsts = True
               GoTo nextline
         ElseIf blsts = True Then
               arrline = Trim(arrstrinput)
         End If
nextline:
Loop
Open "D:\OUT.log" For Append As #2
Print #2, arrline
Close #2
'MsgBox arrline
Close #1
End Sub

cflood

OUT.rar (269 Bytes, 下载次数: 9)

2017-5-18 10:26 上传

点击文件名下载附件

Sub cov()
Open "d:\L020001H.log" For Input As #1
Open "D:\OUT.log" For Output As #2
Do Until EOF(1)
Line Input #1, arrstrinput
   If InStr(arrstrinput, "Sector") Then Print #2, arrstrinput
Loop
Close #2
Close #1
End Sub

dflyj2

那个大神帮我瞧瞧呗！

cflood

Open f For Input As #1
Open "D:\OUT.log" For Append As #2
Do Until EOF(1)
Line Input #1, arrstrinput
If InStr(arrstrinput, "get") Then
arrinput = Split(arrstrinput, ">")
arrcell = arrinput(0)
ElseIf InStr(arrstrinput, "=====") > 0 Then
blsts = False
GoTo nextline
ElseIf InStr(arrstrinput, "MO                                                      Attribute         Value") > 0 Then
blsts = True
GoTo nextline
ElseIf blsts = True Then
arrline = Trim(arrstrinput)
Print #2, arrline
End If
nextline:
Loop
Close #2
Close #1
这样试试

dflyj2

cflood 发表于 2017-5-18 09:59
Open f For Input As #1
Open "D:\OUT.log" For Append As #2
Do Until EOF(1)

这样貌似不行，提取的数据也是空的！

cflood

把你的txt文件发上来看看

dflyj2

cflood 发表于 2017-5-18 10:15
把你的txt文件发上来看看

传上去了，也传了个图面！谢谢啦！

dflyj2

cflood 发表于 2017-5-18 10:26
Sub cov()
Open "d:\L020001H.log" For Input As #1
Open "D:\OUT.log" For Output As #2

谢谢哦！可以啦！但是有个疑问想请大神解答下：L020001H> get sector power 这一行为啥都提取到#2里面呀！请大神解惑！

dflyj2

cflood 发表于 2017-5-18 10:26
Sub cov()
Open "d:\L020001H.log" For Input As #1
Open "D:\OUT.log" For Output As #2

谢谢哦！可以啦！但是有个疑问想请大神解答下：L020001H> get sector power 这一行为啥没提取到#2里面呀（也包含sector呀）！请大神解惑！

cflood

dflyj2 发表于 2017-5-18 10:36
谢谢哦！可以啦！但是有个疑问想请大神解答下：L020001H> get sector power 这一行为啥没提取到#2里面呀 ...

第一个字母是小写