[lnkForumImage]
TotalShareware - Download Free Software
Confronta i prezzi di migliaia di prodotti.
Asp Forum
 Home | Login | Register | Search 


 

Forums >

comp.lang.ruby

csv next and previous help

Geoff

4/25/2007 8:44:00 PM

Hey there,

I'm trying to figure out how to work with the sample data below such
that I can take each time there is a C in the third column and update
the previous D to a P.

An ideas?

IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
IM,0000003,D,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2

This should end up like this:

IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
IM,0000003,P,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2

Thank you,

Geoff
8 Answers

Rob Biedenharn

4/25/2007 9:20:00 PM

0



James Gray

4/25/2007 10:05:00 PM

0

On Apr 25, 2007, at 3:45 PM, Geoff wrote:

> I'm trying to figure out how to work with the sample data below such
> that I can take each time there is a C in the third column and update
> the previous D to a P.
>
> An ideas?

I've always got ideas. ;)

>> require "rubygems"
=> false
>> require "faster_csv"
=> true
>> data = <<END_DATA
IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
IM,0000003,D,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2
END_DATA
=> "IM,0000001,D,0,@FRIEDEXT01;IMAGES\000\000;0000001.TIF;2\nIM,
0000002, ,0,@FRIEDEXT01;IMAGES\000\000;0000002.TIF;2\nIM,0000003,D,
0,@FRIEDEXT01;IMAGES\000\000;0000003.TIF;2\nIM,0000004, ,
0,@FRIEDEXT01;IMAGES\000\000;0000004.TIF;2\nIM,0000005,C,
0,@FRIEDEXT01;IMAGES\000\000;0000005.TIF;2\nIM,0000006,D,
0,@FRIEDEXT01;IMAGES\000\000;0000006.TIF;2\n"
>> parsed = FCSV.parse(data)
=> [["IM", "0000001", "D", "0", "@FRIEDEXT01;IMAGES\000
\000;0000001.TIF;2"], ["IM", "0000002", " ", "0", "@FRIEDEXT01;IMAGES
\000\000;0000002.TIF;2"], ["IM", "0000003", "D", "0",
"@FRIEDEXT01;IMAGES\000\000;0000003.TIF;2"], ["IM", "0000004", " ",
"0", "@FRIEDEXT01;IMAGES\000\000;0000004.TIF;2"], ["IM", "0000005",
"C", "0", "@FRIEDEXT01;IMAGES\000\000;0000005.TIF;2"], ["IM",
"0000006", "D", "0", "@FRIEDEXT01;IMAGES\000\000;0000006.TIF;2"]]
>> changed = parsed.inject(Array.new) do |rows, row|
?> if row[2] == "C" and (d_row = rows.reverse.find { |r| r[2] ==
"D" })
>> d_row[2] = "P"
>> end
>> rows << row
>> end
=> [["IM", "0000001", "D", "0", "@FRIEDEXT01;IMAGES\000
\000;0000001.TIF;2"], ["IM", "0000002", " ", "0", "@FRIEDEXT01;IMAGES
\000\000;0000002.TIF;2"], ["IM", "0000003", "P", "0",
"@FRIEDEXT01;IMAGES\000\000;0000003.TIF;2"], ["IM", "0000004", " ",
"0", "@FRIEDEXT01;IMAGES\000\000;0000004.TIF;2"], ["IM", "0000005",
"C", "0", "@FRIEDEXT01;IMAGES\000\000;0000005.TIF;2"], ["IM",
"0000006", "D", "0", "@FRIEDEXT01;IMAGES\000\000;0000006.TIF;2"]]
>> puts changed.map { |r| r.to_csv }
IM,0000001,D,0,@FRIEDEXT01;IMAGES;0000001.TIF;2
IM,0000002, ,0,@FRIEDEXT01;IMAGES;0000002.TIF;2
IM,0000003,P,0,@FRIEDEXT01;IMAGES;0000003.TIF;2
IM,0000004, ,0,@FRIEDEXT01;IMAGES;0000004.TIF;2
IM,0000005,C,0,@FRIEDEXT01;IMAGES;0000005.TIF;2
IM,0000006,D,0,@FRIEDEXT01;IMAGES;0000006.TIF;2
=> nil

Hope that helps.

James Edward Gray II

Ganesh Gunasegaran

4/25/2007 10:08:00 PM

0

A Naive implementation below,

string = %q{IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
IM,0000003,D,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2}

puts "%%%%%%%%%% BEFOR PARSING %%%%%%%%%%%%%"
puts string

last_d_line = nil
line_array = string.split("\n")
line_array.each_with_index do |line, i|
if line.split(',')[2] == "D"
last_d_line = i
end
if line.split(',')[2] == "C"
arr = line_array[last_d_line].split(',')
arr[2] = "P"
line_array[last_d_line] = arr.join(',')
end
end

