> I like the idea of sharing tips. You don't know what you don't know.
Here's a couple ones I use regularly. Utilizing selected text for different things: Have a hotkey (I use F4) with the command: Clip Copy More Commands: cliptxt = clip.get Menu Show Menu: [EMAIL PROTECTED] Under the Commandlist: Menu: Assorted I have things like: Name: URL Command: cliptxt = ReplaceChars(cliptxt, "\r\n", "") More Commands: &(cliptxt) Name: &Google Search (note the & underlines G in google so I can keyboard shortcut when the menu opens) Command: cliptxt = ReplaceChars(cliptxt, " ", "+") More Command: http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=&;(cliptxt) Name: Acronym Finder Command: http://www.acronymfinder.com/af-query.asp?String=exact&Acronym=&;(cliptxt)&Find=Find Name: E-bay Command: cliptxt = ReplaceChars(cliptxt, " ", "+") More Commands: http://search.ebay.com/search/search.dll?cgiurl=http%3A%2F%2Fcgi.ebay.com%2Fws%2F&MfcISAPICommand=GetResult&ht=1&from=R7&ebaytag1=ebayreg&query=&;(cliptxt) Name: Dictionary.com Command: http://www.dictionary.com/cgi-bin/dict.pl?term=&;(cliptxt) ----------------------------- Name: Send Clipboard as Text Command: Wait 2 More Command: Keys &(clip) Keyboard macro's Name: datel *Keys {datelong} Name: dates *Keys {dateshort} Name: dnt (stands for date and time) *Keys {dateshort} {time} David Troesch | Atlanta, GA | ICQ# 2333123 "Never stand begging for what you have the power to earn." Funstuff: Kids in the back seat cause accidents; accidents in the back seat cause kids. (this signature is created with a keyboard macro calling this script using the command [EMAIL PROTECTED] Put the below into a file called signatures.powerpro under your powerpro scripts folder ; Rev 4/1/04 ; Added serious signature quote and rearranged default signature ; Rev 3/25/04 - Initial Release @SignatureMain ; Define one local variable for each part of the signature, and then fill it with it's part Local Name Name = "David Troesch | Atlanta, GA | ICQ# 2333123\r\n" ; Put the variable together with the quote-makers and put it in the clipboard Clip.set(Name ++ [EMAIL PROTECTED] ++ "\r\n" ++ "Funstuff: " ++ [EMAIL PROTECTED]) ; and paste it into wherever you're writing Clip.Paste Quit @SignatureVariable ; Define one local variable for each part of the signature, and then fill it with it's part Local Name Name = "David Troesch\r\n" Local Work Work = "A+ Certified Service Professional\r\nMCSA - Microsoft Certified System Administrator\r\nMCSE - Microsoft Certified System Engineer\r\nIT Consultant / Sys Admin / Networking\r\n" Local IM IM = "ICQ# 2333123\r\n" Local AddressPhone AddressPhone = "111 anywhere st\r\nCity, GA, 30123\r\nPhone/Cell: (770) 111-1111\r\n" Local Signature ;Cleaning Signature variable, but I think this is redundant since it's a local variable Signature = "" ; Select what is in the Signature by default Local Name1 = 1 Local Work1 = 0 Local IM1 = 0 Local AddressPhone1 = 0 Local Quote1 = 1 ;Display the prompt to be able to add/remove parts of the signature with your alt-key combos Inputdialog ("Name1=&Name??, Work1=&Work Signature??, IM1=&IM Info??, AddressPhone1=&Address and Phone Number??", "Choose Signature Parts") ; Build the signature from what was selected If (Name1 eq 1) Signature = Name If (Work1 eq 1) Signature = (Signature ++ Work) ;note we don't want a quote with official E-mail's so remove the quote Quote1 = 0 If (AddressPhone1 eq 1) Signature = (Signature ++ AddressPhone) If (IM1 eq 1) Signature = (Signature ++ IM) If (Quote1 eq 1) Signature = (Signature ++ [EMAIL PROTECTED]) Clip.set(Signature) Clip.Paste Quit @SeriousQuote ; Thanks to Alex Peters for this script Local LastQuoteIndexFileLocation = PProFolder ++ "LastQuoteSIndex.txt" Local Quotes = ReplaceChars(ReplaceChars(File.ReadAll(PProFolder ++ "messages\\EmailQuotesSerious.txt"), "\r\n", "\n"), "\r", "\n") Local NextQuoteLoc = 1 If(ValidPath(LastQuoteIndexFileLocation)) Do NextQuoteLoc = (File.ReadAll(LastQuoteIndexFileLocation) % (Length(Quotes) - Length(ReplaceChars(Quotes, "\n", "")) + IfElse(Select(Quotes, -1) == "\n", 0, 1))) + 1 File.DeleteNoRecycle(LastQuoteIndexFileLocation) EndIf File.WriteAll(LastQuoteIndexFileLocation, NextQuoteLoc) ; Quotes = Quotes ++ "\r\n" Quit(ReplaceChars(Line(Quotes, NextQuoteLoc), "|", "\r\n")) @Quote ; Thanks to Alex Peters for this script Local LastQuoteIndexFileLocation = PProFolder ++ "LastQuoteIndex.txt" Local Quotes = ReplaceChars(ReplaceChars(File.ReadAll(PProFolder ++ "messages\\EmailQuotes.txt"), "\r\n", "\n"), "\r", "\n") Local NextQuoteLoc = 1 If(ValidPath(LastQuoteIndexFileLocation)) Do NextQuoteLoc = (File.ReadAll(LastQuoteIndexFileLocation) % (Length(Quotes) - Length(ReplaceChars(Quotes, "\n", "")) + IfElse(Select(Quotes, -1) == "\n", 0, 1))) + 1 File.DeleteNoRecycle(LastQuoteIndexFileLocation) EndIf File.WriteAll(LastQuoteIndexFileLocation, NextQuoteLoc) Quit(ReplaceChars(Line(Quotes, NextQuoteLoc), "|", "\r\n"))
