code:

---

Function ImportRegFile($c)
DIM $,$y,$z,$k,$n,$a,$i,$b,$t
  IF UBOUND($c)<0
   $c=SPLIT($c)
  ENDIF
  FOR EACH $y in $c
  OPEN(9,$y)
  Do
   $=READLINE(9)
   $y=LEFT($,1)
   $i=INSTR($,'=')
     If $y='['
      $k=SUBSTR($,2,LEN($)-2)
      ADDKEY($k)
      If LEFT($k,1)='-'
       DELKEY(SUBSTR($k,2))
      Endif
     Endif
       IF $i
        $a=SPLIT($,'=')[1]
        $n=SUBSTR($,2,$i-3)
        While RIGHT($a,1)=\
         $a=LEFT($a,LEN($a)-1)+TRIM(READLINE(9))
        Loop
      $y=SPLIT($a,':')
       SELECT
        CASE $y[0]=dword
         $=VAL('&'+SUBSTR($a,7))
         $t=DWORD
        CASE UBOUND($y)
         $z=SUBSTR($y[0],5,1)
         $=''
         For $i= 1 to LEN($y[1]) STEP 3
          $b=SUBSTR($y[1],$i,2)
          $t=BINARY
          If $Z
           $t=EXPAND_SZ
           $b=CHR(VAL('&'+$b))
          Endif
          $=$+$b
         Next
         IF 7=$z
          $t=MULTI_SZ
          $=$+'|'
         Endif
        CASE 1
         $=SUBSTR($a,2,LEN($a)-2)
         $t=SZ
       ENDSELECT
         WRITEVALUE($k,$n,$,'REG_'+$t)
        IF $a='-'
         Delvalue($k,$n)
        Endif
     Endif
  Until @error
  Close(9)
  Next
EndFunction

---

I'm not sure I used every trick in the book, but I used most of them. Feel free to verify the script and score.

There are some shortcomings in my script in that it doesn't work for every .reg file, only ones similar to the ones Jens created....

The next stage is to improve this script (I would suggest we add error-correction and support various exceptions that would cause the script to bomb with some .reg files in addition to) by making it even shorter.

Brian

{edit}
Also, please post your versions of the script, as well! I won't be here for a bit, cuz I'm going out to a movie.. Cheers!

[ 21 July 2002, 00:14: Message edited by: BrianTX ]

code:

---

Function ImportRegfile($p)
  Dim $,$a[0],$f,$n,$r,$t,$v,$x
  If VarType($p)=8
    $a[0]=$p
  Else
    $a=$p
  EndIf
  For Each $f In $a
    Open(1,$f)
    Do
      Do
        $=ReadLine(1)
        $p=Left($,1)='['
      Until @Error+$p
      If $p
        $t=SubStr($,2,Len($)-2)
        If Left($t,1)='-'
          DelKey(SubStr($t,2))
        Else
          AddKey($t)
          Do
            $=''
            Do
              $=Left($,Len($)-1)+Trim(ReadLine(1))
            Until Right($,1)<>'\'
            If $
              $x=Split($,'=')
              $n=Split($x[0]+'"','"')[1]
              $x=$x[1]
              If Left($x,1)='-'
                DelValue($t,$n)
              Else
                $r=Split(SubStr($x,InStr($x,':')+1),',')
                $v=''
                For $=0 To UBound($r)-1
                  $p=Val('&'+$r[$])
                  $v=$v+Chr($p+($p=0)*124)
                Next
                $=SubStr($x,5,1)
                Select
                  Case Left($x,1)='"'
                    $v=Split($x,'"')[1]
                    $x='SZ'
                  Case $='d'
                    $v=Val('&'+$r[0])
                    $x='DWORD'
                  Case $='2'
                    $x='EXPAND_SZ'
                  Case $='7'
                    $x='MULTI_SZ'
                  Case 1
                    $v=Join($r,'')
                    $x='BINARY'
                EndSelect
                WriteValue($t,$n,$v,'REG_'+$x)
              EndIf
            EndIf
          Until $=''
        EndIf
      EndIf
    Until  @Error
    Close(1)
  Next
EndFunction

---

code:

---

