Ich habe ein Funktionieren Code wo ich einen teil nur mit einer ini steuern möchte:
Ich möchte den Part zeile 11 -15 nur durch eine ini steuern wie mache ich das:
so würde die ini aussehen:
HWTyp-GUID]
IGEL THINCLIENT 3210 LX, LINUX, 533MHZ,=xxx
HP COMPAQ 2510P/ULTRALIGHT/1,2GHZ/1GB/80GB/12,1"=cccc
FSC ESPRIMO P5625 HE-TOWER ATH.64 X2/2GB/80GB/DVD=iiiiii
LENOVO M58 HE-TOWER/E8400/4GB/160GB/DVD-BRENNER=lllll
FTS ESPRIMO P5731 TOWER/E5500/4GB/250GB/DVD-LW=ppppp
dabei sollte die $aGUID[5][2]
demensprechen angepasst werden wieviele schlüssel ich habe wollte es dynamisch halten.
also falls ich auch mehrer werte habe also wenn bei HWTyp-GUID 10 schlüssel vorhanden sind dann.
sollte es so heissen $aGUID[10][2]
Und natürlich die schlüssel und werte jeweils mit übernehmen eine idee?
Spoiler anzeigen
#RequireAdmin
#include <array.au3>
#include <File.au3>
#include <SQLite.au3>
Global $sIni = @ScriptDir & "\data.ini"
Global $sFile = @ScriptDir & "\test.txt"
If Not FileExists($sIni) Then IniWrite($sIni, "Reports", "Ordner", @ScriptDir & "\reports")
Global $sReports = IniRead($sIni, "Reports", "Ordner",@ScriptDir & "\reports")
If Not FileExists($sReports) Then DirCreate($sReports)
Dim $aResult[1][2]
Dim $aGUID[5][2] = [["IGEL THINCLIENT 3210 LX, LINUX, 533MHZ,", "IGEL cccc,"], _
['HP COMPAQ 2510P/ULTRALIGHT/1,2GHZ/1GB/80GB/12,1"', "iii"], _
["FSC ESPRIMO P5625 HE-TOWER ATH.64 X2/2GB/80GB/DVD", "jjjjjj"], _
["LENOVO M58 HE-TOWER/E8400/4GB/160GB/DVD-BRENNER", "ppppp"], _
["FTS ESPRIMO P5731 TOWER/E5500/4GB/250GB/DVD-LW", "mmmmm"]]
For $i = 2 To _FileCountLines($sFile)
$sLine = FileReadLine($sFile, $i)
;ConsoleWrite($sLine & @CRLF)
If StringInStr($sLine, "P010", 1) And StringInStr($sLine, "Aktiv", 1) Then
$aTmp = StringSplit($sLine, ";", 1)
If IsArray($aTmp) And $aTmp[0] = 30 Then
$iIndex = _ArraySearch($aResult, $aTmp[4], 0, 0, 1, 0, 1, 0)
If $iIndex = -1 Then
_Array2DAdd($aResult, $aTmp[4] & "|1")
ElseIf $iIndex >= 0 Then
$aResult[$iIndex][1] += 1
EndIf
EndIf
EndIf
Next
For $i = 1 To UBound($aResult)-1
$index = _ArraySearch($aGUID, $aResult[$i][0])
;If Not @error Then
;IniWrite($sIni, "HWTyp-GUID", $aResult[$i][0], $aGUID[$index][1])
$tmp = FileOpen($sReports & "\" & $aGUID[$index][1]&'.knz',2)
FileWrite($tmp,$aResult[$i][1])
FileClose($tmp)
Else
MsgBox(0,0,"Keine GUID für " & $aResult[$i][0] & " gefunden")
EndIf
Next
_ArrayDisplay($aResult)
_ArrayDisplay($aResult)