problem that repeats the same name when saving in txt

[angel83]

Hello, I hope you can help me with this problem.

in which it repeats the same name when saving it in the test.txt.

 

expandcollapse popup

#include <GuiConstantsEx.au3> 
#include <GuiListView.au3> 


$hGUI = GUICreate("Prueba", 800, 600) 

$hListView = GUICtrlCreateListView("#|Nombre del programa|", 10, 10, 680, 100) 

_GuiCtrlListView_SetColumnWidth($hListView,0,35) 
_GuiCtrlListView_SetColumnWidth($hListView,1,300) 


$OkButton = GUICtrlCreateButton("Aceptar", 50, 170, 75, 23) 

$AddButton = GUICtrlCreateButton("Agregar nueva ruta", 130, 170, 75, 23) 

$RemButton = GUICtrlCreateButton("Eliminar", 210, 170, 75, 23) 


GUISetState(@SW_SHOW, $hGUI) 

_FillList(@ScriptDir & "\test.txt") 

Mientras 1 
    $msg = GUIGetMsg(1) 
    Cambiar $msg[0] 
        Caso $GUI_EVENT_CLOSE 

                Salir 

        Caso $OkButton 
            $sData = "" 

            Para $i = 0 Hasta _GUICtrlListView_GetItemCount($hListView) - 1 
                $sData &= _GUICtrlListView_GetItemText($hListView, $i, 1) & @CRLF 

            Siguiente 

            $hFile = FileOpen(@ScriptDir & "\test.txt", 2) 
            FileWrite($hFile, $sData) 
            FileClose($hFile) 
            Salir 


        Caso $AddButton 
             $sFile = FileOpenDialog(@SCRIPTNAME,@WORKINGDIR,"(*.exe)") 

            Si $sFile = "" Entonces ContinueCase 
            $sFile = StringRegExpReplace($sFile, "^.*\\", "") 

            GUICtrlCreateListViewItem(_GUICtrlListView_GetItemCount($hListView) + 1 & "|" & $sFile , $hListView) 


        Caso $RemButton 
            _GUICtrlListView_DeleteItemsSelected($hListView) 

    FinCambiar 
WEnd 

Func _FillList($sFile) 
    Local $iRead = FileRead($sFile) 
    Local $aString = StringSplit(StringStripCR($iRead), @LF) 

    Para $i = 1 Hasta $aString[0] 
        Si $aString[$i] = "" Entonces ContinuarBucle 
        GUICtrlCreateListViewItem($i & "|" & StringRegExpReplace($aString[$i], "^.*\\", "") , $hListView) 

    Siguiente 
FinFunc

 

Edited yesterday at 03:51 AM by angel83

[Jos]

That script is full of syntax errors!  did you use some sort of translator from English to Spanish before posting?
Please try to use au3check and make a valid script first. 🙂 

Edited 17 hours ago by Jos

[angel83]

If it was apparently translated into Spanish with the browser, I'm sorry. 
thank you jos
 who is in english

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GuiListView.au3>


$hGUI = GUICreate("Test", 800, 600)

$hListView = GUICtrlCreateListView("#|Program name|", 10, 10, 680, 100)

_GuiCtrlListView_SetColumnWidth($hListView,0,35)
_GuiCtrlListView_SetColumnWidth($hListView,1,300)


$OkButton = GUICtrlCreateButton("Ok", 50, 170, 75, 23)

$AddButton = GUICtrlCreateButton("Add new path", 130, 170, 75, 23)

$RemButton = GUICtrlCreateButton("Remove", 210, 170, 75, 23)


GUISetState(@SW_SHOW, $hGUI)

_FillList(@ScriptDir & "\test.ini")

While 1
    $msg = GUIGetMsg(1)
    Switch $msg[0]
        Case $GUI_EVENT_CLOSE

                Exit

        Case $OkButton
            $sData = ""

            For $i = 0 To _GUICtrlListView_GetItemCount($hListView) - 1
                $sData &= _GUICtrlListView_GetItemText($hListView, $i, 1)  & @CRLF

            Next

            $hFile = FileOpen(@ScriptDir & "\test.ini", 2)
            FileWrite($hFile, $sData)
            FileClose($hFile)
            Exit


        Case $AddButton
             $sFile = FileOpenDialog(@SCRIPTNAME,@WORKINGDIR,"(*.exe)")

            If $sFile = "" Then ContinueCase
            $sFile = StringRegExpReplace($sFile, "^.*\\", "")

            GUICtrlCreateListViewItem(_GUICtrlListView_GetItemCount($hListView) + 1 & "|" & $sFile , $hListView)


        Case $RemButton
            _GUICtrlListView_DeleteItemsSelected($hListView)

    EndSwitch
WEnd

Func _FillList($sFile)
    Local $iRead = FileRead($sFile)
    Local $aString = StringSplit(StringStripCR($iRead), @LF)

    For $i = 1 To $aString[0]
        If $aString[$i] = "" Then ContinueLoop
        GUICtrlCreateListViewItem($i & "|" & StringRegExpReplace($aString[$i], "^.*\\", "")  , $hListView)

    Next
EndFunc