[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

966: 928 2021/03/09(火)05:19 ID:NUN2sKP0(1/2) AA×
>>925


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
966: 928 [sage] 2021/03/09(火) 05:19:08.22 ID:NUN2sKP0 >>925 Ruby で、元のファイルを、CSV へ変換してみた。 データ中に、ダブルクォーテーション・カンマを入れても、正常に動く require 'csv' line_number = 0 # 行番号 # 行末の改行を削除して、1行ずつ処理する。蓄積変数は2次元配列 results = File.foreach( "input.txt", chomp: true ).with_object( [ ] ) do |line, accm| line_number += 1 accm.push [ ] if line_number % 3 == 1 # 3行毎に、空配列を追加する ary = line.split( ':', 2 ) # 左からコロンで、2つに分割する last = accm.last # 最後の要素 (配列) last.push( ary[ 1 ] ) # コロンの右側を、配列に追加する end results.unshift %w(start end value) # 先頭に、ヘッダー行を追加する # p results csv_str = results.map( &:to_csv ).join # 2次元配列を、CSV 文字列に変換する print csv_str 出力 start,end,value a_1,"b""1",1 "a,2",b_2,2.34 http://mevius.5ch.net/test/read.cgi/tech/1548981877/966
で元のファイルを へ変換してみた データ中にダブルクォーテーションカンマを入れても正常に動く 行番号 行末の改行を削除して行ずつ処理する蓄積変数は次元配列 行毎に空配列を追加する 左からコロンでつに分割する 最後の要素 配列 コロンの右側を配列に追加する 先頭にヘッダー行を追加する 次元配列を 文字列に変換する 出力

---

上下前次1-新書関写板覧索設栞歴

---

あと 36 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.063s