puts "%%%%%%%%%%%% PARSED %%%%%%%%%%%%%%"
puts line_array


Cheers,
Ganesh Gunasegaran

On 26-Apr-07, at 2:15 AM, Geoff wrote:

> Hey there,
>
> I'm trying to figure out how to work with the sample data below such
> that I can take each time there is a C in the third column and update
> the previous D to a P.
>
> An ideas?
>
> IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
> IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
> IM,0000003,D,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
> IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
> IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
> IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2
>
> This should end up like this:
>
> IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
> IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
> IM,0000003,P,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
> IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
> IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
> IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2
>
> Thank you,
>
> Geoff
>
>

Geoff

4/26/2007 3:55:00 PM

0

James,

It helps a lot! Still getting an error though. Here is the code I used
and the error I got:

require 'rubygems'
require 'faster_csv'

parsed = FCSV.parse('C:/ruby/work/FRIEDEXT01.LFP', 'r')
changed = parsed.inject(Array.new) do |rows, row|
if row[2] == "C" and (d_row = rows.reverse.find { |r| r[2] == "D" })
d_row[2] = "P"
end
rows << row
end
puts changed.map { |r| r.to_csv }

c:/ruby/lib/ruby/gems/1.8/gems/fastercsv-1.2.0/lib/faster_csv.rb:
1320:in `merge': can't convert String into Hash (TypeError)
from c:/ruby/lib/ruby/gems/1.8/gems/fastercsv-1.2.0/lib/
faster_csv.rb:1320:in `initialize'
from c:/ruby/lib/ruby/gems/1.8/gems/fastercsv-1.2.0/lib/
faster_csv.rb:1184:in `new'
from c:/ruby/lib/ruby/gems/1.8/gems/fastercsv-1.2.0/lib/
faster_csv.rb:1184:in `parse'
from C:/ruby/work/lfp_parent.rb:4

Thanks,
Geoff

On Apr 25, 3:05 pm, James Edward Gray II <j...@grayproductions.net>
wrote:
> On Apr 25, 2007, at 3:45 PM, Geoff wrote:
>
> > I'm trying to figure out how to work with the sample data below such
> > that I can take each time there is a C in the third column and update
> > the previous D to a P.
>
> > An ideas?
>
> I've always got ideas. ;)
>
> >> require "rubygems"
> => false
> >> require "faster_csv"
> => true
> >> data = <<END_DATA
> IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
> IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
> IM,0000003,D,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
> IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
> IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
> IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2
> END_DATA
> => "IM,0000001,D,0,@FRIEDEXT01;IMAGES\000\000;0000001.TIF;2\nIM,
> 0000002, ,0,@FRIEDEXT01;IMAGES\000\000;0000002.TIF;2\nIM,0000003,D,
> 0,@FRIEDEXT01;IMAGES\000\000;0000003.TIF;2\nIM,0000004, ,
> 0,@FRIEDEXT01;IMAGES\000\000;0000004.TIF;2\nIM,0000005,C,
> 0,@FRIEDEXT01;IMAGES\000\000;0000005.TIF;2\nIM,0000006,D,
> 0,@FRIEDEXT01;IMAGES\000\000;0000006.TIF;2\n"
> >> parsed = FCSV.parse(data)
> => [["IM", "0000001", "D", "0", "@FRIEDEXT01;IMAGES\000
> \000;0000001.TIF;2"], ["IM", "0000002", " ", "0", "@FRIEDEXT01;IMAGES
> \000\000;0000002.TIF;2"], ["IM", "0000003", "D", "0",
> "@FRIEDEXT01;IMAGES\000\000;0000003.TIF;2"], ["IM", "0000004", " ",
> "0", "@FRIEDEXT01;IMAGES\000\000;0000004.TIF;2"], ["IM", "0000005",
> "C", "0", "@FRIEDEXT01;IMAGES\000\000;0000005.TIF;2"], ["IM",
> "0000006", "D", "0", "@FRIEDEXT01;IMAGES\000\000;0000006.TIF;2"]]
> >> changed = parsed.inject(Array.new) do |rows, row|
> ?> if row[2] == "C" and (d_row = rows.reverse.find { |r| r[2] ==
> "D" })
> >> d_row[2] = "P"
> >> end
> >> rows << row
> >> end
> => [["IM", "0000001", "D", "0", "@FRIEDEXT01;IMAGES\000
> \000;0000001.TIF;2"], ["IM", "0000002", " ", "0", "@FRIEDEXT01;IMAGES
> \000\000;0000002.TIF;2"], ["IM", "0000003", "P", "0",
> "@FRIEDEXT01;IMAGES\000\000;0000003.TIF;2"], ["IM", "0000004", " ",
> "0", "@FRIEDEXT01;IMAGES\000\000;0000004.TIF;2"], ["IM", "0000005",
> "C", "0", "@FRIEDEXT01;IMAGES\000\000;0000005.TIF;2"], ["IM",
> "0000006", "D", "0", "@FRIEDEXT01;IMAGES\000\000;0000006.TIF;2"]]
> >> puts changed.map { |r| r.to_csv }
> IM,0000001,D,0,@FRIEDEXT01;IMAGES;0000001.TIF;2
> IM,0000002, ,0,@FRIEDEXT01;IMAGES;0000002.TIF;2
> IM,0000003,P,0,@FRIEDEXT01;IMAGES;0000003.TIF;2
> IM,0000004, ,0,@FRIEDEXT01;IMAGES;0000004.TIF;2
> IM,0000005,C,0,@FRIEDEXT01;IMAGES;0000005.TIF;2
> IM,0000006,D,0,@FRIEDEXT01;IMAGES;0000006.TIF;2
> => nil
>
> Hope that helps.
>
> James Edward Gray II

