Fjern dubletter i streng

prøv denne funktion

<%
function removeDuplicateWords(keyWords)%><%
removeDuplicateWords=""
tmp=split(keyWords,",")%><%keyWd=""
for c=lbound(tmp) to ubound(tmp)
  if inStr(lCase(keyWd),lCase(tmp(c)))=false then
  if keyWd<>"" then keyWd=keyWd&" "%><%keyWd=keyWd&tmp(c)
  end if
next%><%if keyWd<>"" then removeDuplicateWords=trim(keyWd)
end function

%>

Kan ikke få den til at virke, den udskriver ingenting og den kommer ikke med nogen fejl.

du kan rette din sql, som du bruger til at hente id ud af db

Select DISTINCT eteller andet

distinct betyder kun en af hver

kan desværre ikke teste selv.. ellers kunne jeg se om den virkede..

det er mere hvis der er lidt syntax bugs.. f.eks kun bruge en = og ikke == ved sammenligning..

men ideen er her..

DIM parts, line, newLine, found
DIM usedParts()
Dim curRecords, counter

line = 1,8,6,5,4,8,6,5,3,1,1,1,1,7,4,5,6,3,0,4,5,4,8,4,8;
newLine = ""
parts = Split(line,",")

found = "false";

counter = 0;
For Each x in parts
if !IsEmpty(x) then
For Each y in usedParts
  if y == x then
  found = "true"
  end if
Next
 
if found == "false" then
  newLine = newLine + x  " & ","
  counter++
  CurRecords=uBound(usedParts)
REDIM PRESERVE usedParts(CurRecords+1)
usedParts(counter) = x
end if

end if
found = "false"
Next

line = newLine

fik mulighed for at teste:)

det her er meget tættere!!

skal bare lige have den til at fjerne det sidste ,


<%

DIM parts, line, newLine, found
DIM usedParts()
Dim CurRecords, counter

line = "1,8,6,5,4,8,6,5,3,1,1,1,1,7,4,5,6,3,0,4,5,4,8,4,8"
newLine = ""
parts = Split(line,",")

found = "false"
REDIM usedParts(1)
counter = 0
For Each x in parts

found = "false"

For Each y in usedParts
  if y = x then
    found = "true"
  end if
Next
 
if found = "false" then
  newLine = newLine + x  & ","
  CurRecords = uBound(usedParts)
REDIM PRESERVE usedParts(CurRecords+1)
usedParts(counter) = x
counter = counter + 1
end if

Next

line = newLine
response.write(line)

%>

Here you go



<%

DIM parts, line, newLine, found
DIM usedParts()
Dim CurRecords, counter

line = "1,8,6,5,4,8,6,5,3,1,1,1,1,7,4,5,6,3,0,4,5,4,8,4,8"
newLine = ""
parts = Split(line,",")

found = "false"
REDIM usedParts(1)
counter = 0
For Each x in parts

found = "false"

For Each y in usedParts
  if y = x then
    found = "true"
  end if
Next
 
if found = "false" then
  newLine = newLine + x  & ","
  CurRecords = uBound(usedParts)
REDIM PRESERVE usedParts(CurRecords+1)
usedParts(counter) = x
counter = counter + 1
end if

Next

line = Left(newLine,LEN(newLine)-1)
response.write(line)

%>

# i Python
y={}
line = "1,8,6,5,4,8,6,5,3,1,1,1,1,7,4,5,6,3,0,4,5,4,8,4,8"
for x in line.split( "," ):
  y[ x ] = 1
print ",".join( y.keys() )
# Python er nemt , python er sjovt

line = "1,8,6,5,4,8,6,5,3,1,1,1,1,7,4,5,6,3,0,4,5,4,8,4,8"
a = Split(line,",")
Set d = Server.CreateObject("Scripting.Dictionary")
For Each x In a
  If Not d.exists(x) then
    d.Add x,1
  End If
Next
Response.write Join(d.Keys,",")

python ? hvad er det for en ged? ;P

.NET ... dog utested, men den burde være temmelig tæt

static string crazyKalp(string line)
{
            if (line.ToCharArray().Length == 0) return string.Empty;
            char spotOne = line.ToCharArray()[0];
            return spotOne.ToString() + "," + crazyKalp(line.Replace(spotOne.ToString(),"").Replace(",",""));
}

Jeg endte med at bruge erikjacobsen's kode, da den er noget kortere end kalp's (den virker dog også helt som den skal), så jeg vil dele point mellem jer.

Men mange tak for hjælpen alle sammen. Og erikjacobsen læg et svar så jeg kan give jer point :)

Jeg samler slet ikke på point, tak.

>>>erikjacobsen
#python
import sets
line = "1,8,6,5,4,8,6,5,3,1,1,1,1,7,4,5,6,3,0,4,5,4,8,4,8"
print ",".join( sets.Set( line.split( "," ) ) )

bauerdata >>
Hvor mange gange skal du lige have at vide at python ikke kan bruges til noget som helst i ASP?? Vil du bare ikke fatte det??

Om ikke andet har jeg nu anmeldt dig for at overtræde §2.1.8 "Det er ikke tilladt at spamme, flame eller skrive indlæg uden relevans for det aktuelle spørgsmål"
http://www.eksperten.dk/regler.phtml

Tror du virkelig at folk vil lære et nyt sprog og omskrive HELE deres eksisterende kode, bare for at løse et lille problem, som sagtens kan klares i det sprog de allerede kender??

erikjacobsen >>> Okay, så får kalp'en bare alle points. Men et tak samler du vel på ;)

gizmo2000 >> du kan også tage de 100point selv:)

bauerdata >> http://support.microsoft.com/kb/276494
for at dine python script skal virke på asp
skal du enten installere python eller activestate python
se linket.
Når det er gjort vil dine scripts køre hvis du gør såden her.

<@LANGUAGE Python%>
<html>
<head></head>
<body>
<h1> http:www.eksperten.dk/spm/788190<h1>
<%
import sets
line = "1,8,6,5,4,8,6,5,3,1,1,1,1,7,4,5,6,3,0,4,5,4,8,4,8"
Response.write( ",".join( sets.Set( line.split( "," ) ) ) )
%>
</body>
</html>