Jump to content
Sign in to follow this  
zvvyt

IniReadSectionNames not returning an array

Recommended Posts

zvvyt

Hello once again!

First of all I must say I'm not sure if I posted this in the correct forum, as this contains a GUI and such, but the problem ain't relevant with the GUI.

I've encountered a little problem with the IniReadSectionNames-function.

I'm making a script w/ a GUI which helps you create a ListView.

At the end you'll be able to save the information in an .ini-file which will be read at the next startup of the script.

What I'm trying to achieve is that the script will read the .ini and check for previously saved functions, and compare them with the functions listed in the ListView.

If a function is listed in the .ini, but not in the ListView the section containing that function will be deleted. If the function is listed in both the .ini and in the ListView it will leave the section be.

When it's done going through the prevously saved functions it will parse through comparing the new functions with the old ones and write the new ones into new sections.

The problem is with the IniReadSectionNames-function when the .ini doesn't contain any sections to read.

In my world I'd like it to still create an array where $array[0] would be equal to 0 if no sections were found.

I hope I made myself understood with this. Following is the script in its whole.

And if anyone happen to have an improvement of any kind I'd be much grateful!

Best regards,

zvvyt

#Include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <EditConstants.au3>
#Include <String.au3>

Global $Input_name
$Main_window = GUICreate("Folder checker - Settings",400,300,-1,-1)
$list = GUICtrlCreateListView("Name |Function |Folder(s) to check |Files |Date    ",20,100,360,150)
$Button_new = GUICtrlCreateButton("New",25,260,80,30)
$Button_delete = GUICtrlCreateButton("Delete",115,260,80,30)
$Button_info = GUICtrlCreateButton("Info",205,260,80,30)
$Button_save = GUICtrlCreateButton("Save",295,260,80,30)
$Interval_input = GUICtrlCreateInput("0",285,30,40,22)
GUICtrlSetLimit(-1,4,1)
GUICtrlCreateCombo("ms",340,30,40,30)
GUICtrlSetData(-1,"s|min|h")

GUISetState(@SW_SHOW)

while 1
    $msg = GUIGetMsg()
    switch $msg
        case $GUI_EVENT_CLOSE
            Exit
        case $Button_new
            call("New")
            ConsoleWrite("New function ended"&@crlf)
        case $Button_delete
            call("Delete")
        Case $Button_info
            call("Info")
        case $Button_save
            Call("Save")
    EndSwitch
    if _GUICtrlListView_GetSelectedCount($list) = 0 and GUICtrlGetState($Button_delete) = 80 then
        GUICtrlSetState($Button_delete,$gui_disable)
        GUICtrlSetState($Button_info,$gui_disable)
    EndIf
    if _GUICtrlListView_GetSelectedCount($list) > 0 and GUICtrlGetState($Button_delete) = 144 then
        GUICtrlSetState($Button_delete,$gui_enable)
        GUICtrlSetState($Button_info,$gui_enable)
    EndIf
