MrSergey

The problem is solved. The problem was with GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") I have changed a code as follows While 1 $msg = GUIGetMsg() Select Case $msg = $dayst GUIRegisterMsg($WM_NOTIFY, "") $timer = TimerInit() _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView)) ConsoleWrite(@LF&"delete time = "&TimerDiff($timer)) GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") Case $msg = $GUI_EVENT_CLOSE GUIDelete($GUI) Exit EndSelect WEnd

help me pls

Hi, sorry for my english... I write program: #include <GUIConstants.au3> #Include <GuiListView.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <ComboConstants.au3> Global $iLastItem = -1, $iLastsubitemNR = -1 Global $hGUI_Multiline, $View_Multiline, $ColName Global $nCurCol = -1 Global $nSortDir = 1 Global $bSet = 0 Global $nCol = -1 $iLastI = 0 $iLastsubi = 0 $GUI = GUICreate("List", 300,250, -1, -1,$WS_MAXIMIZEBOX + $WS_MINIMIZEBOX) $hListView = GuiCtrlCreateListView("", 0,0, 297, 150,-1, BitOR($LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT )) GUICtrlSetResizing($hListView, $GUI_DOCKTOP) $dayst = GUICtrlCreateCombo ("", 10,170,280,20, BitOr($CBS_DROPDOWNLIST, $WS_VSCROLL, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1,"1|2|3") _GUICtrlListView_AddColumn($hListView, "col1") _GUICtrlListView_AddColumn($hListView, "col2") _GUICtrlListView_AddColumn($hListView, "col3") Dim $array[10000][9] For $i = 0 to 9999 For $j = 0 To 8 $array[$i][$j] = $i Next Next _GUICtrlListView_AddArray($hListView,$array) GUISetState() GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") While 1 $msg = GUIGetMsg() Select Case $msg = $dayst $timer = TimerInit() _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView)) ConsoleWrite(@LF&"delete time = "&TimerDiff($timer)) Case $msg = $GUI_EVENT_CLOSE GUIDelete($GUI) Exit EndSelect WEnd Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam) Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView $hWndListView = $hListView If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView) $tNMHDR = DllStructCreate($tagNMHDR, $lParam) $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom")) $iIDFrom = DllStructGetData($tNMHDR, "IDFrom") $iCode = DllStructGetData($tNMHDR, "Code") Switch $hWndFrom Case $hWndListView Local $tInfo = DllStructCreate($tagNMLISTVIEW, $lParam) Local $iItem = DllStructGetData($tInfo, "Item") ; строка Local $subitemNR = DllStructGetData($tInfo, "SubItem") Switch $iCode Case $NM_DBLCLK $timer = TimerInit() _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView)) ConsoleWrite(@LF&"delete time = "&TimerDiff($timer)) EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc If I use double click on any cell then operating time of _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView)) = 150 ms If I use select any position of $dayst then operating time of _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView)) = 3000 ms How to receive equally small times?

>_<

You incorrectly understood me. The program is not necessary to me. I write the program which displays the data. The data contains in MS-DOS Cyrillic format files. I need display the data in Ms Windows Cyrillic format. I need code to convert from MS-DOS Cyrillic to Ms Windows Cyrillic

Hi, I need converter from MS-DOS Cyrillic to Ms Windows Cyrillic.

Thanks!!! It's realy fast!!! But how I can use the given code for my creation ListView? Code very long and difficult. Probably exists UDF on ListView with use of the given code?

1 - For what? (It is impossible) 2 - I use ReDim:

Hi, Sorry for my english... It's my code: #include <GUIConstants.au3> #Include <GuiListView.au3> $GUI = GUICreate("Listview", 300,300) $hListView = GuiCtrlCreateListView("1|2|3|4|5|6|7", 10, 10, 280, 290,-1, BitOR($LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT )) $x = 100 For $i = 0 to $x GUICtrlCreateListViewItem("1|2|3|4|5|6|7", $hListView) Next GUISetState() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit EndIf Sleep(10) WEnd If $x small then all work fast, but if $x > 1000 then the window is created too long. In my program I need use $x = 50000. Time of window creation = 1 min. It's VERY long. How I can accelerate process of window creation?

thx!!!

