Что нового

Как из Listbox заполнить текстовый файл данными (все что имеется на данный моме

StarEdik

Новичок
Сообщения
365
Репутация
4
Привет всем !
Надо, чтоб после запуска скрипта все пункты из Listbox заносились в Блокнот.
Код:
#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test Script", 300, 200,100,30)
$iList = GUICtrlCreateList("", 20, 20, 260, 160)

GUISetState(@SW_SHOW, $hGUI)
Run(@WindowsDir & "\Notepad.exe")
WinWait("[CLASS:Notepad]")
ControlSetText("[CLASS:Notepad]", "", "Edit1", "New Text Here"  & @CRLF & "New Text Here2"  & @CRLF &"New Text Here3"  & @CRLF  )

Sleep(1000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item1|Item2|Item3|Item4|Item5|Item5")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item6|Item7|Item8|Item9|Item10|Item11")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item12|Item13|Item14|Item15|Item16|Item17")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item18|Item19|Item20|Item21|Item22|Item23")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item24|Item25|Item26|Item27|Item28|Item29")
_AdNot()
Sleep(2000)
Exit

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _AdNot()

ControlSetText("[CLASS:Notepad]", "", "Edit1", "" )

EndFunc
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
StarEdik,
А не проще писать в текстовый файл нужные данные и открывать его потом в блокноте?
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Код:
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>

$hGUI = GUICreate("Test Script", 300, 200,100,30)
$iList = GUICtrlCreateList("", 20, 20, 260, 160)

GUISetState(@SW_SHOW, $hGUI)
Run(@WindowsDir & "\Notepad.exe")
WinWait("[CLASS:Notepad]")
;ControlSetText("[CLASS:Notepad]", "", "Edit1", "New Text Here"  & @CRLF & "New Text Here2"  & @CRLF &"New Text Here3"  & @CRLF  )

Sleep(1000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item1|Item2|Item3|Item4|Item5|Item5")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item6|Item7|Item8|Item9|Item10|Item11")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item12|Item13|Item14|Item15|Item16|Item17")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item18|Item19|Item20|Item21|Item22|Item23")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item24|Item25|Item26|Item27|Item28|Item29")
_AdNot()
Sleep(2000)
Exit

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _AdNot()
  Local $hList = ControlGetHandle($hGUI, "", $iList)
  For $i = 0 To _GUICtrlListBox_GetCount($hList) - 1
    ControlCommand("[CLASS:Notepad]", "", "Edit1", "EditPaste", _GUICtrlListBox_GetText($hList, $i) & @CRLF)
  Next
EndFunc
 
Автор
StarEdik

StarEdik

Новичок
Сообщения
365
Репутация
4
InnI
Спасибо.Так и было нужно.Отлично.Я вот только в функцию эту строку добавил.
Код:
ControlSetText("[CLASS:Notepad]", "", "Edit1", "" )

Xaker
Winstan
вам тоже Спасибо
 
Верх