WEnd
#region "New" part
Func New()
    #region Function selection part
    $Input_name = InputBox("Folder checker - New","Enter a name for the new function"&@crlf&"NOTE! Duplicate or blank names are not allowed","","","","",Default,Default,"",$Main_window)
    if @error = 1 then
        ConsoleWrite("Cancel@Name check"&@crlf)
        Return
    EndIf
    if @error <> 0 then
        ConsoleWrite("ERROR:"&@error&"@Name check")
        Return
    EndIf
    if $Input_name = "" then
        Do
            $Input_name = InputBox("Folder checker - New","Enter a name for the new function"&@crlf&"NOTE! Duplicate or blank names are not allowed","","","","",Default,Default,"",$Main_window)
            if @error = 1 then
                ConsoleWrite("Cancel@Name check"&@crlf)
                Return
            EndIf
            if @error <> 0 then
                ConsoleWrite("ERROR:"&@error&"@Name check")
                Return
            EndIf
        until $Input_name <> ""
    EndIf
    for $1 = 0 to _GUICtrlListView_GetItemCount($list) step +1
        $Name_dublicate_check = _GUICtrlListView_GetItemText($list,$1,0)
        if $Input_name = $Name_dublicate_check Then
            ConsoleWrite("Duplicate names!"&@crlf)
            MsgBox(0,"Folder checker - Error", "Name already in use. Please select a new name")
            $Input_name = ""
            $Name_dublicate_check = ""
            call("New")
            Return
        EndIf
    Next
    ConsoleWrite("Passed namecheck"&@crlf)
    $Select_function = GUICreate("Folder checker - Select a function",200,200,-1,-1,$WS_BORDER,"",$Main_window)
    $Select_function_func1 = GUICtrlCreateRadio("Copy files",30,20,170,30) ;-----------------------------------COPY
    GUICtrlSetTip(-1,"Click the ""?"" for more info")
    $Select_function_func2 = GUICtrlCreateRadio("Move files",30,50,170,30) ;-----------------------------------MOVE
    GUICtrlSetTip(-1,"Click the ""?"" for more info")
    $Select_function_func3 = GUICtrlCreateRadio("Delete files",30,80,170,30) ;---------------------------------DELETE
    GUICtrlSetTip(-1,"Click the ""?"" for more info")
    $Select_function_continue = GUICtrlCreateButton("Continue",15,140,80,30)
    GUICtrlSetState(-1,$gui_disable)
    local $Select_function_continue_disabled = 1
    $Select_function_cancel = GUICtrlCreateButton("Cancel",105,140,80,30)
    GUISetState(@sw_show)
    local $Function_selected = ""
    local $Destinating_folder
    while 1 ;----------------------------------------Select function
        ;if WinActive($Main_window) then WinActivate($Select_function)
        GUISetState(@sw_disable,$Main_window)
        $msg = GUIGetMsg()
        if $Select_function_continue_disabled = 1 and BitXOR(GUICtrlRead($Select_function_func1),GUICtrlRead($Select_function_func2),GUICtrlRead($Select_function_func3)) = $GUI_CHECKED then
            GUICtrlSetState($Select_function_continue,$gui_enable)
            $Select_function_continue_disabled = 0
        EndIf
        switch $msg
            case $Select_function_cancel
                ConsoleWrite("Cancel@Function selection"&@crlf)
                GUISetState(@SW_ENABLE,$Main_window)
                GUIDelete($Select_function)
                WinActivate($Main_window)
                Return
            case $Select_function_continue
                If BitAND(GUICtrlRead($Select_function_func1), $GUI_CHECKED) = $GUI_CHECKED then
                    GUIDelete($Select_function)
                    $Function_selected = "Copy"
                    ;call("NewCopy")
                EndIf
                if BitAND(GUICtrlRead($Select_function_func2), $GUI_CHECKED) = $GUI_CHECKED then
                    GUIDelete($Select_function)
                    $Function_selected = "Move"
                    ;call("NewMove")
                EndIf
                if BitAND(GUICtrlRead($Select_function_func3), $GUI_CHECKED) = $GUI_CHECKED then
                    GUIDelete($Select_function)
                    $Function_selected = "Delete"
                    ;call("NewDelete")
                EndIf
                ;GUISetState(@SW_ENABLE,$Main_window)
                ExitLoop
        EndSwitch
    WEnd
    #endregion End Function selection part
    #region Folder selection part
    ConsoleWrite($Function_selected)
    if $Function_selected = "Delete" then
        $Origin_folder = FileSelectFolder("Select file folder","",1,"",$Main_window)
        if @error = 1 then
            ConsoleWrite("Cancel@Folder selction"&@crlf)
            GUISetState(@SW_ENABLE,$Main_window)
            Return
        EndIf
    Else
        $Origin_folder = FileSelectFolder("Select file origin folder","",1,"",$Main_window)
        if @error = 1 then
            ConsoleWrite("Cancel@Origin folder selction"&@crlf)
            GUISetState(@SW_ENABLE,$Main_window)
            Return
        EndIf
        $Destinating_folder = FileSelectFolder("Select destinating folder","",1,"",$Main_window)
        if @error = 1 then
            ConsoleWrite("Cancel@Destinating folder selction"&@crlf)
            GUISetState(@SW_ENABLE,$Main_window)
            Return
        EndIf
        if $Origin_folder = $Destinating_folder Then
            Do
                MsgBox(0,"Error","Same folder specified. Please chose another folder to copy from/to")
                $Origin_folder = FileSelectFolder("Select file origin folder","",1,"",$Main_window)
            if @error = 1 then
                ConsoleWrite("Cancel@Origin folder selction"&@crlf)
                GUISetState(@SW_ENABLE,$Main_window)
                Return
            EndIf
            $Destinating_folder = FileSelectFolder("Select destinating folder","",1,"",$Main_window)
            if @error = 1 then
                ConsoleWrite("Cancel@Destinating folder selction"&@crlf)
                GUISetState(@SW_ENABLE,$Main_window)
                Return
            EndIf
            until $Origin_folder <> $Destinating_folder
        EndIf
    EndIf
    #endregion End Folder selection part
    #region File selection part

    $Select_files = GUICreate("Folder checker - Select files",200,200,-1,-1,$WS_BORDER,"",$Main_window)
    $All_files = GUICtrlCreateRadio("All files",30,30,170,30)
    $Specific_files = GUICtrlCreateRadio("Specific filetype",30,60,170,30)
    $Filetype_input = GUICtrlCreateInput("",50,100,100,20)
    $Select_files_continue = GUICtrlCreateButton("Continue",15,140,80,30)
    GUICtrlSetState(-1,$gui_disable)
    Local $Select_files_continue_disable = 1
    $Select_files_cancel = GUICtrlCreateButton("Cancel",105,140,80,30)
    GUICtrlSetState($Filetype_input,$gui_disable)
    GUISetState(@sw_show)
    Local $Filetype_input_Dot_checker[4]
    while 1
        $Filetype_input_Space_checker = StringSplit(GUICtrlRead($Filetype_input)," ")
        If $Filetype_input_Space_checker[0] = 2 Then
            $Filetype_input_no_space = StringReplace(GUICtrlRead($Filetype_input)," ","")
            GUICtrlSetData($Filetype_input,$Filetype_input_no_space)
        EndIf
        $Filetype_input_Dot_checker = StringSplit(GUICtrlRead($Filetype_input),".")
        if $Filetype_input_Dot_checker[0] >= 2 Then
            if $Filetype_input_Dot_checker[1] <> "" then
                GUICtrlSetData($Filetype_input,StringReplace(GUICtrlRead($Filetype_input),".","",1))
            EndIf
            if $Filetype_input_Dot_checker[0] = 3 then
                GUICtrlSetData($Filetype_input,_StringReverse(StringReplace(_StringReverse(GUICtrlRead($Filetype_input)),".","",1)))
            EndIf
        EndIf
        GUISetState(@SW_DISABLE,$Main_window)
        if GUICtrlRead($Specific_files) = 1 and GUICtrlRead($Filetype_input) = "" and $Select_files_continue_disable = 0  Then
            GUICtrlSetState($Select_files_continue,$gui_disable)
            $Select_files_continue_disable = 1
        EndIf
        if GUICtrlRead($Specific_files) = 1 and GUICtrlRead($Filetype_input) = "." and $Select_files_continue_disable = 0  Then
            GUICtrlSetState($Select_files_continue,$gui_disable)
            $Select_files_continue_disable = 1
        EndIf
        if GUICtrlRead($All_files) = 1 and $Select_files_continue_disable = 1 Then
            GUICtrlSetState($Select_files_continue,$gui_enable)
            $Select_files_continue_disable = 0
        EndIf
        if GUICtrlRead($Specific_files) = 1 and GUICtrlRead($Filetype_input) <> "" and $Select_files_continue_disable = 1 and GUICtrlRead($Filetype_input) <> "." Then
            GUICtrlSetState($Select_files_continue,$gui_enable)
            $Select_files_continue_disable = 0
        EndIf
        $msg = GUIGetMsg()
        switch $msg
            case $Select_files_cancel
                GUISetState(@SW_ENABLE,$Main_window)
                ConsoleWrite("Cancel@File selection"&@crlf)
                GUIDelete($Select_files)
                Return
            case $Specific_files
                GUICtrlSetState($Filetype_input,$gui_enable)
            case $All_files
                GUICtrlSetState($Filetype_input,$gui_disable)
            case $Select_files_continue
                $Function_date_made_long = @YEAR&@MON&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC
                $Function_date_made = @MDAY&"/"&@MON&" "&@HOUR&":"&@MIN
                if GUICtrlRead($All_files) = $GUI_CHECKED Then
                    if $Function_selected = "Delete" then
                        GUICtrlCreateListViewItem($Input_name&"|"&$Function_selected&"|"&$Origin_folder&"|All|"&$Function_date_made_long,$list)
                    Else
                        GUICtrlCreateListViewItem($Input_name&"|"&$Function_selected&"|"&$Origin_folder&" to "&$Destinating_folder&"|All|"&$Function_date_made_long,$list)
                    EndIf
                    GUIDelete($Select_files)
                    ConsoleWrite("All files"&@crlf)
                EndIf
                if GUICtrlRead($Specific_files) = $GUI_CHECKED and GUICtrlRead($Filetype_input) <> "" then
                    $Filetype_input_Dot_checker = StringSplit(GUICtrlRead($Filetype_input),".")
                    if $Filetype_input_Dot_checker[0] = 1 Then
                        GUICtrlSetData($Filetype_input,"."&GUICtrlRead($Filetype_input))
                    EndIf
                    $Filetype_input = StringLower(GUICtrlRead($Filetype_input))
                    if $Function_selected = "Delete" then
                    GUICtrlCreateListViewItem($Input_name&"|"&$Function_selected&"|"&$Origin_folder&"|"&$Filetype_input&"|"&$Function_date_made_long,$list)
                    Else
                        GUICtrlCreateListViewItem($Input_name&"|"&$Function_selected&"|"&$Origin_folder&" to "&$Destinating_folder&"|"&$Function_date_made_long,$list)
                    EndIf
                    GUIDelete($Select_files)
                    ConsoleWrite("Specific files"&@crlf)
                EndIf
                GUISetState(@SW_ENABLE,$Main_window)
                ExitLoop
        EndSwitch
    WEnd

    #endregion End File selection part
    WinActivate($Main_window)
