Hello,
Try : Sub test1() Dim Enrgt As String Close #1 Close #2 mypath = "d:\donnees\daniel\mpfe\" 'files path, please change Open mypath & "RPTbamCommon Maintenance201106061432493.txt" For Input As #1 Open mypath & "Output.txt" For Output As #2 Do While Not EOF(1) Line Input #1, Enrgt If Left(Enrgt, 1) = "-" Or Left(Enrgt, 1) = " " Or Left(Enrgt, 1) = "B" Or _ Len(Enrgt) = 0 Then Print #2, Enrgt End If Loop Close #2 End Sub Regards. Daniel De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De la part de uzoma ojemeni Envoyé : dimanche 19 juin 2011 13:06 À : excel-macros@googlegroups.com Objet : $$Excel-Macros$$ HELP: Macro to PARSE Lines of Data Dear Friends, See attached. I need help in developing an excel macro that can delete the below lines of text +++ HW-Airbridge 2011-06-06 14:31:47 O&M #2238404 "%%DSP CBTSCFG: BTSID=200, CFGID=CBTSSECTORCARRIER;%%" RETCODE = 0 Execution succeeded BTS SECTOR CARRIER CONFIGURATION -------------------------------- (Number of results = 15) #NAME? +++ HW-Airbridge 2011-06-06 14:31:47 O&M #2238405 "%%DSP CBTSCFG: BTSID=200, CFGID=CBTSSECTORCARRIER;%%" RETCODE = 0 Execution succeeded BTS SECTOR CARRIER CONFIGURATION -------------------------------- The expected result should be a table as shown below BTS Name BTS ID Local Cell ID Local Sector ID Carrier ID TRM ID CE Pool ID HPB Flag PN Sharing Carrier Mode Lekki Ph 2 - 2_SWAP 200 200 0 10 1 0 NO NULL Lekki Ph 2 - 2_SWAP 200 200 0 11 0 1 NO NULL Lekki Ph 2 - 2_SWAP 200 200 0 12 1 0 NO NULL Lekki Ph 2 - 2_SWAP 200 200 1 10 3 0 NO NULL Lekki Ph 2 - 2_SWAP 200 200 1 11 2 1 NO NULL Lekki Ph 2 - 2_SWAP 200 200 1 12 3 0 NO NULL Lekki Ph 2 - 2_SWAP 200 200 2 10 5 0 NO NULL Lekki Ph 2 - 2_SWAP 200 200 2 11 4 1 NO NULL Lekki Ph 2 - 2_SWAP 200 200 2 12 5 0 NO NULL Lekki Ph 2 - 2_SWAP 200 2200 0 14 1 4 NO NULL Lekki Ph 2 - 2_SWAP 200 2200 0 15 0 4 NO NULL Lekki Ph 2 - 2_SWAP 200 2200 1 14 3 4 NO NULL Lekki Ph 2 - 2_SWAP 200 2200 1 15 2 4 NO NULL Lekki Ph 2 - 2_SWAP 200 2200 2 14 5 4 NO NULL Lekki Ph 2 - 2_SWAP 200 2200 2 15 4 4 NO NULL I would appreciate a prompt response. Thank you and keep up the wonderful work. uzoma -- ---------------------------------------------------------------------------- ------ Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel