Beiträge von Moombas

Opt('MustDeclareVars', 1)
#include <Array.au3>
Global $sIniDatei = @ScriptFullPath
Global $aErgebnis = Ini2Array($sIniDatei, True, True) ; sort sections and keys
$aErgebnis[0][0] = "Client"
Local $aRowLatest = _ArrayFindAll($aErgebnis, "Latest-->") ; row for latest version
For $i = 1 To UBound($aErgebnis, $UBOUND_COLUMNS) - 1
    $aErgebnis[$aRowLatest[0]][$i] = _ArrayMax($aErgebnis, 0, 1, $aRowLatest[0], $i)
Next
_ArrayDisplay($aErgebnis, "Browser- und WebDriver-Versionen", "1:", $ARRAYDISPLAY_NOROW + $ARRAYDISPLAY_COLALIGNCENTER, Default, _ArrayToString($aErgebnis, "|", 0, 0))

Func Ini2Array($sIni, $bSortSections = False, $bSortKeys = False, $bTranspose = False, $sEmptyField = "---") ;Habe auch mal den "Füller" für leere Felder Optional gemacht, nicht jeder mag das dort etwas drin steht obwohl dort nix drin steht^^
Local $sSection
Local $aSectionNames = IniReadSectionNames($sIni)
;~     If @error Then Return SetError(@error, 0, 0); Aus meiner Sicht greift das nicht, da du in deiner Funktion keinen Seterror nutzt und somit überflüssig
Local $aKeys = IniGetAllKeys($sIni)
Local $aResult[$aSectionNames[0] + 1][$aKeys[0] + 1] ;Ubound unnötig, da bei allen Arrays die Anzahl mit übergeben werden

    ; Das sortieren ist kritisch, wenn ein Schlüssel Zahlen enthält passt das ganz so nicht mehr, daher geändert.
    If $bSortSections Then _ArraySort($aSectionNames, Default, 1)
    If $bSortKeys Then _ArraySort($aKeys, Default, 1)

    For $I = 1 To $aKeys[0]
        $aResult[0][$I] = $aKeys[$I]
    Next

    For $I = 1 To $aSectionNames[0]
        $sSection = $aSectionNames[$I]
        $aResult[$I][0] = $sSection
        For $J = 1 To $aKeys[0]
            $aResult[$I][$J] = IniRead($sIni, $sSection, $aKeys[$J], $sEmptyField)
        Next
    Next
    If $bTranspose Then _ArrayTranspose($aResult)
    Return $aResult
Endfunc

Func IniGetAllKeys($sIni)
    Local $sData = "|"
    Local $aSectionNames = IniReadSectionNames($sIni)
    If @error Then Return SetError(@error, 0, 0)

    For $i = 1 To $aSectionNames[0]
        Local $aInhalt = IniReadSection($sIni, $aSectionNames[$i])
        If @error = 0 Then
            For $j = 1 To $aInhalt[0][0]
                If Not StringInStr($sData, "|" & $aInhalt[$j][0] & "|") Then $sData &= $aInhalt[$j][0] & "|"
            Next
        EndIf
    Next
    If StringRight($sData, 1) = "|" Then $sData = StringTrimRight($sData, 1)
    Local $aKeys[0]
    _ArrayAdd($aKeys, $sData)
    $aKeys[0] = Ubound($aKeys) - 1 ;Lieber direkt die Anzahl mit übergeben, da hier so oder so Zeile 0 leer ist
    Return $aKeys
EndFunc

