Leaderboard

Enough childish behavior .... Use the damn report button or take this offline! *Click*

It's about time someone apologized for it!

how disappointing... I was sure yet that despite that you would be able to understand the script...

For the fun ... I formerly made for myself a litle tool to do this. It's rough (of course) but maybe it could help Sorry for the french language. It should be understandable though Please be indulgent #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> Global Const $__LISTVIEWCONSTANT_WM_SETREDRAW = 0x000B Opt("GUIDataSeparatorChar", ChrW(9617)) $gui = GUICreate("test", 520, 360, -1, 150) $listview = GUICtrlCreateListView("Lignes", 10, 50, 500, 300) GUICtrlSetFont($listview, 8.5, 0, 0, "Tahoma") GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 0, 480) GuiCtrlCreateLabel("Ligne à chercher :", 20, 17, 100, 20) $Input = GUICtrlCreateInput("", 110, 15, 40, 20) $Vazi = GUICtrlCreateButton("Charger le script", 180, 15, 120, 20) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Vazi $n = GuiCtrlRead($Input) ; If $n = "" Then ContinueLoop $au3 = FileOpenDialog("Sélectionner le script à analyser", @scriptdir, "Scripts (*.au3)", 0, "", $gui) If @error Then ContinueLoop $Au3Stripper = _SetAu3Stripper(@tempdir) If @error Then Exit Msgbox(48, "error", "Impossible de charger Au3Stripper") GUICtrlCreateListViewItem("Traitement du script ...", $listview) RunWait('"' & $Au3Stripper & '" "' & $au3 & '" /mergeonly', "", @SW_HIDE) $stripped = StringTrimRight($au3, 4) & "_stripped" & ".au3" $stripped_txt = StringRegExpReplace(FileRead($stripped), '(?m)^\s*#(pragma|include).*\R', "") $lines = StringSplit($stripped_txt, @crlf, 1) GuiCtrlSendMsg($listview, $LVM_DELETEALLITEMS, 0, 0) If $n > $lines[0] Then GUICtrlCreateListViewItem("Le fichier complet n'a que " & $lines[0] & " lignes", $listview) ContinueLoop EndIf GuiCtrlSendMsg($listview, $__LISTVIEWCONSTANT_WM_SETREDRAW, False, 0) For $i = 1 to $lines[0] GUICtrlCreateListViewItem($i & " : " & $lines[$i], $listview) If $i = $n Then GuiCtrlSetColor(-1, 0xdd0000) Next GuiCtrlSendMsg($listview, $__LISTVIEWCONSTANT_WM_SETREDRAW, True, 0) Local $tPoint = DllStructCreate("long X;long Y") GUICtrlSendMsg($listview, $LVM_GETITEMPOSITION, $n-6, DllStructGetPtr($tPoint)) GUICtrlSendMsg($listview, $LVM_SCROLL, DllStructGetData($tPoint, "X"), DllStructGetData($tPoint, "Y")) EndSwitch WEnd Func _SetAu3Stripper($path) Local $exe = $path & "\Au3Stripper.exe" If not FileExists($exe) Then GUICtrlCreateListViewItem("Chargement de Au3Stripper ...", $listview) ;; obsolete :( ;; Local $url = "https://www.autoitscript.com/autoit3/scite/download/beta_SciTE4AutoIt3/Au3Stripper.exe" Local $url = "http://affz.free.fr/Au3Stripper/Au3Stripper.exe" ; v. 16.306.1237.1 InetGet($url, $exe) If @error Then Return SetError(1, 0, 0) _DatFile($path) EndIf Return $exe EndFunc Func _DatFile($path) Local $datfile = $path & "\Au3Stripper.dat" If not FileExists($datfile) Then Local $data = "Functionname,Parameter to check,0=check for function/1=check for Variable;adlibenable,1,0;" & _ "adlibregister,1,0;adlibunregister,1,0;call,1,0;dllcallbackregister,1,0;eval,1,1;guictrlregisterlistviewsort,2,0;" & _ "guictrlsetonevent,2,0;guiregistermsg,2,0;guisetonevent,2,0;hotkeyset,2,0;isdeclared,1,1;objevent,2,0;" & _ "onautoitexitregister,1,0;onautoitexitunregister,1,0;opt,2,0;traysetonevent,2,0;trayitemsetonevent,2,0;" FileWrite($datfile, StringReplace($data, ";", @crlf)) EndIf EndFunc

You have CurrentPageName in your VBA, but only CurrentPage in AutoIt

Using Subz's test data, this method returns the same result as Subz's example. #include <array.au3> Local $a_inArr[][2] = [ _ ["2020-03-11", "122589268273"], _ ["2020-03-12", "6901211441"], _ ["2020-03-13", "6934371045"], _ ["2020-03-11", "6428227853"], _ ["2020-03-16", "7358355171"], _ ["2020-03-17", "7113079607"], _ ["2020-03-18", "6907515243"], _ ["2020-03-11", "122589268273"], _ ["2020-03-12", "6901211441"], _ ["2020-03-13", "6934371045"], _ ["2020-03-11", "6428227853"], _ ["2020-03-16", "7358355171"], _ ["2020-03-17", "7113079607"], _ ["2020-03-18", "6907515243"]] _ArraySort($a_inArr) For $i = UBound($a_inArr) - 1 To 1 Step -1 If $a_inArr[$i][0] == $a_inArr[$i - 1][0] Then $a_inArr[$i - 1][1] = $a_inArr[$i - 1][1] + $a_inArr[$i][1] _ArrayDelete($a_inArr, $i) Else $a_inArr[$i][1] = Round(($a_inArr[$i][1] / 2 ^ 30), 2) ; 1 GB = 2^30 bytes EndIf Next $a_inArr[0][1] = Round(($a_inArr[0][1] / 2 ^ 30), 2) ;ConsoleWrite(_ArrayToString($a_inArr) & @CRLF) _ArrayDisplay($a_inArr, "Outbound Array", Default, Default, Default, "Date|GB")

