Strange script reaction...

[caramen]

@FrancescoDiMuro In this portion of code i whould like to do exactly the same compare.

But the fileread line is not working i got the good syntaxt what's wrong with this ?

 

Func LogCopyPast ()
      ConsoleWrite ("LogCopyPast ()"&@CRLF)
      $File = FileOpen( @ScriptDir&"\Log.txt",  $FO_APPEND )
      $ClipBoardForLog = ClipGet ()
      MsgBox (0,"",""&$ClipBoardForLog)
      $LogLines = _FileCountLines ( @ScriptDir&"\Log.txt" )
      MsgBox (0,"",""&$LogLines)
      For $Ia = 0 To $LogLines
         $LineChanging = FileReadLine ($File , 3 )
         MsgBox (0,"",""&$Ia)
         MsgBox (0,"",""&$LineChanging )        ;EMPTY MSG BOX
         If StringCompare ( $ClipBoardForLog , $LineChanging , 0 ) = 0 Then
            $Match = 1
            ExitLoop
         Else
            $Match = 0
         EndIf
      Next
         If $Match = 1 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
         FileWriteLine ($File , $ClipBoardForLog )
      EndIf
      FileClose ($File)
EndFunc ; LogCopyPast

 

Edited November 17, 2018 by caramen

[FrancescoDiMuro]

@caramen

If you want to read the content of a file, then you need to open it in "read mode", and so, using $FO_READ instead of $FO_APPEND.

If you want to both read and write in a file, then you need to use FileGetPos() and FileSetPos() to "navigate" through the file, or, use two handles for the same file

[careca]

2 hours ago, caramen said:

...a condition to check if there is a drag with mouse...

Maybe while _ispressed 01

[caramen]

1 hour ago, careca said:

Maybe while _ispressed 01

How would you do ?

[caramen]

1 hour ago, FrancescoDiMuro said:

@caramen

If you want to read the content of a file, then you need to open it in "read mode", and so, using $FO_READ instead of $FO_APPEND.

If you want to both read and write in a file, then you need to use FileGetPos() and FileSetPos() to "navigate" through the file, or, use two handles for the same file

Will try.

[caramen]

Thanks it s working :))

[caramen]

The last thing to do is to detect drag after mouse seletion. I am trying multiple ways actualy but failing^^

[careca]

2 hours ago, caramen said:

How would you do ?

While _IsPressed(01)
        Sleep(20)
        ConsoleWrite('_IsPressed'&@CRLF)
    WEnd

 

[caramen]

I am sorry but you cant record a drag of the mouse witht that ^^

Or wait i try before talk

It s working I have to find the best way to do it. Yeah never used while like that thank man

 

Edited November 17, 2018 by caramen

[careca]

Local $aPos, $Get = 0, $IxPos, $IyPos
Do ;Loop
    Sleep(100)
    $aPos = MouseGetPos()
    $IxPos = $aPos[0]
    $IyPos = $aPos[1]
    While _IsPressed(01)
        ;ConsoleWrite('_IsPressed'&@CRLF)
        $aPos = MouseGetPos()
        Sleep(20)
        $Get = 1
    WEnd
    If $Get = 1 And $IxPos <> $aPos[0] Or $IyPos <> $aPos[1] Then
    MsgBox(64 + 262144, '', 'X '&$IxPos - $aPos[0]&' Y '&$IyPos - $aPos[1])
    $Get = 0
    EndIf
Until GUIGetMsg() = $GUI_EVENT_CLOSE