#Region eingebettete INI
#cs
[Latest-->]
[BLP1-WX]
EdgeVersion=105.0.1293.63
FirefoxVersion=103.0.3.8255
ChromeVersion=105.0.5112.102
OfficeVersion=16.0.10389.20033
[BLP3-WX]
ChromeVersion=104.0.5112.102
EdgeVersion=104.0.1293.63
FirefoxVersion=103.0.2.8255
OfficeVersion=16.0.10389.20033
[BLP2-WX]
EdgeVersion=104.0.1293.63
ChromeVersion=104.0.5112.102
FirefoxVersion=103.0.2.8255
OfficeVersion=16.0.10389.20033
[BLP4-WX]
ChromeVersion=104.0.5112.102
EdgeVersion=105.0.1293.63
FirefoxVersion=104.0.2.8255
OfficeVersion=16.0.10389.20033
[BLP5-WX]
ChromeVersion=104.0.5112.102
EdgeVersion=104.0.1293.63
FirefoxVersion=103.0.2.8255
OfficeVersion=16.0.10389.20033
[BLP6-WX]
ChromeVersion=104.0.5112.102
EdgeVersion=104.0.1293.63
FirefoxVersion=103.0.2.8255
OfficeVersion=16.0.10389.20033
[WebDriver]
ChromeVersion=104.0.5112.79
EdgeVersion=104.0.1293.63
FirefoxVersion=0.31.1
#ce
#EndRegion eingebettete INI

Opt('MustDeclareVars', 1)
#Region    ;************ Includes ************
#include <Array.au3>
#EndRegion ;************ Includes ************

Global $aArray
Global Const $sDatei = @scriptdir & "/settings.ini"

$aArray = _FileReadIniToArray($sDatei, False)
_ArrayDisplay($aArray)

Func _FileReadIniToArray($File, $Transpose = False)
Local $aInhalt, $sInsert, $Search
Local $aErgebnis[1] = ['0']
Local Const $aSektions = IniReadSectionNames($File)

    For $Section = 1 To $aSektions[0] ;braucht kein Ubound, da dies im Array steht
        if UBound($aErgebnis, $UBOUND_COLUMNS) = 0 then
            _ArrayColInsert($aErgebnis, 1)
        Else
            _ArrayColInsert($aErgebnis, UBound($aErgebnis, $UBOUND_COLUMNS))
        EndIf
        $aErgebnis[0][$Section] = $aSektions[$Section]

        $aInhalt = IniReadSection($File, $aSektions[$Section])

        For $Row = 1 to $aInhalt[0][0]
            For $Column = 1 to $Section
                $sInsert &= '|'
            Next
            $Search = _ArraySearch($aErgebnis, $aInhalt[$Row][0], Default, Default, Default, Default, Default, 0, Default)
            if $Search = -1 then
                _ArrayAdd($aErgebnis, $aInhalt[$Row][0] & $sInsert & $aInhalt[$Row][1])
            Else
                $aErgebnis[$Search][$Section] = $aInhalt[$Row][1]
            EndIf
            $sInsert = ''
        Next
    ;~     _ArrayAdd($aErgebnis, $aSektions[$Section] & "|" & $aInhalt[1][1] & "|" & $aInhalt[2][1] & "|" & $aInhalt[3][1] & "|" & $aInhalt[4][1])
    Next
    $aErgebnis[0][0] = UBound($aErgebnis, $UBOUND_ROWS) - 1

    if $Transpose Then _ArrayTranspose($aErgebnis)
    Return $aErgebnis
EndFunc

Func SendFWRequest($Target, $RequestType, $Request, $OptionalData = $WINHTTP_NO_REQUEST_DATA)
Local $sOut, $Url, $oHTTP, $Response
Local Const $HTTPREQUEST_PROXYSETTING_DEFAULT   = 0
Local Const $HTTPREQUEST_PROXYSETTING_PRECONFIG = 0
Local Const $HTTPREQUEST_PROXYSETTING_DIRECT    = 1
Local Const $HTTPREQUEST_PROXYSETTING_PROXY     = 2

    $Url = "https://" & $Target & $Request

    $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open($RequestType, $Url, False)
    $oHTTP.Option(4) = 13056        

    $oHTTP.SetRequestHeader('accept', 'application/json')
    $oHTTP.SetRequestHeader('Authorization', 'Basic ' & base64($sUserName & ':' & $sPassword & ':' & somethingmore, True, True))
    $oHTTP.SetRequestHeader('Content-Type', 'application/json')

    $oHTTP.Send($OptionalData)
    $Response = $oHTTP.Status
    $sOut = $oHTTP.ResponseText
    ;...
EndFunc