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


Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______Open Open spoiler to see 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

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______Open Open spoiler to see 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

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______Open Open spoiler to see 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

    • lattey
      By lattey
      hi,
      i have checkboxes and each checkbox that checked, i put in array. 
      now, im stuck on how to loop the checked array and store in in one variable. what i can do now, is only write the result into a text file. 
      below is the code:
      #include <GUIConstantsEx.au3> ;~ #include <MsgBoxConstants.au3> #include <ButtonConstants.au3> #include <Array.au3> Global $Count = 3 Global $CheckBoxP[$Count] Global $step[$Count] global $array1[1] Global $ExitResult $hGUI = GUICreate("Summary Steps", 500, 400) GUISetFont(12, 400, "Tahoma") GUICtrlCreateLabel( "Please Select the Summary Steps for Script Check", 70, 20) GUISetFont(10, 400, "Tahoma") Global $array_Pstep[3] = ["fix2","fix1","fix3"] global $step[3] = ["2","3","4"] $Spacing = 50 For $i = 0 To UBound($array_Pstep) - 1 $CheckBoxP[$i] = GUICtrlCreateCheckbox($array_Pstep[$i], 80, $Spacing + (20 * $i), 65, 17) Next $submit = GUICtrlCreateButton("Submit",180, 280, 80, 30) $exit = GUICtrlCreateButton("Exit",180, 320, 80, 30) GUISetState() While 1 $Msg = GUIGetMsg() Select case $Msg=$submit For $i = 0 To $Count - 1 If GUICtrlRead($CheckBoxP[$i]) = $GUI_CHECKED Then _ArrayAdd($array1, $step[$i]) EndIf Next Global $logfilerray = @WorkingDir & "\checkedlist.txt" FileDelete ($logfilerray) Global $readlogfile = FileOpen($logfilerray,1) for $a = 1 to UBound($array1) - 1 ;~ $var=$array1[$a] FileWriteLine($readlogfile,$array1[$a]) Next FileClose($readlogfile) Exit case $Msg=$exit $ExitResult = MsgBox(1,"Summary Step", "Continue to Exit ?") if $ExitResult = 1 Then ;ok Exit EndIf Exit EndSelect WEnd  
    • omicron
      By omicron
      How do you perform a nested loop function with a multidimensional array from 2 lists.
      for i in list1
      (open file) extract variable
          while open for i in list 2
          (open file2) extract variable
       
      var1 + var2 = (search term)

      The list sizes will more than likely consist of different lengths.
       
      What is the best approach to accomplishing this method?
             
    • omicron
      By omicron
      Hello!

      I am working on a function that I am just getting lost on. The goal is a multiple nested loop.

      Here are the steps:
      Contents of file1.txt::
      [topic] var1=Name var2=OtherName var3=SomeotheName Contents of file2.txt::
      [subTopic] top=sub1 top2=sub2 top3=sub3 The Shell I am working from::
      #include <file.au3> $file = "c:\yourfile.txt" FileOpen($file, 0) For $i = 1 to _FileCountLines($file) $line = FileReadLine($file, $i) msgbox(0,'','the line ' & $i & ' is ' & $line) Next FileClose($file) Understanding however that the "msgbox" needs to then become a variable. in example the following::
      $file = "c:\yourfile.txt" FileOpen($file, 0) While true( prog.exe is running && "WinName" is open) do For $i = 1 to _FileCountLines($file) $line = FileReadLine($file, $i) ;Open File to log "current location of file 1" FileWriteLine ("filename", $i & ' is ' & $line) var = $line Next $file2 = "c:\yourfile.txt" FileOpen($file, 0) For $i = 1 to _FileCountLines($file) $line = FileReadLine($file, $i) ; OpenFile to log "Current location of file 2" FileWriteLine ("filename", $i & ' is ' & $line) Next FileClose($file2) FileClose($file) The goal in written form is the following ::

      While in "OpenWindow"
          read from file 1 starting at line 1 until end of file.
         file 1 is a list of names to be searched.
         With $line selected, add this element to the element in file 2.
       
      The search of a variables in list 1 and list 2 differ on the amount of posts that day. (This is not a web based platform, it is a game) I need to search 2 names and take a screenshot of the out put. The sizes of the names list depend on the activity of names at the time of search.
      This loop continues until all the names from both lists have been searched. Mostly in the format of::
      File1= item
      File2= Vendor
       
      Item + Vendor  ( Capture screen, scroll) -- Not sure how to detect if I need to scroll)
       
      Thank you for your help and support!
    • Skeletor
      By Skeletor
      Hi Virtual People,
      My array works perfectly fine. However, what is the best practice if the line in the array doesn't have the correct amount of columns and if I can add a placeholder?

       
      For $count = 1 To _FileCountLines($FileRead1) Step 1 $string = FileReadLine($FileRead1, $count) $input = StringSplit($string, ",", 1) $value1 = $input[1] $value2 = $input[2] $value3 = $input[3] _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $value2, "A1") _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $value1, "B1") _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $value3, "C1") Next  
    • MrCheese
      By MrCheese
      hi all,
      reviewing the forum, this thread is applicable: 
       
       
      I wanted to know if there is now a better way to do this?
      In essence, I load a tab delimited txt file into an array (works well). I used tab, as some fields in the original csv contains commas.
      However, I needed autoit to manipulate this array, and output it as a csv.
      IF my array contains items with a comma, without double quotes around the field, then how best do I get a csv out of this?
      My current workaround is to filewritefromarray tab delimited, then open it in excel and save as a csv. I will need to check this to see how the address fields behave that contain a comma.
       
      Any thoughts would be appreciated.
       
×