EndFunc
#endregion

func Delete()
    _GUICtrlListView_DeleteItemsSelected($list)
EndFunc
Func Info()

EndFunc

Func Save() ;-------------------------------------------------------- Trouble starts here! --------------------------------------
    ConsoleWrite("Save initialized"&@CRLF)
    GUICtrlSetState($Button_save,$gui_disable)
    if not FileExists("Settings.ini") Then
        ConsoleWrite("No Settings.ini-file found"&@CRLF)
        IniWrite("Settings.ini","","","")
    Else
        $Save_check_earlier_functions = IniReadSectionNames("Settings.ini")
        if @error then MsgBox(0,"","")
        $Save_check_current_functions = _GUICtrlListView_GetItemCount($list)
        if $Save_check_earlier_functions[0] <> 0 Then
            ConsoleWrite("Earlier functions differ to 0"&@CRLF)
            For $count1 = 1 to $Save_check_earlier_functions[0] step +1
                for $count2 = 1 to $Save_check_current_functions step +1
                    ;ConsoleWrite($Save_check_earlier_functions[$count2]&@CRLF)
                    if  $Save_check_earlier_functions[$count2] = _GUICtrlListView_GetItemText($list,$count1,0) then

                    Else
                        if $count2 = $Save_check_earlier_functions[0] Then IniDelete("Settings.ini",$Save_check_earlier_functions[$count2])
                    EndIf
                Next
            Next
            For $count1 = 1 to $Save_check_current_functions step +1
                for $count2 = 1 to $Save_check_earlier_functions[0] step +1
                    ConsoleWrite(_GUICtrlListView_GetItemText($list,$count2,0)&@CRLF)
                    if _GUICtrlListView_GetItemText($list,$count2,0) = $Save_check_earlier_functions[$count1] Then
                        ExitLoop
                    Else
                        IniWrite("Settings.ini",_GUICtrlListView_GetItemText($list,$count2,0),"Function",_GUICtrlListView_GetItemText($list,$count2,1))
                        IniWrite("Settings.ini",_GUICtrlListView_GetItemText($list,$count2,0),"Folder",_GUICtrlListView_GetItemText($list,$count2,2))
                        IniWrite("Settings.ini",_GUICtrlListView_GetItemText($list,$count2,0),"File",_GUICtrlListView_GetItemText($list,$count2,3))
                        IniWrite("Settings.ini",_GUICtrlListView_GetItemText($list,$count2,0),"Date",_GUICtrlListView_GetItemText($list,$count2,4))
                    EndIf
                Next
            Next
        EndIf
    ;EndIf
    ;ConsoleWrite(_GUICtrlListView_GetItemCount($list)&@CRLF)
    ;ConsoleWrite(_GUICtrlListView_GetItemText($list,0,1)&@CRLF)
    GUICtrlSetState($Button_save,$gui_enable)
    ConsoleWrite("Save finished"&@CRLF)