function ImportRegfile($Z)
   Dim $, $A[4], $B, $C, $o, $D, $E, $F, $G, $i, $K, $N, $T
   $o = createobject("VBscript.RegExp")
   $o.Global = 1

   if ubound($Z)<0
      $Z=$Z,""
   endif
   for each $C in $Z

      ;ReadFile Kix
      $=open(1,$C)
      while @error=0
         $B=ReadLine(1)
         if $B=""
            $E=$E+"`"
         else
            $E=$E+$B+"`"
         endif
      loop
      $=close(1)

      $F=join(split($E,"\`  "),"")
      $o.Pattern = '`\[(\-?)(.*?)\](?=`)|`"?([\w\- ]+)?@@?"?=("|.{3,6}\:)?(.*?)"?(?=`)'
      for each $B in $o.Execute($F)
         for $i=0 to 4
          $A[$i]=$B.SubMatches($i)
         next

         if $A[1]
            $K=$A[1]
            if $A[0]
               $C=DelKey($K)
            else
               $C=AddKey($K)
            endif
         else
            ;Add Values
            $N=$A[2]
            $D=$A[4]
            $T = 'dword:','hex:','"','hex(2):','','hex(7):'
            for $i=0 to 5
               if $A[3]=$T[$i]
                  $=$i
               endif
            next

            if $=0
               $D=val("&"+$D)
            endif

            for each $C in split($D,",")
               if $=3 | $C>"00" & $=5
                  $B=execute('$C=Chr(&'+$C+')')
               endif
               $G=""+$G+$C
            next
            $D=$G
            $G=""
            if $=5
                  $D=join(split($D,"0000"),"|")
            endif

            ;Write Value
            if $D="-"
               $C=DelValue($K, $N)
            else
               if not $D
                  $D=""
               endif
               $T = "DWORD","BINARY","SZ","EXPAND_SZ","","MULTI_SZ"
               $C=WriteValue($K, $N, $D, "REG_"+$T[$])
            endif
         endif
      next
   next
   $ImportRegfile=0
   exit 0
endfunction
  

---

code:

---

function ImportRegfile($)
if ubound($)<1 $=split($) 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
$=split($,"=") $v=substr($[0],2,len($[0])-2) $=$[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

---

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

---

code:

---

function ImportRegfile($)
   Dim $A[4], $B, $C, $D, $G, $i, $K, $N, $o
   $o = createobject("VBscript.RegExp")
   $o.Global = 1

   if ubound($)<0
      $=$,""
   endif
   for each $B in $
      $B=open(1,$B)
      do
         $C=$C+ReadLine(1)+"`"
      until @error
      $B=close(1)
   next

   $C=join(split($C,"\`  "),"")

   $o.Pattern = '`\[(\-?)(.*?)\](?=`)|`"?([\w\- ]+)?@@?"?=("|.{3,6}\:)?(.*?)"?(?=`)'
   for each $B in $o.Execute($C)
      for $i=0 to 4
       $A[$i]=$B.SubMatches($i)
      next

      if $A[1]
         $K=$A[1]
         if $A[0]
            $C=DelKey($K)
         else
            $C=AddKey($K)
         endif
      else
         ;Add Values
         $N=$A[2]
         $D=$A[4]
         for $i=0 to 5
            if $A[3]=split('dword: hex: " hex(2):  hex(7):')[$i]
               $=$i
            endif
         next
         if $=0
            $D=val("&"+$D)
         endif
         for each $C in split($D,",")
            if $=3 | $C>"00" & $=5
               $B=execute('$C=Chr(&'+$C+')')
            endif
            $G=""+$G+$C
         next
         $D=$G
         $G=""
         if $=5
               $D=join(split($D,'0000'),"|")
         endif

         ;Write Value
         if $D="-"
            $C=DelValue($K, $N)
         else
            $C=WriteValue($K, $N, $D, "REG_"+split('DWORD BINARY SZ EXPAND_SZ  MULTI_SZ')[$])
         endif
      endif
   next
   $ImportRegfile=0
   exit 0
endfunction

---

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" $s=$s+"|" endif
endif
if '-'=$s delvalue($k,$v) else writevalue($k,$v,$s,"reg_"+$m) endif
endif
$=readline(1)
until @error
close(1)
next
endfunction

---

quote:

---

C:\KiX2001.401\kixgolf>KIX32.EXE golf.kix
00000000000000-10000000000000000000000-10
The UDF ImportRegFile passed the validation test.
Please do not forget to post your KiXtart Golf score.

---

and it still does not produce the trash in reg

cheers,