Thanks Phil..
I might go with your option as the dictionary is fairly short.
At 2:17 PM -0700 25/9/06, Phil M wrote:
On Sep 25, 2006, at 2:08 PM, Phil M wrote:
Function KeyStartsWithString(Extends d As Dictionary) As String()
Dim matchedList() As String
For Each v As Variant In d.Keys
If (v.Type = Variant.TypeString) Then
// want to limit the match to beginning of string
If v.StringValue.InStr(searchStr) = 1 Then
matchedList.Append(v.StringValue)
End If
Next
matchedList.Sort
Return matchedList
End Function
Sorry, there was an "s" variable in the last post... changed it to
"v.StringValue".
Also, I added a Sort just before the end, so everything is in nice
alphabetical order.
--
Cheers,
Dr Gerard Hammond
MacSOS Solutions
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
