Vista Tutorial - More text processing.

Hi,
I'm trying to turn a .txt which contains thousands of lines of this:-

DSC 50000
FLEN 5
DSP DN
RRPA NO
RLI 120
NPA
NXX
DSC 50001
FLEN 5
DSP DN
RRPA NO
RLI 140
NPA
NXX
DSC 50002
FLEN 5
DSP DN
RRPA NO
RLI 120
NPA
NXX

Into something that looks like this:-

DSC RLI
------- ----
50000 120
50001 140
50002 120


I already have a program to do this in Excel VBA but I like the idea
of running it in PoSH.

I've been playing around with where-object, select-object etc and have
no problem reading in the file
and iterating line by line doing something like foreach ($line in
$file) { if $line ....} looks for matching patterns then writes it to
a file. The problem is that I don't understand how to format the
output into what I need. Invariably I end up with something that looks
like :-

DSC RLI
------- -----
50000
120
50001
140
50002
120

Would be grateful for any pointers.

Thanks,
Stuart

#create an empty array to hold the objects
$col = @()

# get the data in seven-line chuncks according to sequence on data sample
get-content data.txt -readCount 7 | % {

# create a new object
$obj = new-object psObject

# use Switch to create custom properties for the object
switch -regex ($_) {

# if $_ matches 'DSC' create the DSC property and assign its value
# by replacing al non-numeric characters
'^DSC' {
add-member noteProperty DSC $($_ -replace '\D*') -in $obj
}

# if $_ matches 'RLI' create the RLI property and assign its value
# by replacing al non-numeric characters
'^RLI' {
add-member noteProperty RLI $($_ -replace '\D*') -in $obj
}

# if $_ does not match 'DSC' or 'RLI' skip it
default {
continue
}
}

# add the object to the $col array
$col += $obj
}

$col

--
Kiron

Another way to solve this problem:

gc a.txt | % { "DSC`tRLI"; "------`t-----" } { if ($_ -match '^DSC') {
$out = [regex]::split($_, '\s+')[1];
}
elseif ($_ -match '^RLI' ) {
$out + "`t" + [regex]::split($_, '\s+')[1]
}
}


Best wishes!
Tao Ma

Awesome as always Kiron!
It never occured to me to read in all seven lines then turn it into an
array.
Thanks muchly!
Stuart


--
Posted via a free Usenet account from http://www.teranews.com

Thanks Tao,
Works perfectly!

Best wishes to you too!
Stuart

--
Posted via a free Usenet account from http://www.teranews.com

"Kryten" <Kryten68@xxxxxx> wrote in message
news:fd2969ca-ee58-48c3-8d66-3e2f1f7462bd@xxxxxxHere's another solution that uses the very useful switch -regex -file
feature:

27> function newObj {$obj = new-object psobject; $obj | add-member
NoteProperty DSC '' -pass | add-member NoteProperty RLI '' -pass}
28> switch -regex -file .\foo.dat {'^DSC\s+(\d+)' {$obj = newObj; $obj.DSC =
$matches[1]} '^RLI\s+(\d+)' {$obj.RLI = $matches[1];$obj}}

DSC RLI
--- ---
50000 120
50001 140
50002 120

--
Keith