Code:
on *:text:!onair:#:{
  set %fajl <filename>
  set %szam 1
  if ($hget(onair)) hfree onair
  hmake onair 5
  while (%szam <= $lines(%fajl)) {
    set %sor $read(%fajl,%szam)
    if (<Announcement Display="*"/> iswm %sor) hadd onair szoveg $gettok(%sor,2,34)
    if (<Artist name="*"> iswm %sor) hadd onair eloado $gettok(%sor,2,34)
    if (<Song title="*"> iswm %sor) hadd onair cim $gettok(%sor,2,34)
    if (<Event status="*" startTime="*" eventType="*"> iswm %sor) hadd onair ido $gettok(%sor,4,34)
    if (<Expire Time="*"/> iswm %sor) hadd onair lejarat $gettok(%sor,2,34)
    inc %szam
  }
  unset %fajl
  unset %szam
  unset %sor
  msg $chan <text>
  hfree onair
}


In <text>, use:
$hget(onair,szoveg) for <Announcement Display="..."/>
$hget(onair,eloado) for <Artist name="...">
$hget(onair,cim) for <Song title="...">
$hget(onair,ido) for <Event status="..." startTime="..." eventType="...">
$hget(onair,lejarat) for <Expire Time="*"/>

smile