Comments on: Ravine Enivar

By: Michael

Michael — Fri, 15 May 2009 20:38:00 +0000

Hi Dick -

After reaching a certain maturity, whenever something comes into memory, something goes out. And we’re not given to know what goes out. At least that’s how it is for me. Memory is third thing to go, and I forgot what the other two are.

Potential MIDW posted over at Doug’s site.

…mrt

By: Some string functions « Newton Excel Bach, not (just) an Excel Blog

Some string functions « Newton Excel Bach, not (just) an Excel Blog — Fri, 15 May 2009 12:49:00 +0000

[...] string functions Posted on May 15, 2009 by dougaj4 It was pointed out in a comment to this post at Daily Dose of ExcelA that VBA has a StrReverse function that will (logically enough) reverse a string.A That’s [...]

By: gruff999

gruff999 — Thu, 14 May 2009 13:17:00 +0000

Notepad is only good for a screenful or two of 'search n replace'. I joined some colelagues on a job once which involved them starting off a very large S'n'R in Notepad and then saying "Right, that's lunch, it'll take an hour to run", my helpful suggestion to use Word and do it in 2 seconds was welcomed with open arms.

Gareth

Hawaiian Tropic Talent Scouting Agency (Elephant Island Office - Antarctica)

By: Dick Kusleika

Dick Kusleika — Wed, 13 May 2009 14:40:00 +0000

Mine takes 4.9 seconds. Tushar’s takes 4.5 seconds. Using the built in StrReverse in Tushar’s took 3.6 seconds.

Now how did I not now about StrReverse?

Roy: We once spelled words using Excel’s column headings, so there’s nowhere to go but up.

By: Michael

Michael — Tue, 12 May 2009 15:42:00 +0000

Hi Dick -

No need to roll your own ReverseString(). There's StrReverse() in VBA6.

...mrt

By: Roy MacLean

Roy MacLean — Tue, 12 May 2009 10:32:00 +0000

It’s good to see the VBA community is really getting to grips with the major technological challenges of the 21st century Ah well, back to that perpetual motion machine …

By: Tushar Mehta

Tushar Mehta — Tue, 12 May 2009 06:30:00 +0000

Don't know how much these improvements help but here they are.

First, recognize that words that meet the requirement must have an even number of characters.

Second, compare the 1st half of each word with the last half working from the outside in.

Third, the character-by-character test can stop at the first failure.

Combining the above:

Option Explicit

Sub Enivar()

Dim sFname As String, lFnum As Long, sInput As String

sFname = "c: emporchydict.txt"
lFnum = FreeFile

Open sFname For Input As lFnum
Do While Not EOF(lFnum)
Input #lFnum, sInput
Dim vaWords As Variant, I As Long
vaWords = Split(sInput, " ")
For I = LBound(vaWords) To UBound(vaWords)
If Offset13(vaWords(I)) Then Debug.Print vaWords(I)
Next I
Loop
Close lFnum
End Sub

Function Offset13(ByVal aWord As String) As Boolean
Dim I As Integer, WordLen As Integer
WordLen = Len(aWord)
If WordLen Mod 2 <> 0 Then Exit Function
aWord = UCase(aWord)
For I = 1 To Len(aWord) / 2
If Abs(Asc(Mid(aWord, I, 1)) - Asc(Mid(aWord, WordLen + 1 - I, 1))) <> 13 Then _
Exit Function
Next I
Offset13 = True
End Function

The resulting list:
an
bo
CP
Er
fans
fobs
freres
gant
gnat
grivet
GT
Hu
iv
Livy
Lyly
na
nana
Ob
pc
ravine
re
rebore
rive
robe
serf
SF
tang
TG
thug
uh
vi

By: John Walkenbach

John Walkenbach — Mon, 11 May 2009 23:36:00 +0000

I had a feeling you might post something like this.

How long did it take run?

By: Doug Jenkins

Doug Jenkins — Mon, 11 May 2009 22:49:00 +0000

Looks like GNAT and TANG are the longest ones that spell an English word in both directions.