#!/usr/koeki/bin/ruby
#coding: euc-jp

require 'kconv'
# dtd_map.obj ¤òÆɤà
f = "dtd_map.obj"
w = "dtd_map.txt"
open(w, "w") do |txt|
  open(f,  :encoding => Encoding::EUC_JP) do |map|
    while line = map.gets
      if /^\s+\"(\S\d+\S+)\"\)\]\)/n =~ line
        trans = $1
        txt.puts eval "\"#{trans}\""
      end
    end
  end
end