code:

---

function ImportRegfile($)
if ubound($)<1 $=$,"" endif
for each $ in $
dim $k,$v,$m,$d,$s
$=open(1,$)
do
if "["=left($,1) $=substr($,2,len($)-2) if "-"=left($,1) $=delkey(substr($,2)) else $k=$ $=addkey($) endif endif
if $k&$ while \=right($,1) $=left($,len($)-1)+trim(readline(1)) loop
$v=substr($,2,instr($,"=")-3) $=split($,"=")[1]
if '"'=left($,1) $m="SZ" $s=substr($,2,len($)-2) else
$s=""
$m=instr($,":") $d=substr($,$m-2,1)
for each $ in split(substr($,$m+1),",")
$m=val("&"+$)
if $d="r" $=$m $m="DWORD" endif
if $d="e" $m="BINARY" endif
if $d=2|$d=7 $=chr($m) $m="EXPAND_SZ" endif
$s=$s+$
next
if $d=7 $m="MULTI_SZ" for each $ in split($s,00) $s=$+"|" next endif
endif
if '-'=$s $=delvalue($k,$v) else $=writevalue($k,$v,$s,"reg_"+$m) endif
endif
$=readline(1)
until @error
$=close(1)
next
endfunction

---