Strange script reaction...

[caramen]

 

Full reproducer bellow

String compare is false dont pay attention at it, i ll fix later.

 

expandcollapse popup

; Script Start
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <Clipboard.au3>
#include <Restart.au3>
#include <GuiListBox.au3>

;~ #RequireAdmin

; Hotkey setup
HotKeySet("{ESCAPE}", "Escape")
HotKeySet("{F1}", "Option")
HotKeySet("{F2}", "Cacher" )
HotKeySet("{F3}", "Rechercher" )
;Global $Var Declaration

Global $Console , $EtatGUI1A , $EtatGui2A , $Exists , $lParam
Global $ListIndex = 1

; Gui 1
$Gui1 = GUICreate("Caramen Copy Paste" , 400 , 460)
$Console = GUICtrlCreateListView("____________________-----------Historique-----------____________________", 10 , 30 , 380 , 300 , $LVS_REPORT)
_GUICtrlListView_SetColumnWidth ($Console , 0 , 800 )
_GUICtrlListView_SetExtendedListViewStyle($Console, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
$Edit =         GUICtrlCreateEdit   ("Ne fonctionne que avec CTRL + C (CTRL+C ajoute la ligne copié)"&@CRLF&@CRLF&"Double clique gauche pour copier une ligne" & @CRLF & "Double clique droit pour effacer une ligne" & @CRLF  &@CRLF  & "Echap pour quitter" , 10, 340, 380, 115)
$Option =       GUICtrlCreateButton ( "Option (F1)" , 10 , 5 )
$Cacher =       GUICtrlCreateButton ( "Cacher (F2)" , 70 , 5 )
$Recherche =    GUICtrlCreateButton ( "Rechercher (F3)" , 135 , 5 )
GUISetState ( @SW_SHOW , $Gui1 )
$EtatGUI1A = "Show"

While (1)
   $msg = GUIGetMsg ()
   Switch $msg
         Case $GUI_EVENT_CLOSE
            Exit
         EndSwitch
   Local $hDLL = DllOpen("user32.dll")
   $Timer = 0
   If _IsPressed ("A2",$hDLL) = 1 Then
      Do
         Sleep (100)
         $Timer += 100
         If $Timer = 3000 Then ExitLoop
      Until _IsPressed ("43")
   EndIf
   If _IsPressed ("A2",$hDLL) =1 + _IsPressed ("43",$hDLL) =1 Then
   Console()
   EndIf
   DllClose ($hDLL)
WEnd

Func Console ()
      Sleep (500)
      $ClipBoard = ClipGet ()
      $IndexAComparer = _GUICtrlListView_GetItemCount($Console)
      MsgBox (0,"",""&$IndexAComparer)
;~    $IndexAComparer -= 1
;~    MsgBox (0,"",""&$IndexAComparer)
      $TextAComparer = _GUICtrlListView_GetItem ( $Console , $IndexAComparer )
      _ArrayDisplay ($TextAComparer)
      MsgBox (0,"",""&$TextAComparer[3])
         If StringCompare ( $ClipBoard , $TextAComparer , 0 ) = 0 Then     ;$STR_NOCASESENSE (0) = not case sensitive, using the user's locale (default)
                                                                           ;$STR_CASESENSE (1) = case sensitive
                                                                           ;$STR_NOCASESENSEBASIC (2) = not case sensitive, using a basic/faster comparison
         Else
;~ ==========================================Console============================================
      _GUICtrlListView_AddItem($Console,""&$ClipBoard)
      _GUICtrlListView_EnsureVisible($Console, _GUICtrlListView_GetItemCount($Console)-1)
;~ =========================================/Console============================================
         EndIf
EndFunc ; Console

Always giving empty Row3 see exemple below : 

If i replace by number 1 like that : 

Sleep (500)
      $ClipBoard = ClipGet ()
      $IndexAComparer = _GUICtrlListView_GetItemCount($Console)
      MsgBox (0,"",""&$IndexAComparer) ; = 1 and 2 on second loop
      $TextAComparer = _GUICtrlListView_GetItem ( $Console , 1 )
      _ArrayDisplay ($TextAComparer)
      MsgBox (0,"",""&$TextAComparer[3]) ;= nothing first loop = what ever i copy on second loop.

Now it s working but only the second time i start it ! ... wtf... 

 

Explanation : 

I made this script it is still the copy past tool.

If i use my $IndexAComparer it is never working like if it worth 0 for ever.. But the message box show correct result 1 2 3 4 5 etc... since it add item each loop.

When i replace this function by the number 1 It is not working on first loop. But it display the wanted text only at second loop. I dont understand...

Edited November 16, 2018 by caramen

[careca]

Show something we can reproduce, you're talking about loops, and i dont see any loop, something can be interfering.

[BrewManNH]

52 minutes ago, caramen said:

... wtf... 

My exact reaction to your post. How do you expect to get any help with a tiny portion of your code, that doesn't demonstrate anything?

You've been here long enough to know that what you posted is worthless to anyone that might be able to help.

[caramen]

@BrewManNH Sry full reproducer done. It was long to do...

 

@careca Done.

Guys. With reproducer it s only working on third time that's an index for the resolution i guess.

Edited November 16, 2018 by caramen

[BrewManNH]

What are you expecting to be in $TextAComparer[3]? Once we know that, we can start to unravel this.

[caramen]

I want actualy to get the text from the list view to make string compare after, depending of the index so i can make For...next. I ll code more after i get it work.

The purpose is to compare the actual clipget to all listview rows so i dont register double copy of the same words.

Edited November 16, 2018 by caramen

[careca]

For that you do a

_GUICtrlListView_GetItemCount

and then loop with

_GUICtrlListView_GetItemText

[BrewManNH]

The whole listview, or just one row of it, because that function only returns a single row?

 

n.b Use _GUICtrlListView_FindInText to search the listview instead, much easier, and it does the comparison for you.

Edited November 16, 2018 by BrewManNH

[careca]

OP said "compare the actual clipget to all listview rows"

So if you FOR loop the count, you can compare each one and if none matches, continue to do whatever.

[BrewManNH]

Missed that.

You'd have to use the count -1, because the listview starts at 0, where the count assumes it starts at 1. Using FindInText would do it as well.

[BrewManNH]

Just for shites and giggles, I looked at the code inside the function FindInText, and it's basically the same thing you posted careca, just adds looking at subitems automatically. Not that it matters in this case, there are no subitems.

[careca]

Exactly

[caramen]

I dont understand why i am watching the help file all the day and miss a so much explicite function.... i dont get it realy...

Becose i find it for listBox so i searched for same with listView

Edited November 16, 2018 by caramen

[caramen]

Can you replace this portion and try ?

I am using it wrong ????

Sleep (500)
      $ClipBoard = ClipGet ()
      $IndexAComparer = _GUICtrlListView_GetItemCount($Console)
      MsgBox (0,"",""&$IndexAComparer)
;~    $IndexAComparer -= 1
;~    MsgBox (0,"",""&$IndexAComparer)
      $TextAComparer = _GUICtrlListView_GetItemText  ( $Console , $IndexAComparer )
      MsgBox (0,"",""&$TextAComparer)

 

[caramen]

nvm i figure out what was wrong.

[caramen]

11 hours ago, BrewManNH said:

Just for shites and giggles, I looked at the code inside the function FindInText, and it's basically the same thing you posted careca, just adds looking at subitems automatically. Not that it matters in this case, there are no subitems.

So if i add a line with the number of the line i ll have sub item if i want to do same i have to use

FindInText

in stead of

_GUICtrlListView_GetItemText

Correct ?

[FrancescoDiMuro]

@caramen

He was meaning _GUICtrlListView_FindInText().

By the way, explain what is your goal with this portion of script, and we'll try to help you

[caramen]

@FrancescoDiMuro Yeah ok ... If i do was i said... if i add a SubItem with the number. The purpose is just to give indication to end user so if he got a looot of copied data he can go where he seen the wanted data.

 

No more^^

Edited November 17, 2018 by caramen

[careca]

Im having a hard time understanding you.

In order to add a subitem you need to write into that specific 0-based index, the original portion from the first subtitem, and then put in the information you want to add into the second subitem, but in order to do that, the listview has got to have 2 columns, so you separate the text in the listview, but im sure you know this, and then when you write the line again you also have to separate it in 2 with the separator, default "|".

 

Edited November 17, 2018 by careca

[caramen]

Do you know guys if i can add a condition to check if there is a drag with mouse so i can record the selection with moose if there is one ?

I mean i want to send Ctrl + C when the user selecting text. And no problem if it s not text i ll manage it.