|
Joined: Jun 2004
Posts: 1,902
Member
|
Member
Joined: Jun 2004
Posts: 1,902 |
OK. Below is the “advanced version.” I have included the “Q” which I believe 2long also replaces, but only when it is a leading “q” in a word such as 2ip, 2ote, or 2een.
Iraq would remain un2uched.
And just 2 make every1 laugh and simply 4 giggles, I added some possible combinations 4 the other obvious variants, like 1 and 4.
So copy and paste the code below, just like my earlier post instructed. (In case it is not in2itive at this point). And enjoy!!!!
NCW
==START OF ADVANCED CODE ============= Sub toolongese() ' ' toolongese Macro ' This macro replaces all the characters that 2long likes to use a 2 4 ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "too" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "to" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "tu" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "two" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "couple" .Replacement.Text = "2ple" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "both" .Replacement.Text = "2th" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = " qu" .Replacement.Text = " 2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "for" .Replacement.Text = "4" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "four" .Replacement.Text = "4" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "one" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "won" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "wun" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
End Sub
|
|
|
|
Joined: Feb 2004
Posts: 8,297
Member
|
Member
Joined: Feb 2004
Posts: 8,297 |
|
|
|
|
Joined: Feb 2002
Posts: 10,816
Member
|
Member
Joined: Feb 2002
Posts: 10,816 |
A1s0, t0uch3d !s a w0rd, st!11, n0t a numb3r/w0rd. !t d03sn't hav3 th3 r32u!s!t3 "2" s0und, but rath3r, a "Tuh" s0und.
And y3s, ! d0 s0m3t!m3s us3 2 !nst3ad of "q", as !n th3 cap!ta1 scr!pt 2!
-01' 210ng
|
|
|
|
Joined: Jun 2004
Posts: 1,902
Member
|
Member
Joined: Jun 2004
Posts: 1,902 |
Hey, did you call her a "twit"? No. It was "too whit". Do you need a 2long de-compiler?
|
|
|
|
Joined: May 2004
Posts: 7,093
Member
|
Member
Joined: May 2004
Posts: 7,093 |
|
|
|
|
Joined: Feb 2004
Posts: 8,297
Member
|
Member
Joined: Feb 2004
Posts: 8,297 |
I, 2, now have a headache.
|
|
|
|
Joined: Feb 2002
Posts: 10,816
Member
|
Member
Joined: Feb 2002
Posts: 10,816 |
K!w!J:
! [email]c@n[/email] [email]m@k3[/email] !+ w0r53, 2!
-01 210ng
|
|
|
|
Joined: Jun 2004
Posts: 1,902
Member
|
Member
Joined: Jun 2004
Posts: 1,902 |
0K,
H3r3 is th3 @dv@nc3d @DV@NC3D v3rsi0n.
It [email]r3p1@c3s[/email] @11 th3 13tt3r “E” with th3 numb3r 3, @11 th3 L’s with th3 numb3r 1, @11 th3 0’s with th3 numb3r 0 @nd just 4 grins I w3nt @h3@d @nd [email]m@d3[/email] @11 th3 @’s 0ut 0f th3 “at” sign.
3v3n th0ugh @ is n0t [email]r3@11y[/email] @ numb3r.
@ppr0v3?
== Start of Advanced Advanced Code ===== Sub toolongese() ' ' toolongese Macro Advanced Version ' This macro replaces all the characters that 2long likes to use a 2 4 ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "too" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "to" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "tu" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "two" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "couple" .Replacement.Text = "2ple" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "both" .Replacement.Text = "2th" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = " qu" .Replacement.Text = " 2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "for" .Replacement.Text = "4" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "four" .Replacement.Text = "4" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "one" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "won" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "wun" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "e" .Replacement.Text = "3" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "a" .Replacement.Text = "@" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "l" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "o" .Replacement.Text = "0" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
End Sub
|
|
|
|
Joined: May 2004
Posts: 7,093
Member
|
Member
Joined: May 2004
Posts: 7,093 |
I, 2, now have a headache. Yep, hangin' out with brains will do that to you. I'm still looking for the "flash" of light in the sunset, long after I have forgotten what color that flash is supposed to be...green or blue, I forget. I try to tell of the things I have learned here, but still all I get is that "caught in the headlights" look. Which reminds me of a poem called "Caught in the Headlights"...but I digress. And when one starts using phrases like "but I digress", one knows they have been around 2long. <img src="/ubbt/images/graemlins/grin.gif" alt="" />
|
|
|
|
Joined: Feb 2002
Posts: 10,816
Member
|
Member
Joined: Feb 2002
Posts: 10,816 |
ncw:
N0w, y0u n33d 2 @dd:
5 4 "s"
! 4 "i"
+ 4 "t"
+h3r3 [email]m@y[/email] b3 m0r3, 2! '01 210ng
|
|
|
|
Joined: Feb 2004
Posts: 8,297
Member
|
Member
Joined: Feb 2004
Posts: 8,297 |
ROTFLMAOPMP!!!!!!!!!
You really are a very clever man - it's quite scarey. Put you together with 2long and the brainpower is a bit overwhelming.
|
|
|
|
Joined: Feb 2004
Posts: 8,297
Member
|
Member
Joined: Feb 2004
Posts: 8,297 |
Weaver, I know what you're saying.
Thing is, words have always been my thing, they don't frighten me no matter how big they are - it's these guys (and Appy and JL and GC) that scare me.
|
|
|
|
Joined: May 2004
Posts: 7,093
Member
|
Member
Joined: May 2004
Posts: 7,093 |
Weaver, I know what you're saying.
Thing is, words have always been my thing, they don't frighten me no matter how big they are - it's these guys (and Appy and JL and GC) that scare me. Brains coupled with humour is a scary thing...but without (the humour)it is a downright shame.
|
|
|
|
Joined: Feb 2002
Posts: 10,816
Member
|
Member
Joined: Feb 2002
Posts: 10,816 |
[email]w3@v3r:[/email] There are a lot of good sites about the green flash, but this one has the most pic2res I could find: http://www.intersoft.it/galaxlux/GreenFlashGallery.htmI've heard tell that Venus can do a green flash, 2. But I've never seen it. ...I have seen a "moonbow", though! -ol 2long
|
|
|
|
Joined: May 2004
Posts: 7,093
Member
|
Member
Joined: May 2004
Posts: 7,093 |
Okay Jen (cus I know you like poetry), the poem I was thinking of was not called "Caught in the Headlights", is was this one (below) by William Stafford.
Now some might think this is a sad poem, but I like it...because this is life, and hard decisions.
And then I'll let ya'll get back to your coding and decoding fun.
Traveling Through The Dark Traveling through the dark I found a deer dead on the edge of the Wilson River road. It is usually best to roll them into the canyon: that road is narrow; to swerve might make more dead.
By glow of the tail-light I stumbled back of the car and stood by the heap, a doe, a recent killing; she had stiffened already, almost cold. I dragged her off; she was large in the belly.
My fingers touching her side brought me the reason-- her side was warm; her fawn lay there waiting, alive, still, never to be born. Beside that mountain road I hesitated.
The car aimed ahead its lowered parking lights; under the hood purred the steady engine. I stood in the glare of the warm exhaust turning red; around our group I could hear the wilderness listen.
I thought hard for us all--my only swerving--, then pushed her over the edge into the river.
William Stafford
|
|
|
|
Joined: Feb 2002
Posts: 10,816
Member
|
Member
Joined: Feb 2002
Posts: 10,816 |
|
|
|
|
Joined: May 2004
Posts: 7,093
Member
|
Member
Joined: May 2004
Posts: 7,093 |
Thank you 2long. I'm going to witness that someday.
|
|
|
|
Joined: May 2004
Posts: 2,621
Member
|
Member
Joined: May 2004
Posts: 2,621 |
[email]W3@v3r[/email], 3t. @1,
This is y0ur [email]br@in[/email] 0n 210ng w0rds.
PS: Sun d0gs @r3 v3ry c0mm0n h3r3.
"Never forget that your pain means nothing to a WS." ~Mulan
"An ethical man knows it is wrong to cheat on his wife. A moral man will not actually do it." ~ Ducky
WS: They are who they are.
When an eel lunges out And it bites off your snout Thats a moray ~DS
|
|
|
|
Joined: Jun 2004
Posts: 1,902
Member
|
Member
Joined: Jun 2004
Posts: 1,902 |
OK. I think I have it with further enhancements. Sample text: Now is the time for all good men to come to the aid of their country. Same text with all 2long's enhancements: N0w !5 +h3 +!m3 4 @11 g00d m3n 2 c0m3 2 +h3 @!d 0f +h3!r c0un+ry. Same text with NEW modification - the word reverser: woN si eht emit rof lla doog nem ot emoc ot eht dia fo rieht yrtnuoc . Same text with the 2upled solution of toolongese AND reversing: 1 5! 3h+ 3m!+ r0f 11@ d00g n3m 0+ 3m0c 0+ 3h+ d!@ f0 r!3h+ yr+nu0c .
|
|
|
|
Joined: Jun 2004
Posts: 1,902
Member
|
Member
Joined: Jun 2004
Posts: 1,902 |
Final revision of toolongese
===START OF CODE====== Sub toolongese() ' ' toolongese Macro ' This macro replaces all the characters that 2long likes to use a 2 4 ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "too" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "to" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "tu" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "two" .Replacement.Text = "2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "couple" .Replacement.Text = "2ple" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "both" .Replacement.Text = "2th" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = " qu" .Replacement.Text = " 2" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "for" .Replacement.Text = "4" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "four" .Replacement.Text = "4" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "one" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "won" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "wun" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "e" .Replacement.Text = "3" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "a" .Replacement.Text = "@" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "l" .Replacement.Text = "1" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "o" .Replacement.Text = "0" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "s" .Replacement.Text = "5" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "i" .Replacement.Text = "!" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find .Text = "t" .Replacement.Text = "+" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll
End Sub
|
|
|
0 members (),
166
guests, and
43
robots. |
Key:
Admin,
Global Mod,
Mod
|
|
|
|
Depression
by ClarencePeterson - 09/22/24 11:19 AM
|
|
|
|
|
|
Forums67
Topics133,607
Posts2,323,424
Members71,872
|
Most Online3,185 Jan 27th, 2020
|
|
|
|