group_list = File.readlines('ywsarti').map{|line| line.split(/;/)[25]}
group_list.concat File.readlines('ywsbezber').map{|line| (line.split(/;/)[1] || "").gsub(/\"/,'')}

group_list = group_list.map{|item| item.gsub(/\"/,'')}.uniq.sort
group_list.delete('Bezugsliste')
group_list.delete('')

print '"Bezugsgruppe";"Bezugsliste";"Artikel-Nr";"Berechtigt"', "\n"
group_list.each do |grp|
  print '"Apo";"' + grp + '";"";yes', "\n"
end