Использование команды Mid

Question

У меня есть следующие необработанные файлы и код. Но выход дает мне, как показано ниже. Я хочу напечатать только 1-й и 3-й строки, используя какое-то условие фильтрации, что оно будет напечатано, если LAC начинается с .

RAW данные

BASE TRANSCEIVER STATION DATA 

BTS NAME :ZTELGEI5      NUMBER :2465 
BSC NAME :BSCDLF4      NUMBER :4 
LA NAME :LAC2195      LAC  :2195 
MOBILE COUNTRY CODE ....................(MCC)... :404 
MOBILE NETWORK CODE ....................(MNC)... :31 
CELL IDENTITY ..........................(CI).... :2465 
BTS ADMINISTRATIVE STATE ....................... :UNLOCKED 

ROUTING ZONE ...........................(RZ).... :173 
NEIGHBOUR BTS LIST: 
        NO NEIGHBOURS 


BASE TRANSCEIVER STATION DATA 

BTS NAME :EKOLAGPR1     NUMBER :3011 
BSC NAME :BSC61DLM      NUMBER :830 
LA NAME :BSC61DLF      LAC  :7043 
MOBILE COUNTRY CODE ....................(MCC)... :404 
MOBILE NETWORK CODE ....................(MNC)... :31 
CELL IDENTITY ..........................(CI).... :3011 
BTS ADMINISTRATIVE STATE ....................... :UNLOCKED 

ROUTING ZONE ...........................(RZ).... :153   

NEIGHBOUR BTS LIST: 
        NO NEIGHBOURS 

BASE TRANSCEIVER STATION DATA 

BTS NAME :ZTACMI2      NUMBER :322942 
BSC NAME :BSC6ALI1      NUMBER :106 
LA NAME :LAC2170      LAC  :2170 
MOBILE COUNTRY CODE ....................(MCC)... :404 
MOBILE NETWORK CODE ....................(MNC)... :31 
CELL IDENTITY ..........................(CI).... :22942 
BTS ADMINISTRATIVE STATE ....................... :UNLOCKED 

ROUTING ZONE ...........................(RZ).... :144   

NEIGHBOUR BTS LIST: 
        NO NEIGHBOURS 

Код

If Left(Str, 12) = "BTS NAME :" Then 
    BTS_Name = Mid(Str, 13, 10) 
End If 
If Left(Str, 12) = "BTS NAME :" Then 
    BTS_NUMBER = Mid(Str, 51, 10) 
End If 
If Left(Str, 12) = "LA NAME :" Then 
    LAC = Mid(Str, 51, 4) 
End If 
If Left(Str, 50) = "CELL IDENTITY ..........................(CI).... :" Then 
    CELL_ID = Mid(Str, 51, 10) 
End If 
If Left(Str, 50) = "BTS ADMINISTRATIVE STATE ....................... :" Then 
    BTS_STATUS = Mid(Str, 51, 10) 
End If 
If Left(Str, 50) = "ROUTING ZONE ...........................(RZ).... :" Then 
    RZ = Mid(Str, 51, 10) 

    SL_NO = SL_NO + 1 
    str1 = CStr(SL_NO) + "," + CELL_ID + "," + LAC + "," + BTS_Name + "," + BTS_NUMBER + "," + BTS_STATUS + "," + RZ 
    Print #1, str1 
End If 

Выходные

https://drive.google.com/file/d/0B1cIJpdD9uvza3ZpMnNlT0cyb2M/view?usp=sharing

Answer 1

If LAC Like "2*" Then 

    str1 = CStr(SL_NO) & "," & CELL_ID & "," & LAC + "," & BTS_Name & "," & _ 
         BTS_NUMBER & "," & BTS_STATUS & "," & RZ 
    Print #1, str1 

End If