James Gray

4/26/2007 4:38:00 PM

0

On Apr 26, 2007, at 11:00 AM, Geoff wrote:

> It helps a lot!

Good.

> Still getting an error though.

I bet we can fix that.

> Here is the code I used and the error I got:
>
> require 'rubygems'
> require 'faster_csv'
>
> parsed = FCSV.parse('C:/ruby/work/FRIEDEXT01.LFP', 'r')

Let's try changing the above line to:

parsed = FCSV.read('C:/ruby/work/FRIEDEXT01.LFP')

> changed = parsed.inject(Array.new) do |rows, row|
> if row[2] == "C" and (d_row = rows.reverse.find { |r| r[2] == "D" })
> d_row[2] = "P"
> end
> rows << row
> end
> puts changed.map { |r| r.to_csv }

Hope that helps.

James Edward Gray II

Geoff

4/26/2007 7:46:00 PM

0

Excellent, thanks!

Now if only I understood all this better. :)

Geoff

On Apr 26, 9:37 am, James Edward Gray II <j...@grayproductions.net>
wrote:
> On Apr 26, 2007, at 11:00 AM, Geoff wrote:
>
> > It helps a lot!
>
> Good.
>
> > Still getting an error though.
>
> I bet we can fix that.
>
> > Here is the code I used and the error I got:
>
> > require 'rubygems'
> > require 'faster_csv'
>
> > parsed = FCSV.parse('C:/ruby/work/FRIEDEXT01.LFP', 'r')
>
> Let's try changing the above line to:
>
> parsed = FCSV.read('C:/ruby/work/FRIEDEXT01.LFP')
>
> > changed = parsed.inject(Array.new) do |rows, row|
> > if row[2] == "C" and (d_row = rows.reverse.find { |r| r[2] == "D" })
> > d_row[2] = "P"
> > end
> > rows << row
> > end
> > puts changed.map { |r| r.to_csv }
>
> Hope that helps.
>
> James Edward Gray II

James Gray

4/26/2007 7:59:00 PM

0

On Apr 26, 2007, at 2:50 PM, Geoff wrote:

> Now if only I understood all this better. :)

Feel free to ask questions. I'll try to explain.

James Edward Gray II

William James

4/27/2007 7:12:00 AM

0


Geoff wrote:
> Hey there,
>
> I'm trying to figure out how to work with the sample data below such
> that I can take each time there is a C in the third column and update
> the previous D to a P.
>
> An ideas?
>
> IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
> IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
> IM,0000003,D,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
> IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
> IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
> IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2
>
> This should end up like this:
>
> IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
> IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
> IM,0000003,P,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
> IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
> IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
> IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2
>
> Thank you,
>
> Geoff

data = IO.readlines("junk").map{|line| line.split(",")}.transpose
flag = nil
(data[2].size - 1).downto(0){|i|
case data[2][i]
when 'C'
flag = true
when 'D'
data[2][i] = 'P' if flag
flag = nil
end
}
puts data.transpose.map{|a| a.join(",")}


--- input ---
IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
IM,0000003,D,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2

--- output ---
IM,0000001,D,0,@FRIEDEXT01;IMAGES\00\00;0000001.TIF;2
IM,0000002, ,0,@FRIEDEXT01;IMAGES\00\00;0000002.TIF;2
IM,0000003,P,0,@FRIEDEXT01;IMAGES\00\00;0000003.TIF;2
IM,0000004, ,0,@FRIEDEXT01;IMAGES\00\00;0000004.TIF;2
IM,0000005,C,0,@FRIEDEXT01;IMAGES\00\00;0000005.TIF;2
IM,0000006,D,0,@FRIEDEXT01;IMAGES\00\00;0000006.TIF;2