"bsn" <bsn_NoSpam_@oncable.dk> skrev i en meddelelse
news:400e3df2$0$285$edfadb0f@dread12.news.tele.dk...
> Hej NG
> Jeg skal søge i en streng, som jeg bygger op til en email-adresseliste med
> do..loop.
> Hvis en email-adresse forekommer i strengen, skal den ikke medtages igen.
>
> Rs.MoveFirst
> Do Until Rs.EOF
> If Not Rs!Email = "" Then
> Temp = Rs!Email
> If InStr(1, Adresseliste, Temp, 1) <> 1 Then
> Adresseliste = Adresseliste & Temp & ";"
> End If
> End If
[snip kode]
> Jeg får samme adresse med flere gange.
InStr returneret positionen, hvor strengen forekommer. Når du bruger '<>1'
som kreterium, får du adresserne med, hvis ikke de lige står på position 1 -
altså, hvis en adresse findes i listen og begynder i position 117, så får du
den med.
Din InStr-sætning skal have '= 0' som kriterium (altså hvis den søgte streng
ikke findes).
--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder:
www.railsoft.dk/medier.asp