Text File to Excel mutiple lines per record

Hi Experts,
I have a text file to convert to Excel.  This file is special because there are multiple lines per record.  
Ex:  1st record 1st line in file is Plate Number: AZAB34596
      2nd line of same record # 149885665 date: 07/05/13 type: License Plate
       3rd line same record     Time: 12:49A  location: 1738 Welton St
The ticket amount is not required.  All the other extraneous lanaguage is not required.  
Any way to do this with VBA?
rhadashAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

als315Commented:
Can you upload sample file and show expected result in excel?
0
Robberbaron (robr)Commented:
definitely need sample data as we need to know how the records and fields are separated.

are there ALWAYS 3 lines per record ? or sometime 4 or 5 ?
0
rhadashAuthor Commented:
Please see attached file.  Each record always the same 3 lines.  It does not change.
0
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

rhadashAuthor Commented:
This is a snipet from the file.  Not sure why but it  will not upload as attachment.  That is probably bad omen.  



 PROGRAM: DVRNTC26                                   XXXXX STATE & LOCAL SOLUTIONS, INC                         RUNDATE: 08/04/2013
                                                                                                                  RUNTIME: 07:35:34
 CLIENT : XXXXX, XXXXXXXX                PARKING VIOLATIONS BUREAU OPEN CITATION REPORT - R410C                  PAGE NO:        1
 REPORT DATE: 08/04/2013                  AGENCY PAGE NO:     1                                                DUE DATE: 09/15/2013
 ===================================================================================================================================
 020000003 XXXXX CORPORATION          INSTRUCTIONS:  THE FUNCTION OF THIS RENTAL TICKET REPORT IS TO ADVISE YOU OF THE
           PO BOX 24130                              LICENSE PLATE AND EMISSIONS VIOLATIONS ON VEHICLES OWNED BY YOUR AGENCY.
                                                     AS OF THE ABOVE REPORT DATE, YOUR AGENCY IS RESPONSIBLE FOR PAYMENT IN
            CITY    OK  11124                         FULL OF THESE PARKING CITATIONS. PLEASE SEND CHECK OR MONEY ORDER MADE
                                                     PAYABLE TO XXXXXX XXXXXXX, P.O. BOX 46500 XXXX, XX
                                                     80201-6500, ATTN: FLEET PROCESSING DEPT.  ENCLOSE A COPY OF THIS REPORT
                                                     WITH YOUR PAYMENT TO ENSURE PROPER CREDIT.
                                                     *** FAILURE TO COMPLY WITH THIS REQUEST WILL PLACE YOUR AGENCY IN
                                                     VIOLATION OF TITLE 42-4-1110 OF THE XXXXXX REVISED STATUTES. PAYMENT
                                                     IN FULL MUST BE RECEIVED NO LATER THAN THE DUE DATE ABOVE.  FAILURE TO
                                                     RESPOND MAY SUBJECT YOU TO SUCH OTHER PENALTIES AS PRESCRIBED BY LAW,
                                                     INCLUDING SEIZURE OF YOUR VEHICLE(S) BY BOOTING OR TOWING.***
**================================================================================================================================**
   TICKET-NO DATE   VIOLATION DESCRIPTION  FINE/ PEN/ RED/ PAID DUE      PAYMENT
   TIME     LOCATION                                                       ($)
PLATE NUMBER : AZZB34596
                                          |                        |              |
 * 149885665 07/05/13 LICENSE PLATE       | $75  $75   $0  $0  $150|              |
                                          |                        |              |
   12:49A   1738 WELTON ST                |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :    $150  |                        |______________|
====================================================================================================================================
PLATE NUMBER : CA6SDY237
                                          |                        |              |
 * 143924653 07/30/12 LICENSE PLATE       | $75  $75   $0 $75   $75|              |
                                          |                        |              |
   01:14P   1171 XANTHIA ST N             |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :     $75  |                        |______________|
====================================================================================================================================
PLATE NUMBER : CA6VES219
                                          |                        |              |
 * 151088280 07/31/13 LICENSE PLATE       | $75  $75   $0  $0  $150|              |
                                          |                        |              |
   07:41P   1721 LAWRENCE ST              |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :    $150  |                        |______________|
