テキストファイルの内容を指定数行分ごとに一行に連結を繰り返すには

Question

以下のような内容のテキストファイルを読み込んで、
1A
2A
3A
1B
2B
3B
1C
2C
3C
.
.
.

このように3行ごとに1行に連結を繰り返して書き換えたいのですが、どうしたら良いでしょうか。
1A, 2A, 3A
1B, 2B, 3B
1C, 2C, 3C
.
.
.

Answer 1

each_slice をつかって書いてみました。
（入力行数が 3 の倍数で無かった場合の挙動を他の回答と比べてみてほしいです)

a.rb

lines = IO.readlines('data.txt').map(&:chomp)

lines.each_slice(3) do |arr|
  puts arr.join(',')
end

実行例

$ cat data.txt
1A
2A
3A
1B
2B
3B
1C
2C

$ ruby a.rb
1A,2A,3A
1B,2B,3B
1C,2C

Comments

[LIATARET]

回答ありがとうございます。
短くて分かりやすいですね。
勉強になります。

Answer 2

もうちょっとエレガントに書けそうな気がしますが、とりあえず。

data = IO.readlines("datafile").map(&:chomp)

n=-1
join_3lines = data.chunk{n+=1; n/3}.map{|k,v| v.join(",")}

puts join_3lines

Comments

[LIATARET]

回答ありがとうございます。
おかげさまで希望通りに書き換えることが出来ました。
コードが短くてかっこいいですね。
内容を理解したいと思います。

Answer 3

#基本的なロジックとして

行が3の倍数だったら、そのまま出力(print)
それ以外なら、改行をとってカンマを付与してprint

Answer 4

ベタなやり方ですが、ご参考まで。

# coding: utf-8

begin
  File.open('input.txt') do |file|

    line_count = 0      # 読み込み中の行番号
    three_items = ''    # 連結した文字列を作る変数

    file.each_line do |line|
      line.chomp!
      break if line.length == 0 

      line_count +=1    # 行番号をインクリメント
          
      three_items += line

      if line_count % 3 == 0 then   # 行番号が３で割り切れる場合
        puts three_items    # 連結した文字列を表示
        three_items = ''    # 連結した文字列を空にする。
      else
        three_items += ','  # 行番号が３で割り切れない場合、まだ後に連結するのでカンマを追加
      end 

    end 
  end 
rescue SystemCallError => e
  puts %Q(class=[#{e.class}] message=[#{e.message}])
rescue IOError => e
  puts %Q(class=[#{e.class}] message=[#{e.message}])
end

上記を、tera32595.ruby で保存し、入力ファイルは input.txt で作成しておき、
実行してみたのが以下です。

[ykt68@MacMini teratail]$ date

2016年 4月17日 日曜日 21時45分22秒 JST
[ykt68@MacMini teratail]$ cat input.txt
1A
2A
3A
1B
2B
3B
1C
2C
3C
[ykt68@MacMini teratail]$ ruby tera32595.ruby
1A,2A,3A
1B,2B,3B
1C,2C,3C
[ykt68@MacMini teratail]$

Comments

[LIATARET]

回答ありがとうございます。
おかげさまで希望通りに書き換えることが出来ました。
理解しやすく助かりました。

Answer 5

処理の順番を書きます。

１・インデックスiを初期化
２・文字列バッファをクリア
３・インデックスiをインクリメント
４・文字列バッファに区切り文字、次の文字列を連結
５・もしインデックスが３なら１へ、そうではなければ６へ続行
６・文字列バッファから最後の１文字（区切り文字）を削除して出力
７・３へ戻る

変なネストになるかもしれないので適宜インデックスと文字列バッファの初期化の位置を工夫してください。