incepator Posted October 30, 2012 Share Posted October 30, 2012 can remove duplicate lines from that... "listview"? expandcollapse popup#NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <IE.au3> #include <String.au3> #include <Array.au3> #include <GuiListView.au3> $Form1 = GUICreate("Motor 1", 635, 368, -1, -1) GUISetBkColor(0x000000) $Button1 = GUICtrlCreateButton("Add List", 8, 2, 75, 24, -1, $WS_EX_CLIENTEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Input1 = GUICtrlCreateInput("", 88, 5, 537, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY)) $Label1 = GUICtrlCreateLabel("Start Row - Word", 8, 32, 120, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Input2 = GUICtrlCreateInput("1", 128, 32, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Label2 = GUICtrlCreateLabel("End Row - Word", 184, 32, 115, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Input3 = GUICtrlCreateInput("10", 304, 32, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Label3 = GUICtrlCreateLabel("Start Page", 360, 32, 77, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Input4 = GUICtrlCreateInput("1", 440, 32, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Label4 = GUICtrlCreateLabel("End Page", 496, 32, 72, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Input5 = GUICtrlCreateInput("2", 576, 32, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Label5 = GUICtrlCreateLabel("Please Wait...", 56, 346, 571, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) $Label6 = GUICtrlCreateLabel("Algoritm Link Generate:", 8, 57, 165, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Label7 = GUICtrlCreateLabel("Parameter 1", 172, 60, 61, 17) GUICtrlSetColor(-1, 0xFF0000) $Input6 = GUICtrlCreateInput("http://en.search.wordpress.com", 232, 56, 121, 21) $Label8 = GUICtrlCreateLabel("2", 356, 60, 10, 17) GUICtrlSetColor(-1, 0xFF0000) $Input7 = GUICtrlCreateInput("/?q=", 368, 56, 121, 21) $Label9 = GUICtrlCreateLabel("3", 492, 60, 10, 17) GUICtrlSetColor(-1, 0xFF0000) $Input8 = GUICtrlCreateInput("&t=comment&page=", 504, 56, 121, 21) $ListView1 = GUICtrlCreateListView("#Nr. Pages|Link Pages", 8, 80, 618, 246, BitOR($GUI_SS_DEFAULT_LISTVIEW,$WS_BORDER)) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 520) $Button2 = GUICtrlCreateButton("GO", 8, 328, 43, 35, BitOR($BS_CENTER,$BS_VCENTER), $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetCursor (-1, 0) $Progress1 = GUICtrlCreateProgress(56, 328, 570, 14) Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button2]] GUISetAccelerators($Form1_AccelTable) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $Add_List = FileOpenDialog("Select List Words", @ScriptDir & "\", "Txt File (*.txt)", 1, "", $Form1) If Not @error Then GUICtrlSetData($Input1, $Add_List) ElseIf @error = 1 Then Sleep(1) Else MsgBox(16, "Error Function","Error: " & @error) EndIf Case $Button2 _GO_FUNC() EndSwitch WEnd Func _GO_FUNC() If GUICtrlRead($Input1) = "" Then MsgBox(16,"Error","NO List Exist !") ElseIf GUICtrlRead($Input2) = "" Then MsgBox(16,"Error","NO Start Row - Word INSERT !") ElseIf GUICtrlRead($Input3) = "" Then MsgBox(16,"Error","NO End Row - Word INSERT !") ElseIf GUICtrlRead($Input4) = "" Then MsgBox(16,"Error","NO Start Page INSERT !") ElseIf GUICtrlRead($Input5) = "" Then MsgBox(16,"Error","NO End Page INSERT !") ElseIf GUICtrlRead($Input6) = "" Then MsgBox(16,"Error","NO Parameter 1 INSERT !") ElseIf GUICtrlRead($Input7) = "" Then MsgBox(16,"Error","NO Parameter 2 INSERT !") ElseIf GUICtrlRead($Input8) = "" Then MsgBox(16,"Error","NO Parameter 3 INSERT !") Else _GO_FUNC_START() EndIf EndFunc Func _GO_FUNC_START() $primul_cuvant = GUICtrlRead($Input2);1 Default $ultimul_cuvant = GUICtrlRead($Input3);10 Default $total_randuri_fisier_adaugat = _FileCountLines(GUICtrlRead($Input1)) If $ultimul_cuvant > $total_randuri_fisier_adaugat Then MsgBox(16,"Error","Max Word File Is: "&$total_randuri_fisier_adaugat) Else ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Dim $master_array[1] $deschide_fisier = FileOpen(GUICtrlRead($Input1),0) For $pagina_actuala = GUICtrlRead($Input4) To GUICtrlRead($Input5) For $cuvant_actual_numar = $primul_cuvant To $ultimul_cuvant $cuvant_actual = FileReadLine($deschide_fisier,$cuvant_actual_numar) $Link_Generat = _IECreate(GUICtrlRead($Input6) & GUICtrlRead($Input7) & $cuvant_actual & GUICtrlRead($Input8) & $pagina_actuala , 0, 0, 1, 0) _IELoadWait($Link_Generat) $text_extras = _IEBodyReadHTML($Link_Generat) _IEQuit($Link_Generat) $pagini = _StringBetween($text_extras, 'class=post-title href="','">') If IsArray($pagini) Then _ArrayConcatenate($master_array, $pagini, 1) EndIf Next _ArrayDelete($master_array, 0) $arry_unic = _ArrayUnique($master_array) For $1 = 1 To UBound($arry_unic) - 1 $prima_culoare = GUICtrlCreateListViewItem($1&"|"&$arry_unic[$1], $ListView1) GUICtrlSetColor($prima_culoare, 0x0000FF) Next Next ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MsgBox(64,"Info","Finish !") $salvare_totala = FileSaveDialog("Save...",@DesktopDir,"Text files (*.txt)","",GUICtrlRead($Input1)) If Not @error Then Local $deschide_salvare = FileOpen($salvare_totala&".txt", 1) For $i = 0 To _GUICtrlListView_GetItemCount($ListView1)-1 FileWrite($deschide_salvare,_GUICtrlListView_GetItemTextString($ListView1,$i)&@CRLF) Next EndIf EndIf EndFunc Link to comment Share on other sites More sharing options...
PhoenixXL Posted October 30, 2012 Share Posted October 30, 2012 can you recreate your problem in a little example My code: PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners. MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression. Link to comment Share on other sites More sharing options...
incepator Posted October 30, 2012 Author Share Posted October 30, 2012 (edited) can you recreate your problem in a little example course, please wait a few minutes, thanks. EDIT _________________________________________________________________________ Hello! I have a problem ... How can number the number of rows in "ListViewItem"? and how to reduce duplicate rows? expandcollapse popup#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <IE.au3> #include <String.au3> #include <Array.au3> #include <GuiListView.au3> $Form1 = GUICreate("", 585, 442, 192, 124) $Label1 = GUICtrlCreateLabel("Start Line Nr. Word", 8, 16, 95, 17) $Input1 = GUICtrlCreateInput("1", 104, 16, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER)) $Label2 = GUICtrlCreateLabel("Stop To Line Nr. Word", 160, 16, 111, 17) $Input2 = GUICtrlCreateInput("4", 285, 16, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER)) $Label3 = GUICtrlCreateLabel("Start Page Nr.", 336, 16, 71, 17) $Input3 = GUICtrlCreateInput("1", 405, 16, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER)) $Label4 = GUICtrlCreateLabel("Start Page Nr.", 461, 16, 71, 17) $Input4 = GUICtrlCreateInput("2", 530, 16, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER)) $ListView1 = GUICtrlCreateListView("Total Link Nr|Links", 2, 64, 578, 374) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 400) $Button1 = GUICtrlCreateButton("Extract", 8, 36, 75, 22) GUISetState(@SW_SHOW) $list_words = "Words.txt" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $first_word = GUICtrlRead($Input1) $last_word = GUICtrlRead($Input2) Dim $master_array[1] $open_read = FileOpen($list_words,0) For $page = GUICtrlRead($Input3) To GUICtrlRead($Input4) For $word = $first_word To $last_word $actual_word = FileReadLine($open_read,$word) $Link_Generate = _IECreate("http://en.search.wordpress.com/?q=" & $actual_word & "&t=comment&page=" & $page , 0, 0, 1, 0) _IELoadWait($Link_Generate) $text_extract = _IEBodyReadHTML($Link_Generate) _IEQuit($Link_Generate) $pages = _StringBetween($text_extract, 'class=post-title href="','">') If IsArray($pages) Then _ArrayConcatenate($master_array, $pages, 1) EndIf Next _ArrayDelete($master_array, 0) $arry_unic = _ArrayUnique($master_array) For $1 = 1 To UBound($arry_unic) - 1 $prima_culoare = GUICtrlCreateListViewItem("|"&$arry_unic[$1], $ListView1) Next Next MsgBox(64,"Info","Finish !") $salvare_totala = FileSaveDialog("Save...",@DesktopDir,"Text files (*.txt)","",GUICtrlRead($Input1)) If Not @error Then Local $saves = FileOpen($salvare_totala&".txt", 1) For $i = 0 To _GUICtrlListView_GetItemCount($ListView1)-1 FileWrite($saves,_GUICtrlListView_GetItemTextString($ListView1,$i)&@CRLF) Next EndIf EndSwitch WEnd Edited November 2, 2012 by incepator Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now