Jag skapar och lägger till poster i en array med denna loop.
Do Until RecSet.Eof
dbSok = RecSet(dbField)
If inStr(dbSok,frmSok) Then
cntMatch = cInt(cntMatch) + 1
ReDim aMatch(cInt(cntMatch))
aMatch(cInt(cntMatch)) = RecSet("kontaktID")
End If
RecSet.MoveNext
Loop
Sedan vill jag kolla om alla posterna i arrayen har fått samma värde för att kunna skriva ut endast unika poster. Hur gör man?
query="select distinct kontaktid from t where dbfield like '%" & frmSok & "%'"
set rs = conn.execute(query)
if not rs.eof then
' gör något positivt
end if
function checkDuplicate(m,i)
dim j
for j = 0 to i - 1
if m(j) = m(i) then
checkDuplicate = true
exit function
end if
next
checkDuplicate = false
end function
for i = 0 to ubound(aMatch)
if not checkDuplicate(aMatch,i) then
response.write aMatch(i) & "<br>"
end if
next
Tyvärr så funkar inte det där som jag vill. Säg att arrayen ser ut såhär: aMatch(1,1,1,2,2,3,4,4,5). Då vill jag skriva ut 1, 2, 3, 4 och 5 varsin gång, men inte 1 tre gånger, 2 två gånger osv.
Funkar det inte om du använder LarsGs kod sisomså:
function checkDuplicate(m,i)
dim j
for j = 0 to i - 1
if m(j) = m(i) then
checkDuplicate = true
exit function
end if
next
checkDuplicate = false
end function
for i = 0 to ubound(WordArray)
if not checkDuplicate(WordArray,i) then
response.write WordArray(i) & "<br>"
end if
next