====================================================================================================================================
PLATE NUMBER : COADA8702
                                          |                        |              |
 * 42523681  04/10/00 LICENSE PLATE       | $25  $25   $0  $0   $50|              |
                                          |                        |              |
   02:45P   DIA 4W ROW C                  |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :     $50  |                        |______________|
====================================================================================================================================
PROGRAM: DVRNTC26                                   XEROX STATE & LOCAL SOLUTIONS, INC                         RUNDATE: 08/04/2013
                                                                                                                  RUNTIME: 07:35:34
 CLIENT : DENVER, COLORADO                PARKING VIOLATIONS BUREAU OPEN CITATION REPORT - R410C                  PAGE NO:        2
 REPORT DATE: 08/04/2013                  AGENCY PAGE NO:     2                                                DUE DATE: 09/15/2013
 AGENCY NO : 020000003                    AGENCY NAME : HERTZ CORPORATION
 ===================================================================================================================================
   TICKET-NO DATE   VIOLATION DESCRIPTION  FINE/ PEN/ RED/ PAID DUE      PAYMENT
   TIME     LOCATION                                                       ($)
PLATE NUMBER : COADD8738
                                          |                        |              |
 * 60978002  08/06/02 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   12:02P   1419 19TH ST.                 |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :     $60  |                        |______________|
====================================================================================================================================
PLATE NUMBER : COADK7423
                                          |                        |              |
 * 86755233  01/08/02 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   09:29A   1054 DOWNING ST.              |                        |$_____________|
                                          |                        |              |
__________________________________________|________________________|______________|
                                          |                        |              |
 
                                          |                        |              |
 * 102284136 03/02/06 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   11:43A   4200 HALE PKWY E              |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :     $60  |                        |______________|
====================================================================================================================================
PROGRAM: DVRNTC26                                   XXXXXX & LOCAL SOLUTIONS, INC                         RUNDATE: 08/04/2013
                                                                                                                  RUNTIME: 07:35:34
 CLIENT : XXXXXXXXXXXX                XXXXXXXXXXXXXXXXXXX OPEN CITATION REPORT - R410C                  PAGE NO:        4
 REPORT DATE: 08/04/2013                  AGENCY PAGE NO:     4                                                DUE DATE: 09/15/2013
 AGENCY NO : 020000003                    AGENCY NAME : XXXXXX CORPORATION
 ===================================================================================================================================
   TICKET-NO DATE   VIOLATION DESCRIPTION  FINE/ PEN/ RED/ PAID DUE      PAYMENT
   TIME     LOCATION                                                       ($)
PLATE NUMBER : CO209XWM
                                          |                        |              |
 * 149585671 06/10/13 LICENSE PLATE       | $75  $75   $0  $0  $150|              |
                                          |                        |              |
   06:32P   104 STEELE ST                 |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :    $150  |                        |______________|
====================================================================================================================================
PLATE NUMBER : CO255MPR
                                          |                        |              |
 * 111306215 10/30/07 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   09:38A   1447 CHERRY ST N              |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       1    DUE :     $60  |                        |______________|
====================================================================================================================================
 * 106315462 11/13/06 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   10:49A   5143 ENID WAY N               |                        |$_____________|
                                          |                        |              |
__________________________________________|________________________|______________|
                                          |                        |              |
 * 106879054 02/21/07 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   11:20A   5143 ENID WAY N               |                        |$_____________|
                                          |                        |              |
__________________________________________|________________________|______________|

          AGENCY : 020000003     NO. OF PLATES :        59    NO. OF TICKETS :        72    AMOUNT DUE :     $5,215

(RETURNED) # OF PAYMENTS : ______,  TOTAL PAYMENT : $_______
0
Robberbaron (robr)Commented:
1. should have been able to save your section in a text file and then upload that.  Otherwise, paste it into the question as a 'code snippet' as that keeps formatting.

2. having said that, when i save it into a notepad file, it does make sense....  there are actually 7 lines for each ticket section. The page headers make it a bit tricky as expected.

3. ill try to put together a VBA method that puts all info on one row of excel.  Please advise if there is a special format needed.
0
Robberbaron (robr)Commented:
try this out.

I had to make a fix to your sample data as there appears to be an option for multiple tickets for a single plate, and the data wasn't consistent.