EndFunc;-------------------------------------------------------- Trouble ends here! --------------------------------------
 

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

I have not looked at the code in detail, but based on this:

In my world I'd like it to still create an array where $array[0] would be equal to 0 if no sections were found

just look for the error return and declare the array in the format you require if it occurs:

#include <Array.au3>

$sIniFile = "Foo.txt" ; Non-existent ini file

Global $aArray = IniReadSectionNames($sIniFile)
; If there were no sections
If @error Then
    ; Declare the array as required
    Global $aArray[1] = [0]
EndIf

; And here it is!
_ArrayDisplay($aArray)
All clear? :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

zvvyt,

I have not looked at the code in detail, but based on this:

just look for the error return and declare the array in the format you require if it occurs:

#include <Array.au3>

$sIniFile = "Foo.txt" ; Non-existent ini file

Global $aArray = IniReadSectionNames($sIniFile)
; If there were no sections
If @error Then
    ; Declare the array as required
    Global $aArray[1] = [0]
EndIf

; And here it is!
_ArrayDisplay($aArray)
All clear? :)

M23

 

I actually can't get what you suggested to work with my script =/

I noticed that I had missed the #include <Array.au3> you used which I've now included. But still no cigar.

I could be just me who need a lesson in working with arrays.

If you could have a look at at least the last part of the script (the area marked "Trouble starts here!" and "Trouble ends here!") I would be much grateful.

