Slet i Array

Du kan lave en funktion som fjerner et værdi fra arrayet

function removeElement(arr, str)
tmp = ""
for inx1 = 0 to UBound(arr)
  dublet = false
  if Trim(arr(inx1)) = Trim(str) then
    dublet = true
  end if
  if not dublet then
    tmp = tmp & arr(inx1)
    if inx1 < UBound(arr) then
      tmp = tmp & ","
    end if
  end if
next
if Right(tmp,1) = "," then  tmp = Left(tmp,len(tmp)-1)
removeElement = split(tmp,",")
end function


Eks på koden så:

arrnavn = Split("hans,peter,jens,per,lars,ole,thomas", ",")
fjern = "jens"
arrnavn = removeElement(arrnavn,fjern)

Man kan også bruge:

<%
if request.querystring("slet") <> "" then

dim slet, navne, arrNavne, i

slettes = LCase(request.querystring("slet"))
navne = "hans,peter,jens,per,lars,OLE,thomas"
navne = LCase(navne)
response.write "<br><br>Før: " & navne ' kan fjernes

arrNavne = split(LCase(navne), ",")

navne = ""
for i = LBound(arrNavne) to UBound(arrNavne)
  if arrNavne(i) <> slettes then navne = navne & arrNavne(i) & ","
next

navne = left(navne, len(navne) - 1)

response.write "<br><br>efter: " & navne ' kan fjernes
response.write "<br><br>Slettet: " & slettes ' kan fjernes
end if
%>

<a href="?slet=jens">Slet Jens</a>

Du erstatter så bare "jens" med et andet navn: ?slet=jens

Jeg har fået "thesurfer" til at virke.
Men du skal lige lave et svar før jeg kan give point.

Et svar er lavet :)

Takker for point! :)