Что нового

Поиск определённой строки в файле...

Автор
SECTOR

SECTOR

Продвинутый
Сообщения
399
Репутация
59
Люди, извините, что снова поднимаю этот вопрос, но столкнулся с тем, что List не то что нужно.
Короче нужно, чтобы вся инфа отображалась в ListWiev.

- 'Levels' в колонне 'уровни'
- 'Autors' в 'Автор'
- 'Type' в 'Тип'

и чтобы но нажатию на кнопку LevelData копировалась в буфер обмена!


И скрин для тех кто меня не понял:
UserLevels.jpg
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Seen [?]
нужно, чтобы вся инфа отображалась в ListWiev.
Код:
#include <GUIConstantsEx.au3>
#include <GUIListView.au3>

$hGUI = GUICreate("Test Script", 300, 200)

$nCopyButton = GUICtrlCreateButton("Copy Data", 20, 0, 60, 20)
$nListView = GUICtrlCreateListView("Уровни|Автор|Тип|LevelData", 20, 20, 260, 170)

_SetListData()

GUICtrlSendMsg($nListView, $LVM_SETCOLUMNWIDTH, 0, -1)
GUICtrlSendMsg($nListView, $LVM_SETCOLUMNWIDTH, 3, 0) ;Hide the LevelData column

GUISetState(@SW_SHOW, $hGUI)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nCopyButton
			$aSplit_Data = StringSplit(_GUICtrlListView_GetItemTextString($nListView), "#")
			ClipPut($aSplit_Data[$aSplit_Data[0]])
	EndSwitch
WEnd

Func _SetListData()
	Local $sFileRead = FileRead(@DesktopDir & "\userlevels.txt")
	Local $aList = StringRegExp($sFileRead, "(?m)^\$(.*[\n\r]|.*$)", 3)
	
	Opt("GUIDataSeparatorChar", "#")
	
	For $i = 0 To UBound($aList) - 1
		$aSplit_Data = StringSplit($aList[$i], "#")
		$sData = ""
		
		If $aSplit_Data[0] = 5 Then ContinueLoop ;It's the header data
		
		$iIndex = _GUICtrlListView_InsertItem($nListView, "")
		
		For $j = 1 To $aSplit_Data[0]
			_GUICtrlListView_SetItemText($nListView, $iIndex, $aSplit_Data[$j], $j-1)
		Next
	Next
EndFunc
 
Автор
SECTOR

SECTOR

Продвинутый
Сообщения
399
Репутация
59
Понятно!
Спасибо за быстрый ответ!
 
Автор
SECTOR

SECTOR

Продвинутый
Сообщения
399
Репутация
59
Верх