And thanks for your fast reply!

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

This seems to work when I run it:

Func Save() 
    ConsoleWrite("Save initialized" & @CRLF)
    GUICtrlSetState($Button_save, $gui_disable)

    $Save_check_earlier_functions = IniReadSectionNames("Settings.ini")
    If @error Then
        Local $Save_check_earlier_functions[1] = ["0"]
    EndIf
    $Save_check_current_functions = _GUICtrlListView_GetItemCount($list)

    ; Are there any saved functions to check?
    If $Save_check_earlier_functions[0] <> 0 Then
        ; Loop through the ini and check if sections are in the ListView
        For $count1 = 1 To $Save_check_earlier_functions[0]
            $iIndex = _GUICtrlListView_FindText($list, $Save_check_earlier_functions[$count1])
            ; If not found then delete
            If $iIndex = -1 Then
                IniDelete("Settings.ini", $Save_check_earlier_functions[$count1])
            EndIf
        Next
    EndIf

    ; Are there any items in the ListView?
    If $Save_check_current_functions > 0 Then
        ; Now loop through ListView and see if any functions need to be added
        For $count2 = 0 To $Save_check_current_functions - 1 ; Remember ListView items are 0-indexed
            $iIndex = _ArraySearch($Save_check_earlier_functions, _GUICtrlListView_GetItemText($list, $count2, 0))
            ; If not found then add
            If $iIndex = -1 Then
                IniWrite("Settings.ini", _GUICtrlListView_GetItemText($list, $count2, 0), "Function", _GUICtrlListView_GetItemText($list, $count2, 1))
                IniWrite("Settings.ini", _GUICtrlListView_GetItemText($list, $count2, 0), "Folder", _GUICtrlListView_GetItemText($list, $count2, 2))
                IniWrite("Settings.ini", _GUICtrlListView_GetItemText($list, $count2, 0), "File", _GUICtrlListView_GetItemText($list, $count2, 3))
                IniWrite("Settings.ini", _GUICtrlListView_GetItemText($list, $count2, 0), "Date", _GUICtrlListView_GetItemText($list, $count2, 4))
            EndIf
        Next
    EndIf

    GUICtrlSetState($Button_save, $gui_enable)
    ConsoleWrite("Save finished" & @CRLF)

