あかぴのChangeLog by rchalow

9時起き。でも寝た気が足りない。
(仕事)小牛田
旭小屋 15時ごろ
広渕セブン15:40
FRL --17ごろ
前谷地便局 振り込み 17:45
気仙沼 19時半ごろ

くもり

労働 小牛田 8800
食費 ジュース 100
外食 塩とんこつ 660
食費 ファミマ野菜ジュース 158
通信 NTT11 5197
通信 nif+ic 2362

ありがとさんです＞kou

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

def usage
  STDERR.print <<EOF
usage: #{$0} [-m] [files...]
  m: monthly
EOF
  exit 1
end

Opt = {
  'monthly' => false    # 月毎に計算
}      # Optはハッシュ

while ARGV[0] =~ /^-/
  $_ = ARGV.shift
  Opt['monthly'] = true if ~/m/
  usage if ~/[^-m]/
end

usage if ARGV.size < 1


# 費目 an item of expendidure
lioe = ['外', '食', '交', '遊', '本', '音', '雑', '衣', '他']  # 配列

date =""
inside_flag = 0
entry = Hash.new
while line = gets
  if /^((\d{4}-\d\d)-\d\d)/ =~ line then  # 日付をキープ
    if Opt['monthly'] == true then
    date = $2      # = year-month
    else
    date = $1
    date = date.tr("-",".")
    end
  elsif /買物ログ.*:/ =~ line then  # (オリジナルcl2moneycsv.plと条件の違いあり)家計簿データ記述ブロックの始まり
    inside_flag = 1
  elsif inside_flag == 1
    if /^\s*$/ =~ line and inside_flag == 1 then
      inside_flag = 0
    elsif (/^\t(.+?)(\s|\xa1\xa1).*(\s|\xa1\xa1)(\d+)$/) =~ line then
      entry[date] ||= Hash.new(0)
      entry[date][$1] += $4.to_i
    end
  end
end

print " " * 10, ",  ", lioe.join(',  '), "\n"

entry.keys.sort.each do |date|
  print "#{date},"
  puts lioe.collect {|item| "%4d" % entry[date][item]}.join(",")
end

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

def usage
  STDERR.print <<EOF
usage: #{$0} [-m] [files...]
  m: monthly
EOF
  exit 1
end

Opt = {
  'monthly' => false    # 月毎に計算
}      # Optはハッシュ

while ARGV[0] =~ /^-/
  $_ = ARGV.shift
  Opt['monthly'] = true if ~/m/
  usage if ~/[^-m]/
end

usage if ARGV.size < 1


# 費目 an item of expendidure
#lioe = ['外', '食', '交', '遊', '本', '音', '雑', '衣', '他']  # 配列
lioe = []

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

          lioe.push(yo[0])
          lioe.uniq!

      entry[date] ||= Hash.new(0)
      entry[date][$1] += $4.to_i
    end
  end
end

print " " * 10, ",  ", lioe.join(',  '), "\n"

entry.keys.sort.each do |date|
  print "#{date},"
  puts lioe.collect {|item| "%4d" % entry[date][item]}.join(",")
end

・カミヤが郵便局員と会うための合コンもどき
・タナカとレイコちゃんとハマダさんと４人でスキーに行った
・ミドリさんとイトコと３人でスキーに行った
・ハマダさんとはたけやまが同じアパートに住んでた
・ミドリさんとレイ富永と青翔寮のクリスマスパーティーに行った

向寒の候、皆様には益々ご健勝のことと存じ上げます。
 さて、来年は同級生男性が四十二歳の大厄を迎える年にあたり、
厄払い並びに年祝いの会開催することと致しました。
つきましては、新年早々ご多忙のこととは存じますが、万障繰り
合わせのうえ出席くださいますようご案内申し上げます。

１.期日 平成１９年１月２日(火)
    厄払祈願祭
      場所 平八幡神社
      時間 午前１０時３０分 (集合:午前１０時)
    年祝いの会
      場所 アーバン
      時間 午後１時
    ２次会
      場所 あおば (田中前)
２.会費
    出席の方
      厄払い、年祝い、アルバム代 １８,０００円
      ２次会まで参加(＋３,０００円)２１,０００円
    欠席の方
      男女共、厄払い協力金として ２,０００円
３.振込み先
    郵便局 ぱるる
      記号ー番号 １８＊＊＊ー＊＊＊＊＊＊＊＊
      名義 新城中３５回卒業生同級会

ご面倒でも準備の都合上、１２月１２日まで返信、及び会費の
お振込みをお願い致します。

   幹事代表 ＊＊ ＊＊＊
             ＊＊ ＊＊
<<