jjump Posted September 9, 2008 Share Posted September 9, 2008 (edited) 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 Link to comment Share on other sites More sharing options...
tbodine88 Posted September 9, 2008 Share Posted September 9, 2008 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 = ClipGetIf $Copy = "Ink" ThenFunction1()But this does not work.. Can this be done?IanTry ThisCODE$Copy = Clipget()if StringInstr($Copy,"Ink",0) then Function1()endif tbodine Link to comment Share on other sites More sharing options...
jjump Posted September 9, 2008 Author Share Posted September 9, 2008 Perfect! Thank you! Ian Link to comment Share on other sites More sharing options...
jjump Posted September 9, 2008 Author Share Posted September 9, 2008 Is it also possible to do something like "If $Copy DOES NOT = "Ink" , Then function1()" Thanks Ian Link to comment Share on other sites More sharing options...
jjump Posted September 9, 2008 Author Share Posted September 9, 2008 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 Link to comment Share on other sites More sharing options...
trancexx Posted September 9, 2008 Share Posted September 9, 2008 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}") EndIfWendso, is it working? ♡♡♡ . eMyvnE Link to comment Share on other sites More sharing options...
jjump Posted September 9, 2008 Author Share Posted September 9, 2008 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}") EndIfThat works a lot better....Ian Link to comment Share on other sites More sharing options...
Monamo Posted September 9, 2008 Share Posted September 9, 2008 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.... IanAre 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 - MoChr(77)& Chr(97)& Chr(100)& Chr(101)& Chr(32)& Chr(121)& Chr(97)& Chr(32)& Chr(108)& Chr(111)& Chr(111)& Chr(107)-------I've told you 100,000 times not to exaggerate!-------Don't make me hit you with my cigarette hand...-------My scripts:Random Episode Selector, Keyboard MouseMover, CopyPath v2.1, SmartRename for XP,Window Tracer[sup]New![/sup] 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