Jump to content
kartune

Ini Subsections?

By kartune, in AutoIt General Help and Support

Recommended Posts

kartune    0

kartune
Posted

Hi, i would like to know if there is a possible way to use subsections for ini files?

For example, my ini file would look something like this:

 

Clientname.ini

[Info]

Country=USA

Type=Distributor

 

[Costs]

[[JAN]] <----- subsection

cost1=----

cost2=----

[[FEB]]

cost1=----

cost2=----

 

[Sales]

[[JAN]] <----- subsection

sale1=----

sale2=----

[[FEB]]

sale1=----

sale2=----

 

[Profits]

[[JAN]] <----- subsection

prof1=----

prof2=----

[[FEB]]

prof1=----

prof2=----

 

The sales would be inputed everyday by the script, and then whenever viewed, i would be using an array to view every sale/cost/profit under the subsection

 

 

Thanks for your time!

Share this post

Link to post
Share on other sites

Subz    296

Subz
Posted

In short no, however to get around this I would use something like below:

You can then use a function to create different reports based upon month or costs, profits, sales or both, simple example below: 

#include <Array.au3>
#include <String.au3>

$aReportSection = _Report("", "JAN")
_ArrayDisplay($aReportSection)

$aReportSection = _Report("Costs", "FEB")
_ArrayDisplay($aReportSection)

$aReportSection = _Report("Profits", "")
_ArrayDisplay($aReportSection)


Func _Report($_sReport = "", $_sMonth = "")
    Local $sClient = @ScriptDir & "\Client.ini"
    Local $aSections = IniReadSectionNames($sClient)
        If @error Then Exit
    Local $aReportMonth, $aSection, $aResults[1][2]
    For $i = $aSections[0] To 1 Step - 1
        If $_sReport = "" And $_sMonth = "" Then
            _ArrayDelete($aSections, _ArraySearch($aSections, "Info"))
            ExitLoop
        EndIf
        $aReportMonth = StringSplit($aSections[$i], ":")
        ;~ Doesn't include seperator ":", so delete section name from array and continueloop
        If $aReportMonth[0] <= 1 Then
            _ArrayDelete($aSections, $i)
            ContinueLoop
        EndIf
        If $_sReport = "" Then
            If $_sMonth = $aReportMonth[2] Then ContinueLoop
            _ArrayDelete($aSections, $i)
        ElseIf $_sReport <> $aReportMonth[1] Then
            _ArrayDelete($aSections, $i)
        ElseIf $_sMonth = "" Then
            If $_sReport = $aReportMonth[1] Then ContinueLoop
            _ArrayDelete($aSections, $i)
        ElseIf $_sMonth <> $aReportMonth[2] Then
            _ArrayDelete($aSections, $i)
        EndIf
    Next
    $aSections[0] = UBound($aSections) - 1
    For $i = 1 To $aSections[0]
        $aSection = IniReadSection($sClient, $aSections[$i])
        $aReportMonth = StringSplit($aSections[$i], ":")
        For $j = 1 To $aSection[0][0]
            $aSection[$j][0] = _StringProper($aReportMonth[2]) & " - " & $aSection[$j][0]
        Next
        _ArrayConcatenate($aResults, $aSection, 1)
    Next
    $aResults[0][0] = $_sReport = "" ? "All Reports" : $_sReport & " Report"
    $aResults[0][1] = $_sMonth = "" ? "" : _Month($_sMonth)
    Return $aResults
EndFunc

Func _Month($_sMonth)
    Switch $_sMonth
        Case "JAN"
            Return "January"
        Case "FEB"
            Return "February"
        Case "MAR"
            Return "March"
        Case "APR"
            Return "April"
        Case "MAY"
            Return "May"
        Case "JUN"
            Return "June"
        Case "JUL"
            Return "July"
        Case "AUG"
            Return "August"
        Case "SEP"
            Return "September"
        Case "OCT"
            Return "October"
        Case "NOV"
            Return "November"
        Case "DEC"
            Return "December"
        Case Else
            Return ""
    EndSwitch