EndFunc   ;==>Save
Does it work for you as well? :)

M23

  • Like 1

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

This seems to work when I run it:

Does it work for you as well? :)

 

I bow to your expertise.

Works like a charm, as always when it comes from you.

I will take a look at this code a couple of times and try to learn as much as possible from it.

And thank you, once more.

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

Glad I could help. :)

M23

  • Like 1

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

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
Sign in to follow this  

  • Similar Content

    • FranckGr
      By FranckGr
      Hi
      Seams IniReadSectionNames does not show all Sections names (First one is missing ... [Site Information])
      My code
      Local $aSections=IniReadSectionNames($ThisIni)
      $ThisIni :
      [Site Information]
      Equipment ID:=539456593
      Customer Name:=CH
      Address: =-
      City State:=Town
      Country:=France
      Phone:=
      Zip Code:=24000
      Product Type:=Master
      [Computer]
      Computer Name=CHPRODFR
      Hardware Manufacturer=HP
      Hardware Model=ProLiant ML350 Gen9
      Processor=Intel(R) Xeon(R) CPU E5-2643 v3 @ 3.40GHz
      Number of memory modules=4
      Total Memory size=32 GB
      BIOS version=P92
      [Physical Disk Details]
      1=2.00 TB
      [Logical Disk Details]
      C:\=63.6 GB
      D:\=2062.1 GB
      F:\=872.8 GB
      [NIC Details]
      Embedded LOM 1 Port 1=00:10:6F:C5:FD:8E
      Hospital-LAN=70:10:6F:C5:FD:8E
      [Graphic Card Details]
      DriverDate=20150826
      DriverVersion=4.1.2.2
      Name=Matrox G200eh (HP) WDDM 1.2
      Status=OK
      VideoProcessor=Matrox G200eH
      [Memory Card Details]
      8192=752368-081
      8192=752368-081
      8192=752368-081
      8192=752368-081
      [Missing Components]
      [Non-standard Components]
      [Installed Hotfixes]
      $aSections
      Row|Col 0
      [0]|9
      [1]|Computer
      [2]|Physical Disk Details
      [3]|Logical Disk Details
      [4]|NIC Details
      [5]|Graphic Card Details
      [6]|Memory Card Details
      [7]|Missing Components
      [8]|Non-standard Components
      [9]|Installed Hotfixes
       
       
       
       
    • rm4453
      By rm4453
      Hello,
       
      I am currently writing a program that parses a massive table from a website, and need a way to add a progress bar while parsing.
      I am currently using the function _IETableWriteToArray($oObj, True) to parse the array. I need the progress bar to update as the table is parsed, not just at the end of the parsing.
      Any help at all would be very much appreciated!
       
      *EDIT --> The array I am left with after parsing is $array[0-50000][16]
    • TrashBoat
      By TrashBoat
      So Im trying to make a simple 2d game and make some sort of collision detection so why not to make a 2 dimensional array but i have no clue how  to write it in multiple lines
      Global $map[5,5] = [0,0,0,0,0 _ [0,0,0,0,0 _ [0,0,0,0,0 _ [0,0,0,0,0 _ [0,0,0,0,0] something like this but it doesn't work
    • Zein
      By Zein
      #include "..\Include\Array.au3" #include "..\Include\File.au3" #include "..\Include\AutoItConstants.au3" Local $aRetArray Local $sFilePath = "n.csv" _FileReadToArray($sFilePath, $aRetArray, ",") ; _FileReadToArray($sFilePath, $aRetArray, $FRTA_COUNT, ",") _ArrayDisplay($aRetArray, "Original", Default, 8) The above code shows two versions of _FileReadToArray and both don't work as expected.
      The first one doesn't use the comma as a delimiter. (so I get a single column array)  I tried adding "Default" between $aRetArray and "," then it told me it had an incorrect number of parameters. 

      I looked again at the documentation:
       
      #include <File.au3> _FileReadToArray ( $sFilePath, ByRef $vReturn [, $iFlags = $FRTA_COUNT [, $sDelimiter = ""]] )
      And I with or without the flags params I should be getting a 2D array due to my file being a csv. 
      I then tried a regular flag, $FRTA_COUNT, and it tells me that I'm using a variable $FRTA_COUNT while it's not declared. Tried putting in 1 instead and it told me again, incorrect number of params. 

       
    • ternal
      By ternal
      Hi,
      Recently I have had the need to do a sort and then do a second sort while the item of the first sort stays the same ( double sorting , first on column x then while column x is the same sort column y).
      I did not put much efffort into error checking but so far I did not need it.
      For my applications so far it works perfectly however if someone is willing I want to test this extensivly.
      If anyone has big lists of random stuff to sort could you try this out please?
      #include <Array.au3> ; #FUNCTION# ==================================================================================================================== ; Name ..........: _ArraySort_Double ; Description ...: ; Syntax ........: _ArraySort_Double (Byref $array[, $first_index = Default[, $second_index = Default[, $ascending = Default]]]) ; Parameters ....: $array - 2d array to sort. ; $first_index - [optional] first column to sort. Default is 0. ; $second_index - [optional] second column to sort. Default is 1. ; $ascending - [optional] ascending/descending. Default is 1. ; Return values .: 1 if no errors occured , -1 if errors occured ; Author ........: Ternal ; Remarks .......: Needs excessive testing. ; Related .......: _arraysort() ; =============================================================================================================================== Func _ArraySort_Double (byref $array, $first_index = Default, $second_index = Default, $ascending = Default) Local $temp_value Local $counter = 1 If UBound($array, $UBOUND_DIMENSIONS) <> 2 Then MsgBox(0, "error", "error") return -1 EndIf If $first_index = Default Then $first_index = 0 If $second_index = Default Then $second_index = 1 If $ascending = Default Then $ascending = 1 _ArraySort($array, $ascending, 0, 0, $first_index); you can alter settings of primary sort here If @error Then MsgBox(0, "error", @error) return -1 EndIf $temp_value = $array[0][$first_index] For $x = 1 to UBound($array, 1) - 1 If Mod( $x, 10000) = 0 Then ConsoleWrite("at " & $x & " of a total : " & UBound($array, 1) & @CRLF) If $array[$x][$first_index] = $temp_value Then $counter+= 1 If $x = UBound($array, 1) - 1 Then; do last line here(if last line is not a new item) _ArraySort($array, $ascending, $x - $counter, $x, $second_index);you can alter settings of secondary sort here(don't forget to place line 34 the exact same) If @error Then MsgBox(0, "error", @error) return -1 EndIf EndIf Else If $counter > 0 Then ;at least 2 of the same _ArraySort($array, $ascending, $x - $counter, $x - 1, $second_index);you can alter settings of secondary sort here(don't forget to place line 29 the exact same) If @error Then MsgBox(0, "error", @error) return -1 EndIf $counter = 1 EndIf EndIf $temp_value = $array[$x][$first_index] Next Return 1 EndFunc Kind regards, Ternal
×