Hi Fishmonger , I can also go with PERL... Thanx in advance Arun

0

Hi Mechanix2go , Yes, there are there several 'chunks' ['blocks'] starting with: (CLASS and ending with: (MODULE_PREFIX Thanx in advance Arun

0

I figured out how to do it with an NT script. Maybe there's a util to make unix use a batch. FM, I got cygwin. As soon as I back up, I'll give it a whirl. ===================================== If at first you don't succeed, you're about average. M2

0

Here's a perl script that extracts the data and creates the spreadsheet. However, it's still unclear which fields you want to extract, how the records are seporated (ie, is there a blank line between each record?), or how you want the spreadsheet data formated. I assumed that ech record is seporated by a blank line, and you wanted to extract each field. The script does not set the cell format (size, color, etc), but that could be added. I used Spreadsheet-WritExcel but there are lots of other Perl modules for dealing with spreadsheets. http://search.cpan.org/search?query... ======================================================================= #!perl use warnings; use strict; use Spreadsheet::WriteExcel; # create an empty spreadsheet with 1 worksheet my $workbook = Spreadsheet::WriteExcel->new('class.xls'); my $worksheet = $workbook->add_worksheet(); # initialize the row and col positions my ($row, $col) = 0,0; # write the header row (using an anonymous array) $worksheet->write_row($row, $col, ['Class', 'Name', 'Message', 'ID', 'Persistence', 'Module']); # set the input record separator to a blank line $/ = "\n\n"; # open a read filehandle to the raw data file open (CLASS, "<", "class.txt") or die "can't open class.txt $!"; while (<CLASS>) { my @data; # initialize an empty array to hold the record # use multiple regex's to extract the data # this can also be done with a single regex (regular expression) ($data[0]) = /CLASS "([^"]+)"/; ($data[1]) = /Name "([^"]+)"/; ($data[2]) = /MESSAGE_TYPE "([^"]+)"/; ($data[3]) = /CLASSID "([^"]+)"/; ($data[4]) = /PERSISTENCE_TYPE "([^"]+)"/; ($data[5]) = /MODULE_PREFIX "([^"]+)"/; # create a reference to the data array my $data = \@data; # increment the row and write the data $row++; $worksheet->write_row($row, $col, $data); } $workbook->close() or die "Error closing spreadsheet file: $!"; close CLASS;

0

Hi FM, I didn't assume blank line but used "MODULE". ::== m.bat @echo off > my.csv setLocal EnableDelayedExpansion for /f "tokens=* delims= " %%A in (mytxt) do ( set /a T+=1 set S!T!=%%A echo %%A | find "MODULE" > nul if not errorlevel 1 set /a T=0 if !T! equ 0 echo !S1!, !S2!, !S3!, !S4!, !S5!, !S6! >> my.csv ) goto :eof :: DONE ===================================== If at first you don't succeed, you're about average. M2

0

Update: If there are no blank lines separating the records, then we would need to change the input record separator to this: $/ = ")\n)\n";

0