あかぴのChangeLogメモ / 2004-01

■ (プ)で飲み会 [宴会]

最終更新：2007/11/26

・日時：１１／２４(土) １８時に乾杯（17時から練習開始）
・場所：(プ)
・会費：５,０００円

＜参加予定者＞
１.Mutsuta
２.Atsumi
３.Takayama
４.Usui
５.Ouchi
６.akapy
７.Kiyoshi.S：少し遅れる
８.Hiroshi
９.Hirayama
１０.Kouji：少し遅れる
１１.Nishikawa：11/22は吹雪でようこに飲みに行けなかったので(笑)

＜後日、連絡をくれる人＞
１２.Nigou
１３.Odajima

＜欠席＞
Hoshi
Kurosawa

とりあえず以上。

あとでＴＯＭさんにメールしよう。

■ てすとsrc有り [chalow]

#!/usr/bin/env ruby
$KCODE="EUC"

if ARGV[0] == nil
  STDERR.puts "引数が足りません"
  STDERR.puts "例：$ ./cl2moneycsv-kamoku.rb ~/trunk/ChangeLog"
  exit 0
end

inside_flag = 0
kamo = []
k = 0

while line = gets
    if /^((\d{4}-\d\d)-\d\d)/ =~ line then  # 日付をキープ
    date = $1		# = year-month-day
    elsif /買#物ログ.*:/ =~ line then	# 家計簿データ記述ブロックの始まり
inside_flag = 1
tag = $&
    elsif inside_flag == 1 then   # ブロック内
if /^\s*$/ =~ line and inside_flag == 1 then  # ブロックの終わり
    inside_flag = 0
else
  /^\t(.+?)(\s|\xa1\xa1).*(\s|\xa1\xa1)(\d+)$/ =~ line
yo = line.split(nil)
  kamoku = yo[0]
  naiyou = yo[1]
  kingaku = yo[2]
  sonota = yo[3]

  kamo.push(yo[0])
  kamo.uniq!
  p kamo

       end
    end
end

■ てすとsrc無し [chalow]

#!/usr/bin/env ruby
$KCODE="EUC"

if ARGV[0] == nil
  STDERR.puts "引数が足りません"
  STDERR.puts "例：$ ./cl2moneycsv-kamoku.rb ~/trunk/ChangeLog"
  exit 0
end

inside_flag = 0
kamo = []
k = 0

while line = gets
    if /^((\d{4}-\d\d)-\d\d)/ =~ line then # 日付をキープ
    date = $1 # = year-month-day
    elsif /買#物ログ.*:/ =~ line then # 家計簿データ記述ブロックの始まり
inside_flag = 1
tag = $&
    elsif inside_flag == 1 then # ブロック内
if /^\s*$/ =~ line and inside_flag == 1 then # ブロックの終わり
    inside_flag = 0
else
  /^\t(.+?)(\s|\xa1\xa1).*(\s|\xa1\xa1)(\d+)$/ =~ line
yo = line.split(nil)
  kamoku = yo[0]
  naiyou = yo[1]
  kingaku = yo[2]
  sonota = yo[3]

  kamo.push(yo[0])
  kamo.uniq!
  p kamo

       end
    end
end