This won't be fast.
As you read in each line, add it to a string.
But before adding each line, do a test to see if already in the string.
VB Code:
If InStr(1,sBuilding,sCandidate)=0 then Add to your count Concatenate sCandidate onto end of sBuilding End If




Reply With Quote