kixtart - Variable in Variable

Variable;EmpirumServer;Server1;
Variable;DefServer;Server2/Vol1:;


der Teil des KixScriptes, der das ganze verarbeitet:


Function VariableSettings()
	$VariableSettingsButton.Value=1
	Progress( "Setze variablen")  
		
	If Exist($FileLocation + "\variables\variables.ini")  
	DBGMessage ("Info","Setze Variablen:")  
	
		If Open(3,$FileLocation + "\variables\variables.ini") = 0  
 		 $VZeile = ReadLine(3)
		 WHILE @ERROR = 0
		  If Instr ($VZeile,"Variable")  
   			$VVariable = Split($VZeile, ";") [1]  
   			$VWert= Split($VZeile, ";") [2]  
   		  ENDIF
   	Gosub variablesSet
        $VZeile = ReadLine(3)
 LOOP
 CLOSE(3)
 ENDIF


goto EndeVariablesSet


:variablesSet
;DBGMessage ("Info","Setze variable $VVariable = $VWert")   
writevalue("HKEY_CURRENT_USER\Volatile Environment","$VVariable","$VWert","REG_SZ")  

;  SET "$VVariable=$VWert"  
	SELECT
	CASE @ERROR = 0
          DBGMessage ("Info","Variable $VVariable = $VWert ")  
	CASE @ERROR = 2
	  DBGMessage ("Fehler","Variable $VVariable fuer $VWert konnte nicht gesetzt werden")  
	  $Errorflag=TRUE 
	CASE 1
	DBGMessage ("Fehler","Unbekannter Fehler [@Error] beim Setzen der Variable von $VVariable zu $VWert")  
	$Errorflag=TRUE
	ENDSELECT	
Return

:EndeVariablesSet

$VariableSettingsButton.Value=0
$VariableSettingsButton.Enabled =0	
sleep 8
EndFunction