Comments on: Remembering Telephone Numbers http://www.dailydoseofexcel.com/archives/2004/05/13/remembering-telephone-numbers/ Daily posts of Excel tips…and other stuff Wed, 08 Feb 2012 23:58:05 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Dick http://www.dailydoseofexcel.com/archives/2004/05/13/remembering-telephone-numbers/#comment-1508 Dick Fri, 14 May 2004 15:15:00 +0000 http://www.dailydoseofexcel.com/?p=542#comment-1508 <p>Mike: I agree about big nested loops. When I know the number of loops (4 in this case), I'm too lazy to use recursion. I like what you've done though, you just need to add a CheckSpelling line.</p> Mike: I agree about big nested loops. When I know the number of loops (4 in this case), I’m too lazy to use recursion. I like what you’ve done though, you just need to add a CheckSpelling line.

]]> By: Mike Woodhouse http://www.dailydoseofexcel.com/archives/2004/05/13/remembering-telephone-numbers/#comment-1507 Mike Woodhouse Fri, 14 May 2004 12:25:00 +0000 http://www.dailydoseofexcel.com/?p=542#comment-1507 <p>Uurrrgh. I hates big nested loops, I hates 'em. This looked like it was screaming for recursion, so I tried it (below). The code's not as expressive as I would ideally like, but it'll do for now.</p> <p> Option Explicit</p> <p> Private words As Collection<br> Private letters As Variant<br> Private numbers As Variant<br> Private lettersNeeded As Long</p> <p> Public Sub WordsFromPhoneNumber(inputNumber As String)</p> <p> Dim index As Long<br> Dim word As Variant</p> <p> ' from 0 to 9 on my Nokia mobile:<br> letters = Array("0?, "1?, "abc", "def", "ghi", "jkl", "mno", "pqrs", "tuv", "wxyz")</p> <p> ReDim numbers(1 To Len(inputNumber))</p> <p> lettersNeeded = Len(inputNumber)</p> <p> For index = 1 To lettersNeeded<br> numbers(index) = CInt(Mid(inputNumber, index, 1))<br> Next</p> <p> Set words = New Collection</p> <p> BuildWords "", 1</p> <p> For Each word In words<br> Debug.Print word<br> Next</p> <p>End Sub</p> <p>Private Sub BuildWords(wordSoFar, numberIndex)</p> <p>Dim letterIndex As Long<br> Dim nextLetter As String<br> Dim nextWord As String</p> <p> For letterIndex = 1 To Len(letters(numbers(numberIndex)))</p> <p> nextLetter = Mid(letters(numbers(numberIndex)), letterIndex, 1)<br> nextWord = wordSoFar & nextLetter</p> <p> If numberIndex < lettersNeeded Then<br> BuildWords nextWord, numberIndex + 1<br> Else<br> words.Add nextWord<br> End If<br> Next</p> <p>End Sub</p> Uurrrgh. I hates big nested loops, I hates ‘em. This looked like it was screaming for recursion, so I tried it (below). The code’s not as expressive as I would ideally like, but it’ll do for now.

Option Explicit

Private words As Collection
Private letters As Variant
Private numbers As Variant
Private lettersNeeded As Long

Public Sub WordsFromPhoneNumber(inputNumber As String)

Dim index As Long
Dim word As Variant

‘ from 0 to 9 on my Nokia mobile:
letters = Array(“0?, “1?, “abc”, “def”, “ghi”, “jkl”, “mno”, “pqrs”, “tuv”, “wxyz”)

ReDim numbers(1 To Len(inputNumber))

lettersNeeded = Len(inputNumber)

For index = 1 To lettersNeeded
numbers(index) = CInt(Mid(inputNumber, index, 1))
Next

Set words = New Collection

BuildWords “”, 1

For Each word In words
Debug.Print word
Next

End Sub

Private Sub BuildWords(wordSoFar, numberIndex)

Dim letterIndex As Long
Dim nextLetter As String
Dim nextWord As String

For letterIndex = 1 To Len(letters(numbers(numberIndex)))

nextLetter = Mid(letters(numbers(numberIndex)), letterIndex, 1)
nextWord = wordSoFar & nextLetter

If numberIndex < lettersNeeded Then
BuildWords nextWord, numberIndex + 1
Else
words.Add nextWord
End If
Next

End Sub

]]>