I have txt file with numbers 15F63E6A97, 15F8D2A598, 15F8D2C199... I need read numbers and creat loop But loop do not work..(( If i write in code then i have error "Unable to parse line" But if i write then all work good. therefore I need convert hex to dec Sorry for may english

Hello? How convert Hex to Dec if is > 2147483647 ? thx

Help me pls

Hello, I am sorry for my English. I write the program, but I had a problem with update data in the list. I have table names and IPs. I write data to ini file. If i click to name in list the IP automatic change. Problem: if i add new name and IP in list the IP do not change if i click to name in list, but if i delete name from list all works as is necessary. my code: #include <GUIConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <StaticConstants.au3> Dim $name[50] Dim $ip[50] Global $kolvozp $namezp = "" $i = 0 $oldspysok = "" $numb = 0 GUICreate("My Program",600,300) filereadzp() $spysok = GUICtrlCreateList("", 10, 30, 260, 230) GUICtrlSetData(-1,$namezp,$name[1]) $spysok1 = $name[1] For $i = 1 to $kolvozp If $spysok1 = $name[$i] Then ExitLoop EndIf Next GUICtrlCreateLabel ("IP :", 280, 32) $ip1 = GUICtrlCreateInput ($ip[$i], 410, 30,180) $n1 = GUICtrlCreateButton("Add", 10, 270, 80,20) $n2 = GUICtrlCreateButton("Delete", 100, 270, 80,20) $n3 = GUICtrlCreateButton("Apply", 190, 270, 80,20) GUISetState () Do $msg = GUIGetMsg() If $msg = $spysok And GUICtrlRead($spysok) <> $oldspysok Then For $i = 1 to $kolvozp If GUICtrlRead($spysok) = $name[$i] Then ;~ MsgBox(0,"",$k&" "&$i) GUICtrlSetData($ip1,$ip[$i]) ;~ MsgBox(0,"",$ip[$i]&" "&GUICtrlRead($ip1)) ExitLoop EndIf Next $oldspysok = GUICtrlRead($spysok) EndIf If $msg = $n3 Then If $i < 1 And $i > $kolvozp Then $i = 1 EndIf FileWritezp($i) filereadzp() EndIf If $msg = $n1 Then add() filereadzp() GUICtrlSetData($spysok,"") GUICtrlSetData($spysok,$namezp,$name[$i]) EndIf If $msg = $n2 Then del($i) filereadzp() GUICtrlSetData($spysok,"") GUICtrlSetData($spysok,$namezp,$name[$i]) EndIf Sleep(5) Until $msg = $GUI_EVENT_CLOSE Func filereadzp() $namezp = "" $zp = IniReadSection("set.ini", "mes") $kolvozp = (UBound($zp) - 1)/2 If $kolvozp < 1 Then $kolvozp = 1 EndIf For $t = 1 to $kolvozp $name[$t] = IniRead ("Set.ini", "mes", "name"&$t, "2") If $t <> $kolvozp Then $namezp = $namezp & $name[$t]&"|" Else $namezp = $namezp & $name[$t] EndIf $ip[$t] = IniRead ("Set.ini", "mes", "ip"&$t, "2") Next EndFunc Func FileWritezp($i) IniWrite ("Set.ini", "mes", "name"&$i, $name[$i]) IniWrite ("Set.ini", "mes", "ip"&$i, GUICtrlRead($ip1)) EndFunc Func add() GUICreate("Add",350,205) GUICtrlCreateLabel ("Name:", 10, 7) $names = GUICtrlCreateInput ("", 160, 5,180) GUICtrlCreateLabel ("IP :", 10, 32) $ips = GUICtrlCreateInput ("", 160, 30,180) $n4 = GUICtrlCreateButton("Add", 50, 170, 80,25) $n5 = GUICtrlCreateButton("Cancel", 210, 170, 80,25) GUISetState() Do $msg1 = GUIGetMsg() If $msg1 = $n4 Then $name[$kolvozp+1] = $names $ip1 = $ips $name[$kolvozp+1] = GUICtrlRead($name[$kolvozp+1]) If $ip[$kolvozp] <> "2"Then $i = $kolvozp+1 Else $i = $kolvozp $name[$kolvozp] =$name[$kolvozp+1] EndIf FileWritezp($i) ExitLoop EndIf If $msg1 = $n5 Then ExitLoop EndIf Until $msg1 = $GUI_EVENT_CLOSE GUIDelete() EndFunc Func del($i) For $t = $i to $kolvozp-1 $name[$t] = $name[$t+1] $ip[$t] = $ip[$t+1] IniWrite ("Set.ini", "mes", "name"&$t, $name[$t]) IniWrite ("Set.ini", "mes", "ip"&$t, $ip[$t]) Next IniDelete ("Set.ini", "mes", "name"&$t) IniDelete ("Set.ini", "mes", "ip"&$t) EndFunc

Simple code Result = 11 Why?