EndFunc
[Info]
Country=USA
Type=Distributor

[Costs:JAN]
cost1=----
cost2=----

[Costs:FEB]
cost1=----
cost2=----

[Sales:JAN]
sale1=----
sale2=----

[Sales:FEB]
sale1=----
sale2=----

[Profits:JAN]
prof1=----
prof2=----

[Profits:FEB]
prof1=----
prof2=----

 

Share this post

Link to post
Share on other sites

kartune    0

kartune
Posted

Wow thanks a lot!  That's some very nice code :)

Share this post

Link to post
Share on other sites

jdelaney    263

jdelaney
Posted (edited)

You can also have logic in your script that looks for a section by reading in a key's value.  where the value matches the sections name.  (just as another way to skin the cat)

 

Edited by jdelaney
IEbyXPATH-Grab IE DOM objects by XPATH IEscriptRecord-Makings of an IE script recorder ExcelFromXML-Create Excel docs without excel installed GetAllWindowControls-Output all control data on a given window.

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go To Topic Listing AutoIt General Help and Support

  • Similar Content

    • ercicttech
      Attempt at improved inireadsection
      By ercicttech
      Hello, all..

      My AutoIT is pretty terrible - but I get by with trawling here
      I came across an issue where i had to parse a large key in a large ini file, and found that I was victim of inireadsection's limit of "Only the first 32767 chars are read for legacy reasons."
       
      I've attempted to put together some terrible code that parses an ini section.
      It's absolutely nowhere near good, but I figured I'd put it here so that folk who know what they're doing can laugh at improve it.
      $Ini = @ScriptDir & "\bigini.ini" Dim $IniArray[0][2] $KeyName = "Person" $R = FileOpen($Ini, 0) $IniStr = FileRead($R) FileClose($R) $Start = StringInStr($iniStr, "[" & $KeyName & "]") If $Start = 0 then Msgbox(16, "Error", "String not found") Exit EndIf $Stop = StringInStr($IniStr, @CRLF & "[", 0, 1, ($Start + 1)) If $Stop = 0 then $Stop = StringLen($IniStr) EndIf $String = StringMid($IniStr, $Start, ($Stop - $Start)) $Split = StringSplit($String, @CRLF, 1) $KeyCount = 0 Dim $IniArray[65535][2] For $Loop = 1 to $Split[0] $Add = "Y" $Str = $Split[$Loop] $EQBreak = StringInStr($Str, "=") Select Case StringMid($Str, 1, 1) = ";" $Add = "N" Case $EQBreak = 0 $Add = "N" Case Else $Add = "Y" EndSelect If $Add = "Y" then $KeyCount = $KeyCount + 1 $Key = StringMid($Str, 1, ($EQBreak - 1)) $Val = StringMid($Str, ($EQBreak + 1)) $IniArray[$KeyCount][0] = $Key $IniArray[$KeyCount][1] = $Val EndIf Next Redim $IniArray[$KeyCount +1][2] ; Add the number of hits to 00 to match inireadsection $IniArray[0][0] = $KeyCount _ArrayDisplay($IniArray) ; Do stuff with the Array like you would inireadsection  
    • RC86
      Refresh GUI after ini write
      By RC86
      Afternoon, I could very well be doing this wrong so feel free to totally advise otherwise - I'm wanting to use a GUI to first display a key from within an INI file, then secondly change the INI file by using a FileSelectFolder command but then I want to see the GUI change to reflect the change I've just made.
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 437, 192, 124) $Input1 = GUICtrlCreateInput(Iniread(@WorkingDir & "\test.ini","Path","FilePath",""), 64, 80, 121, 21) $Button1 = GUICtrlCreateButton("Change", 200, 80, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $selectedFolder = FileSelectFolder("Select Log Path Directory",@WorkingDir,0) If NOT $selectedFolder = "" Then $newLogPath = IniWrite(@WorkingDir & "\test.ini","Path","FilePath",$selectedFolder) EndIf EndSwitch WEnd So 2 part question really: (1) Should I be using GUICtrlCreateInput to display my INI read from within the GUI? (2) How can I refresh the GUI to update that to read the new information I've just written to the GUI?
      Thanks!

    • LWC
      FileRead works on Autorun.inf while Ini functions sometimes don't
      By LWC
      I've made a program that relies on IniReadSectionNames. It reads (~3K) Autorun.inf files in the working folder and creates a GUI based on their contents.
      I made sure to revert to a default GUI upon @error.
      But someone (with Windows XP SP3 32-bit) reported to me he always gets the default menu.
      I sent him a FileRead command instead and it works! So seemingly there's no access problem to AutoRun.inf.
      In the following demo code, I always hit success, but he always ends up with semi-success:
      Local $hIniLocation = "Autorun.inf" Local $aSections = IniReadSectionNames($hIniLocation) If @error Then $aSections = FileRead($hIniLocation) if @error then msgbox(48, "Double error", "Alternative access failed too due to:" & @crlf & @error & @crlf & @extended) else msgbox(0, "Semi-success", "IniReadSectionNames failed, but alternativaly this file contains:" & @crlf & @crlf & $aSections) endif else msgbox(0, "Success", "IniReadSectionNames worked!") endif Why is that? Is there something further to check with him?
      Autorun.inf
    • FrancescoDiMuro
      Set on top a GUI
      By FrancescoDiMuro
      Good morning community!
      I was working on a script which read the content of a .ini file to retrieve the file that has to open, and, based on the value of a second key stored in the .ini file, set the window on top, minimized or maximized...
      I did something like this, but seems to not work properly...
      Could anyone please tell me what I'm doing wrong?
      Thank you  
       
      #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile_x64=prova.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <MsgBoxConstants.au3> #include <AutoItConstants.au3> ;#include <WinAPIEx.au3> #include <Array.au3> Local $sFileConfigurazione = @ScriptDir & "\configurazione_exe.ini" If(FileExists($sFileConfigurazione)) Then Local $aSezioneIni = IniReadSection($sFileConfigurazione, "CONFIGURAZIONE_EXE") If @error Then MsgBox($MB_ICONERROR, "Errore!", "Errore durante l'apertura del file: " & @CRLF & $sFileConfigurazione & @CRLF & "Errore: " & @error) Else ; Lancio dell'applicativo indicato nel file di configurazione Local $iPID = ShellExecute($aSezioneIni[1][1]) Local $hWnd If($iPID <> 0) Then Local $aWinList = WinList() For $i = 1 To $aWinList[0][0] If(WinGetProcess($aWinList[$i][1] = $iPID)) Then $hWnd = $aWinList[$i][1] EndIf Next Switch($aSezioneIni[2][1]) Case $aSezioneIni[2][1] = "MIN" ToolTip("MIN", 0, 0) WinSetState($hWnd, WinGetTitle($hWnd), @SW_MINIMIZE) Case $aSezioneIni[2][1] = "MAX" ToolTip("MAX", 0, 0) WinSetState($hWnd, WinGetTitle($hWnd), @SW_MAXIMIZE) Case $aSezioneIni[2][1] = "TOP" ToolTip("TOP", 0, 0) WinSetOnTop($hWnd, WinGetTitle($hWnd), $WINDOWS_ONTOP) EndSwitch EndIf EndIf EndIf And the .ini file is like this:
       
      [CONFIGURAZIONE_EXE] PercorsoExe=Here goes the path and the .exe to execute ModalitaAperturaExe=Here goes one of the value below /* TOP Shows the windows on top */ /* MIN Shows the window minimized */ /* MAX Shows the window maximized */  
    • ur
      convert 4 section to 3 section version
      By ur
      In the present product I have version in the About section as  4 section one like (10.00.00.2456)
      And the version in other products I have version number like (97.000.2456 , 10.000.2345)
       
      Is there any UDF or function to convert 4 digit format to 3 digit one.?
      I need that for version comparison of different products.
×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

  I accept