note i have hardcoded the licticket.txt filename and folder. you will need to change these.
lictickets.txt
ticket-summary.xls
0
rhadashAuthor Commented:
Hi, Thanks for response.  Its working pretty good but there is one issue when there are mulitple tickets one plate with a header section in between the tickets.  How often does it happen? Probably not often but it happens. I've pasted below.  There was not an instance like this in the original sample I posted - sorry about that.  if I were smarter I might be able to figure it out :).

PLATE NUMBER : CO756BLF
                                          |                        |              |
 * 106315462 11/13/06 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   10:49A   5143 ENID WAY N               |                        |$_____________|
                                          |                        |              |
__________________________________________|________________________|______________|
                                          |                        |              |
 * 106879054 02/21/07 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   11:20A   5143 ENID WAY N               |                        |$_____________|
                                          |                        |              |
__________________________________________|________________________|______________|
PROGRAM: DVRNTC26                                   XEROX STATE & LOCAL SOLUTIONS, INC                         RUNDATE: 08/04/2013
                                                                                                                  RUNTIME: 07:35:34
 CLIENT : DENVER, COLORADO                PARKING VIOLATIONS BUREAU OPEN CITATION REPORT - R410C                  PAGE NO:        9
 REPORT DATE: 08/04/2013                  AGENCY PAGE NO:     9                                                DUE DATE: 09/15/2013
 AGENCY NO : 020000003                    AGENCY NAME : HERTZ CORPORATION
 ===================================================================================================================================
   TICKET-NO DATE   VIOLATION DESCRIPTION  FINE/ PEN/ RED/ PAID DUE      PAYMENT
   TIME     LOCATION                                                       ($)
PLATE NUMBER : CO756BLF                                  (CONTINUED)
                                          |                        |              |
 * 106879054 02/21/07 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   11:20A   5143 ENID WAY N               |                        |$_____________|
                                          |                        |              |
__________________________________________|________________________|______________|
                                          |                        |              |
 * 900898924 03/26/07 LICENSE PLATE       | $30  $30   $0  $0   $60|              |
                                          |                        |              |
   09:25A   E 51ST & N ENID WAY           |                        |$_____________|
                                          |                        |              |
 # OF TICKETS :       4    DUE :    $240  |                        |______________|
0
als315Commented:
Try this modification of robberbaron's code
ticket-summary.xls
0
Robberbaron (robr)Commented:
sorry got distracted.

Yes, als315 mod gets over the section of header, but it seems your data repeats after the header with the same ticket number.  I doubt you want double rows.  

Do we need to check for duplicate ticket numbers and ignore ?

can you search the data input for any other
(CONTINUED)
over a header as I think these are not a simple as we would like.
0
rhadashAuthor Commented:
Hi,
I donot want to delete duplicate values.  The header problem does not happen every file but obviously happens. No other issues to report.
Thanks,
0
Robberbaron (robr)Commented:
1. I made a small change to ALS code to use a line starting with * as identifier as LicencePlate seems to be the Violation description and there could be others.

2. just be sure you look for duplicate Ticket numbers (for the same plate number) in all output as it could cause issues.
            ElseIf Left$(linedata, 3) = " * " Then
                'this is a violation description line
                items(1) = Trim$(Mid$(linedata, 4, 9))  'ticketno
                items(2) = Trim$(Mid$(linedata, 14, 8))  'DATE
                items(3) = Trim$(Mid$(linedata, 23, 20)) 'viol descript
                items(4) = Trim$(Mid$(linedata, 44, 4))  'fine
                items(5) = Trim$(Mid$(linedata, 49, 4))  'pen
                items(6) = Trim$(Mid$(linedata, 54, 4))  'red
                items(7) = Trim$(Mid$(linedata, 59, 4))  'paid
                items(8) = Trim$(Mid$(linedata, 63, 5))  'due
                
                Line Input #ffn, linedata  'separator
                Line Input #ffn, linedata  'location data
                items(9) = Trim$(Mid$(linedata, 4, 6))  'time
                items(10) = Trim$(Mid$(linedata, 13, 29))  'location

Open in new window

ticket-summary2.xls
lictickets.txt
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
rhadashAuthor Commented:
I am sorry about the delayed response.  Thank you!  I ran the revised code on several files and it looks good.  I appreciate your time to work this out.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Applications

From novice to tech pro — start learning today.