---
title: "Hitta dubletter i en array - hur?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46620-hitta-dubletter-i-en-array-hur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "arro"
published: "2002-06-25T18:39:20.000Z"
updated: "2007-05-15T08:11:29.000Z"
replies: 13
views: 838
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46620-hitta-dubletter-i-en-array-hur"
---

# Hitta dubletter i en array - hur?

## #1 — arro, 2002-06-25T18:39Z

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?

Permalänk: https://www.webforum.nu/p/46620

## #2 — LarsG, 2002-06-25T18:47Z

Ställ villkoren direkt i sql-satsen istället

```
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
```

Permalänk: https://www.webforum.nu/p/705368

## #3 — arro, 2002-06-25T19:00Z

Jo, men så ville jag inte göra eftersom jag använder recordsetet till andra grejer oxå, där jag inte vill använda DISTINCT.

Permalänk: https://www.webforum.nu/p/705377

## #4 — Tobbster, 2002-06-25T19:08Z

Gör en nästlad loop och gemmför värdena !

Permalänk: https://www.webforum.nu/p/705381

## #5 — arro, 2002-06-25T19:10Z

Förlåt, jag är trög... men hur?

Permalänk: https://www.webforum.nu/p/705386

## #6 — LarsG, 2002-06-25T19:27Z

Jaha,

```

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
```

Permalänk: https://www.webforum.nu/p/705399

## #7 — arro, 2002-06-25T19:40Z

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.

Permalänk: https://www.webforum.nu/p/705417

## #8 — LarsG, 2002-06-25T19:55Z

Jaså, jag får ut varje värde bara en gång när jag testkör.

Permalänk: https://www.webforum.nu/p/705427

## #9 — arro, 2002-06-26T07:28Z

Ok, nu funkar det. Jag var seg som vanligt. Tack som fan!

Permalänk: https://www.webforum.nu/p/705581

## #10 — KrpSvedberg, 2007-05-15T07:48Z

Vore trevligt om du ville posta den slutgiltiga lösningen. Sitter med exakt samma problem nämligen, emn får inte riktigt ihop era 2 funktioner :P

Permalänk: https://www.webforum.nu/p/1977806

## #11 — @nders, 2007-05-15T07:49Z

Jag tror nog att fem år är lite för lång tid för att någon ska ens minnas att man haft problemet...

Så, hur ser din kod ut?
Arrayinnehållet?

Permalänk: https://www.webforum.nu/p/1977807

## #12 — KrpSvedberg, 2007-05-15T08:04Z

Oj sorry! Såg visst inte datumen :P

```
WordArray = Split(request.Form("chkName"), ", ")
for i = 0 to ubound(WordArray)
    response.Write(WordArray(i) & "<br>")
next
```

Så ser min kod ut. Hämtar värden från CheckBoxar, sparar dessa i en array. Nu vill jag kunna sortera ut dubbletter, utan att använda SQL DISTINCT.

Tack på förhand!

PS Array'en innehåller endast int DS

Permalänk: https://www.webforum.nu/p/1977815

## #13 — @nders, 2007-05-15T08:08Z

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
```

?

Permalänk: https://www.webforum.nu/p/1977818

## #14 — KrpSvedberg, 2007-05-15T08:11Z

Ahaaa! Säger samma som arro här ovan. Seg som vanligt ;) Tusen tack för hjälpen!

Permalänk: https://www.webforum.nu/p/1977820

---

Tråden på webben: https://www.webforum.nu/amne/asp/46620-hitta-dubletter-i-en-array-hur