Search found 11 matches

by Jesse
Wed Jul 17, 2019 10:38 am
Forum: Bug Reports
Topic: Doubles entries in the clipboard list when I paste
Replies: 1
Views: 7219

Re: Doubles entries in the clipboard list when I paste

Sorry for the late reply, I just stumbled upon this posting via an unrelated google search. :J But if you use ctrl-V as the hotkey, won't that ask Windows to paste prior to even opening 3dclip's menu? Also even if you could suppress the natural ctrl-V it would rob you of any hotkey to paste most non...
by Jesse
Thu Jul 11, 2019 11:38 pm
Forum: Actions
Topic: ISO8601 timestamp generators
Replies: 0
Views: 114

ISO8601 timestamp generators

ISO8601 is a popular standard for writing out dates and times. The standard has a lot of advantages. When you start a lot of filenames with these timestamps, they will naturally sort into chronological order. When you tag a lot of events with these timestamps, then even when you're working with peo...
by Jesse
Thu Jul 11, 2019 11:17 pm
Forum: Actions
Topic: Handy random number generator (not cryptographically strong, just trivial)
Replies: 1
Views: 823

Re: Handy random number generator (not cryptographically strong, just trivial)

Huh. I updated this script, and must have forgotten to get the latest version over here. Dim max,result max=InputBox("Max Value?", "Random Number Generator", "1e9") If(max <> "") Then 'Detects cancel click, silently exits If((not IsNull(max)) and IsNumeric(max)) Then If(max>=1) Then Randomize result...
by Jesse
Tue May 29, 2018 4:51 pm
Forum: General Discussion
Topic: Version 1.5 - Template Examples
Replies: 1
Views: 19515

Re: Version 1.5 - Template Examples

Well, I just worked out some improvements to the above. This version does not require you to supply a Max from a clipboard entry, instead it completely ignores what clipboard entry you invoke it upon and uses an InputBox to ask you what maximum value you want to use. My code defaults to 1e9 (that's ...
by Jesse
Tue May 29, 2018 4:09 pm
Forum: Actions
Topic: Handy random number generator (not cryptographically strong, just trivial)
Replies: 1
Views: 823

Handy random number generator (not cryptographically strong, just trivial)

Sometimes my roommate and I are coding up something in Secondlife, and we need a large random number to hardcode a channel not likely to be used by anybody else. It would be handy to just have a 3Dclip action to choose such a number for us, so I made one. :) Dim max,min If(IsNumeric(clipboard.value)...
by Jesse
Thu Aug 29, 2013 4:14 pm
Forum: Actions
Topic: Mac address: no punctuation, uppercase (VBscript)
Replies: 0
Views: 14751

Mac address: no punctuation, uppercase (VBscript)

Set s_reTrimWS = New RegExp
s_reTrimWS.Pattern = "[^0-9a-fA-F]"
s_reTrimWS.Global = True

Clipboard.Value = s_reTrimWS.Replace( UCase(Clipboard.Value), "" )
by Jesse
Wed Jul 25, 2012 7:24 pm
Forum: Actions
Topic: Phone: 123-456-7890
Replies: 0
Views: 28353

Phone: 123-456-7890

Most places in north america need phone numbers formatted this way Set s_reTrimWS = New RegExp s_reTrimWS.Pattern = "[^0-9]" s_reTrimWS.Global = True Clipboard.Value = s_reTrimWS.Replace( Clipboard.Value, "" ) If(Len(Clipboard.Value) = 7) Then Clipboard.Value = "541" & Clipboard.Value If(Len(Clipboa...
by Jesse
Wed Jul 27, 2011 1:59 pm
Forum: Actions
Topic: WHITESPACE - trim
Replies: 0
Views: 13665

WHITESPACE - trim

Code: Select all

Set s_reTrimWS = New RegExp
s_reTrimWS.Pattern = "^\s+|\s+$"
s_reTrimWS.Global  = True
 
Clipboard.Value = s_reTrimWS.Replace( Clipboard.Value, "" )
by Jesse
Wed Jul 27, 2011 1:57 pm
Forum: Actions
Topic: MAC - Cisco
Replies: 0
Views: 13931

MAC - Cisco

Format any input mac address (collection of 12 hex digits ignoring any non-hex-digits as if they were messy punctuation) in lowercase dotted 4's the way Cisco gear likes it: Set s_reTrimWS = New RegExp s_reTrimWS.Pattern = "[^0-9a-f]" s_reTrimWS.Global  = True   Clipboard.Value = s_reTrimWS.Replace(...
by Jesse
Wed Jul 27, 2011 1:56 pm
Forum: Actions
Topic: CASE - lower
Replies: 0
Views: 13793

CASE - lower

Lowercase the current clipboard item, in VBscript:

Code: Select all

Clipboard.Value = LCase(Clipboard.Value)
of course, uppercase is the same story:

Code: Select all

Clipboard.Value = UCase(Clipboard.Value)