Hey I forgot to welcome you after your ban. Better to tell you before next one...

Yes I have

@Colduction https://www.autoitscript.com/forum/search/?q=epoch P.S. In case you couldn't find it, the search box looks like this --

You're welcome. On a totally different subject, thank you, I've enjoyed a lot of your Youtube content related to network hardware. Even though I'm retired, I still enjoy playing with that stuff too.

Au3stripper with /mo parameter. /mo : Just merges the Include files into the source and strips the Comments. This is similar to aut2exe and helps finding the errorline.

@thommy_blank I had similar problem and I had to resort to Webdriver UDF to solve the problem. You can visit the following posts to learn about Webdriver UDF.

Hello. Seems to be It uses basic access authentication so you could probably avoid the Popup passing credentials in the url like: https://username:password@www.example.com/ Saludos

TeraCopy Timer updated to v3.5. See first post. (v3.5) Major Update. Program now supports Projects, which can be created or loaded. NOTE - If the program has been used previously and Jobs exist, then they will be migrated to a project when this version update first runs. Project file name is a date based INI file located in the new Projects folder, in the root of the program folder. WARNING - Be wary of the 'Add To List' and 'New List' options (in MIN mode). In other words, double check where additions end up. Even I have been bitten by these changes ... not that I lost anything, a few things just ended up in the wrong destination. Diligence is the name of the game. HINT - Use the 'View List' option (in MIN mode) if unsure. NOTE - I developed this Projects version, because I sometimes had a big project on the go, that I would stop and start for convenience sake. Meanwhile I sometimes got lesser small jobs I wanted to use the program for. Now you can do both.

Just to share the solution for all to find: It was a matter of adding the correct regional code.page and character.set settings to SciteUser.properties: code.page=0 character.set=204 Jos

I've always thought some of the _GUICtrlListView_xxx functions were kind of slow, so after playing around, I've noticed a HUGE speed performance when using hWnd instead Control IDs. Here's an example where I simply rewrote "_GUICtrlListView_DeleteAllItems" to utilize GUICtrlGetHandle().. I created 1200 items, then deleted them here's what I got (in milliseconds) speed for original: 551.475676377864 speed for modified: 9.26290911275036 Hmm... Example #include <GuiListView.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> $Form2 = GUICreate("FEEL THE SPEED", 413, 298, 303, 219) $ListView1 = GUICtrlCreateListView("Test1|Test2", 8, 16, 394, 206) $Button1 = GUICtrlCreateButton("Create", 16, 232, 75, 25, 0) $Button2 = GUICtrlCreateButton("Delete (with Original UDF)", 176, 232, 171, 25, 0) $Button3 = GUICtrlCreateButton("Delete (with Modified UDF)", 176, 264, 171, 25, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 For $i = 1 to 1200 GUICtrlCreateListViewItem("Test1" & $i & "|Test2" & $i, $ListView1) Next Case $Button2 $timer = TimerInit() _GUICtrlListView_DeleteAllItems_ORIGINAL($ListView1) ConsoleWrite("speed for original: :" & TimerDiff($timer) &@lf) Case $Button3 $timer = TimerInit() _GUICtrlListView_DeleteAllItems_MODIFIED($ListView1) ConsoleWrite("speed for modified: " & TimerDiff($timer) &@lf) EndSwitch WEnd ; orginal (included with Autoit) Func _GUICtrlListView_DeleteAllItems_ORIGINAL($hWnd) If $Debug_LV Then _GUICtrlListView_ValidateClassName($hWnd) Local $ctrlID, $index If _GUICtrlListView_GetItemCount($hWnd) == 0 Then Return True If IsHWnd($hWnd) Then Return _SendMessage($hWnd, $LVM_DELETEALLITEMS) <> 0 Else ; this part seems to be SLOOOOOOOOOOW For $index = _GUICtrlListView_GetItemCount($hWnd) - 1 To 0 Step -1 $ctrlID = _GUICtrlListView_GetItemParam($hWnd, $index) If $ctrlID Then GUICtrlDelete($ctrlID) Next If _GUICtrlListView_GetItemCount($hWnd) == 0 Then Return True EndIf Return False EndFunc ;==>_GUICtrlListView_DeleteAllItems ; modified! ;You could also just use: _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView)) Func _GUICtrlListView_DeleteAllItems_MODIFIED($hWnd) If $Debug_LV Then _GUICtrlListView_ValidateClassName($hWnd) Local $ctrlID, $index If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd) If _GUICtrlListView_GetItemCount($hWnd) == 0 Then Return True Return _SendMessage($hWnd, $LVM_DELETEALLITEMS) <> 0 EndFunc ;==>_GUICtrlListView_DeleteAllItems