ClipGet() and If

[jjump]

Hi,

I am trying to make a script which copies some txt from the source, checks to see if it has the work "Ink" in and if it does, it sends a function, if it doesn't, it carries on.. I have tried:

CODE

$Copy = ClipGet

If $Copy = "Ink" Then

Function1()

But this does not work.. Can this be done?

Ian

Edited September 9, 2008 by jjump

[tbodine88]

Hi,

I am trying to make a script which copies some txt from the source, checks to see if it has the work "Ink" in and if it does, it sends a function, if it doesn't, it carries on.. I have tried:

CODE

$Copy = ClipGet

If $Copy = "Ink" Then

Function1()

But this does not work.. Can this be done?

Ian

Try This

CODE

$Copy = Clipget()

if StringInstr($Copy,"Ink",0) then

Function1()

endif

[jjump]

Perfect! Thank you!

Ian

[jjump]

Is it also possible to do something like

"If $Copy DOES NOT = "Ink" , Then function1()"

Thanks

Ian

[jjump]

I have the code like this:

CODE

$Copy = ClipGet()

If StringInStr($Copy, "Ink", 0) Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("Y")

Send("{DOWN}")

Send("{LEFT}")

If Not Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("N")

Send("{DOWN}")

Send("{LEFT}")

EndIf

Wend

[trancexx]

I have the code like this:

CODE

$Copy = ClipGet()

If StringInStr($Copy, "Ink", 0) Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("Y")

Send("{DOWN}")

Send("{LEFT}")

If Not Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("N")

Send("{DOWN}")

Send("{LEFT}")

EndIf

Wend

so, is it working?

[jjump]

so, is it working?

CODE

$Copy = ClipGet()

If StringInStr($Copy, "Ink", 0) Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("Y")

Send("{DOWN}")

Send("{LEFT}")

EndIf

If Not StringInStr($Copy, "Ink", 0) Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("N")

Send("{DOWN}")

Send("{LEFT}")

EndIf

That works a lot better....

Ian

[Monamo]

CODE

$Copy = ClipGet()

If StringInStr($Copy, "Ink", 0) Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("Y")

Send("{DOWN}")

Send("{LEFT}")

EndIf

If Not StringInStr($Copy, "Ink", 0) Then

WinActivate("Rank", "")

Send("{RIGHT}")

Send("N")

Send("{DOWN}")

Send("{LEFT}")

EndIf

That works a lot better....

Ian

Are you referencing the variable $Copy for anything else in your code? If not, you could reduce your amount of code (slightly) by using the following:

If StringInStr(ClipGet(), "Ink", 0) Then
    WinActivate("Rank", "")
    Send("{RIGHT}")
    Send("Y")
    Send("{DOWN}")
    Send("{LEFT}")
Else
    WinActivate("Rank", "")
    Send("{RIGHT}")
    Send("N")
    Send("{DOWN}")
    Send("{LEFT}")
EndIf