Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Заполнение listbox значениями из edit и обратно в таком же порядке

Ответить
Настройки темы
[решено] Заполнение listbox значениями из edit и обратно в таком же порядке

Старожил


Сообщения: 156
Благодарности: 1


Конфигурация

Профиль | Отправить PM | Цитировать

Здравствуйте!
Возникла такая задача: нужно строки из edit загрузить в listbox в том же порядке, как и в edit. Нужно для дальнейшего редактирования - перемещения строк вверх вниз, удаления...Подозреваю, что перемешивать в list удобнее. Ну а потом перемешаный помещать обратно в edit

Рабочий пример примерно такой:
Код: Выделить весь код


 
 
Код: Выделить весь код


 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 613, 438, 420, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 281, 417)
$List1 = GUICtrlCreateList("", 344, 8, 265, 409)
$Button1 = GUICtrlCreateButton(">", 304, 88, 33, 33)
$Button2 = GUICtrlCreateButton("<", 304, 136, 33, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
Спасибо!

Отправлено: 18:00, 30-01-2014

 

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Код: Выделить весь код
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 613, 438, 420, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 281, 417)
$List1 = GUICtrlCreateList("", 344, 8, 265, 409)
$Button1 = GUICtrlCreateButton(">", 304, 88, 33, 33)
$Button2 = GUICtrlCreateButton("<", 304, 136, 33, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $sEdit = StringReplace(GUICtrlRead($Edit1), @CRLF, '|')
            GUICtrlSetData($List1, $sEdit)
        Case $Button2
            $sList = ''

            For $i = 0 To _GUICtrlListBox_GetCount($List1) - 1
                $sList &= _GUICtrlListBox_GetText($List1, $i) & @CRLF
            Next

            GUICtrlSetData($Edit1, $sList)
    EndSwitch
WEnd

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:22, 30-01-2014 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 156
Благодарности: 1

Профиль | Отправить PM | Цитировать

Creat0R, все бы хорошо, но в листе получаю не тот порядок, что в edit. а надо точно такой. зато у edit после листа - один в один

Отправлено: 18:27, 30-01-2014 | #3


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата eus_deus:
в листе получаю не тот порядок »
Нужно у элемента списка убрать стиль $LBS_SORT:

Код: Выделить весь код
$List1 = GUICtrlCreateList("", 344, 8, 265, 409, BitXOR($GUI_SS_DEFAULT_LIST, $LBS_SORT))

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:53, 30-01-2014 | #4


Старожил


Сообщения: 156
Благодарности: 1

Профиль | Отправить PM | Цитировать

Creat0R, я неправильно сделал с самого начала. Вот смотрите - имею подобные исходные тексты:
Код: Выделить весь код
[mm_grafics]
Delimeters=#!#
POPUP Конвертация изображений
MENUITEM Конвертировать выделенные изображения#!#1964#!#"%COMMANDER_PATH%\TCIMG.exe"#!#"shape=1 start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||[group=BOX2!!%%L=%L!!%%p=%p!!%%E=%E]~~/convert=%p*.[combo=BOX4]~~/killmesoftly||&&hide||&&wait" 
POPUP Конвертация в jpg
MENUITEM Конвертировать выделенные изображения в JPG 95%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=95~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 90%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=90~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 85%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=85~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 80%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=80~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 75%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=75~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 70%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=70~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 60%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=60~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 50%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/jpgq=50~~/convert=$D$N$O~~/killmesoftly||&&hide||&&wait||upd<1>
END_POPUP
MENUITEM Конвертировать в JPG все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.jpg~~/killmesoftly||&&hide||&&wait tcimg=$cm540
MENUITEM Конвертировать в GIF все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.gif~~/killmesoftly||&&hide||&&wait tcimg=$cm540
MENUITEM Конвертировать в BMP все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.bmp~~/killmesoftly||&&hide||&&wait tcimg=$cm540
MENUITEM Конвертировать в PNG все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.png~~/killmesoftly||&&hide||&&wait tcimg=$cm540
MENUITEM Конвертировать в TGA  все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.tga~~/killmesoftly||&&hide||&&wait tcimg=$cm540
MENUITEM Конвертировать в TIF все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.tif~~/killmesoftly||&&hide||&&wait tcimg=$cm540
MENUITEM Конвертирование с удалением исходных файлов!!!#!#,0
MENUITEM Конвертировать в JPG выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/convert=%p*.jpg~~/killmesoftly||&&hide||&&wait tcimg=$cm540 pause=1000 delss=%L||1||test<1e!!%E> 
MENUITEM Конвертировать в GIF выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/convert=%p*.gif~~/killmesoftly||&&hide||&&wait tcimg=$cm540 pause=1000 delss=%L||1||test<1e!!%E> 
MENUITEM Конвертировать в BMP выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||/filelist=%L~~/convert=%p*.bmp~~/killmesoftly||&&hide||&&wait tcimg=$cm540 pause=1000 delss=%L||1||test<1e!!%E> 
MENUITEM Конвертировать в PNG выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.png~~/killmesoftly||&&hide||&&wait tcimg=$cm540 pause=1000 delss=%L||1||test<1e!!%E> 
MENUITEM Конвертировать в TGA выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.tga~~/killmesoftly||&&hide||&&wait tcimg=$cm540 pause=1000 delss=%L||1||test<1e!!%E> 
MENUITEM Конвертировать в TIF выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe||%p*.%E~~/convert=%p*.tif~~/killmesoftly||&&hide||&&wait tcimg=$cm540 pause=1000 delss=%L||1||test<1e!!%E> 
END_POPUP
то есть по команде на строку. так же надо и в лист сделать. а получаю

Код: Выделить весь код
[mm_grafics]
Delimeters=#!#
POPUP Конвертация изображений
MENUITEM Конвертировать выделенные изображения#!#1964#!#"%COMMANDER_PATH%\TCIMG.exe"#!#"shape=1 start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

[group=BOX2!!%%L=%L!!%%p=%p!!%%E=%E]~~/convert=%p*.[combo=BOX4]~~/killmesoftly

&&hide

&&wait" 
POPUP Конвертация в jpg
MENUITEM Конвертировать выделенные изображения в JPG 95%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=95~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 90%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=90~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 85%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=85~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 80%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=80~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 75%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=75~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 70%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=70~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 60%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=60~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
MENUITEM Конвертировать выделенные изображения в JPG 50%#!#1892#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/jpgq=50~~/convert=$D$N$O~~/killmesoftly

&&hide

&&wait

upd<1>
END_POPUP
MENUITEM Конвертировать в JPG все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.jpg~~/killmesoftly

&&hide

&&wait tcimg=$cm540
MENUITEM Конвертировать в GIF все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.gif~~/killmesoftly

&&hide

&&wait tcimg=$cm540
MENUITEM Конвертировать в BMP все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.bmp~~/killmesoftly

&&hide

&&wait tcimg=$cm540
MENUITEM Конвертировать в PNG все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.png~~/killmesoftly

&&hide

&&wait tcimg=$cm540
MENUITEM Конвертировать в TGA  все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.tga~~/killmesoftly

&&hide

&&wait tcimg=$cm540
MENUITEM Конвертировать в TIF все изображения с расширением под курсором#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.tif~~/killmesoftly

&&hide

&&wait tcimg=$cm540
MENUITEM Конвертирование с удалением исходных файлов!!!#!#,0
MENUITEM Конвертировать в JPG выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/convert=%p*.jpg~~/killmesoftly

&&hide

&&wait tcimg=$cm540 pause=1000 delss=%L

1

test<1e!!%E> 
MENUITEM Конвертировать в GIF выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/convert=%p*.gif~~/killmesoftly

&&hide

&&wait tcimg=$cm540 pause=1000 delss=%L

1

test<1e!!%E> 
MENUITEM Конвертировать в BMP выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

/filelist=%L~~/convert=%p*.bmp~~/killmesoftly

&&hide

&&wait tcimg=$cm540 pause=1000 delss=%L

1

test<1e!!%E> 
MENUITEM Конвертировать в PNG выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.png~~/killmesoftly

&&hide

&&wait tcimg=$cm540 pause=1000 delss=%L

1

test<1e!!%E> 
MENUITEM Конвертировать в TGA выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.tga~~/killmesoftly

&&hide

&&wait tcimg=$cm540 pause=1000 delss=%L

1

test<1e!!%E> 
MENUITEM Конвертировать в TIF выделенные изображения с удалением исходных#!#1964#!#%COMMANDER_PATH%\TCIMG.exe#!#start=%%COMMANDER_PATH%%\Programs\Graphics\IrfanView\i_view32.exe

%p*.%E~~/convert=%p*.tif~~/killmesoftly

&&hide

&&wait tcimg=$cm540 pause=1000 delss=%L

1

test<1e!!%E> 
END_POPUP
понятно что из за спецсимвола '|' его как то можно исключить или заменить на другой?

Отправлено: 19:46, 30-01-2014 | #5


Старожил


Сообщения: 156
Благодарности: 1

Профиль | Отправить PM | Цитировать

нашел как менять. спасибо. тема закрыта. пока подбираю спецсимвол))

Отправлено: 20:04, 30-01-2014 | #6



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Заполнение listbox значениями из edit и обратно в таком же порядке

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
PowerShell - [решено] Создание переменной (коллекции) с несколькими значениями rudimko Скриптовые языки администрирования Windows 5 16-01-2014 15:08
Разное - Заполнение ячеек из формы макроса Excel zion87 Microsoft Office (Word, Excel, Outlook и т.д.) 7 03-04-2013 22:38
[решено] Заполнение формы на сайте, но с данными из текстового файла ZeroCrash AutoIt 2 24-06-2009 11:04
Заполнение базы из браузера Qwe1 Вебмастеру 6 19-02-2008 18:49
Конвертация из NTFS обратно в FAT32 Guest Microsoft Windows 2000/XP 49 18-05-2007 10:22


« Предыдущая тема | Следующая тема »


 
Переход