Opdater Array

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsstmredim.asp

Brug ReDim funktionen - se mere på linket!

Dette vil virke, det skulle fremgå af teksten hvad der sker:
<%
dim mitArray
mitArray = "1,2,3,4,5,6"
mitArray= split(mitArray,",")
for t = 0 to uBound(mitArray)
Response.write mitArray(t) & "<br>"
next
Redim Preserve mitArray(2)
for t = 0 to uBound(mitArray)
Response.write mitArray(t) & "<br>"
next
%>

DEt du skal bruge er "Redim Preserve" linien til at lave nye dimensioner i arrayet

hmm jeg er ikke helt med her.

Værdierne der skal fjernes kommer fra en hidden form "Fjern" som er = 4, 5, 6

Hvor skal request.form Fjern ind ??

sætter du ikke 1,2,3,4,5,6 i det samme array?

Jo Jeg har 1,2,3,4,5,6 i myArr
fra en for vælger jeg at 4,5,6 skal pilles ud så der kun er 1,2,3 tilbage

efter udvælgelsen af 4,5,6 skriver du flg:

Redim Preserve myArr(3)

Redim betyder at du definerer et nyt array med størrelsen 3 indeholdende 1,2,3 Preserve betyder at gamle værdier gemmes

Prøv bare at smække mit ovenstående eksempel i en asp side og test det, det virker med sikekrhed....

Jeg må være lam i hovedet for jeg har totalt tabt tråden her.

Dit eksempel virker fint jeg kan bare ikke lige se hvor det er du vælger at 4,5,6 ikke skal med.

Hvordan gør jeg så det kommer med en request.form("Fjern") "indeholder 4,5,6" bliver fjernet ??

Det jeg ville er noget ala det der er vist på denne side http://www.eksperten.dk/spm/97561

Arrayet har med værdierne 1,2,3,4,5,6
en størrelse på 5 (6 ialt idet index 0 tælles med)
med Redim omdefinerer vi det samme array engang til.
Redim mitArray(2)
Definerer det gamle array så det nu kun kan indeholde 3 værdier.
Preserve skal med ellers gemmer den ikke 1,2,3 dvs. den smider alle værdier ud ellers og definerer et array med plads til 3 værdier

jeg gav op og lavede det sådan, og det virker fint.

SQL = "SELECT * FROM microhold WHERE holdID = "&request.querystring("holdID")&" "
Set rs = Connect.Execute(SQL)

NyStreng = request.form("kommuner")
GlStreng = rs("kommuner")
TempStreng = replace(GlStreng,NyStreng,"")

'==========Der er komma først i strengen==========
Tegn = ","
if Tegn = Left(TempStreng, 1) Then
TempStreng = Mid(TempStreng,2,len(TempStreng)-1)
end if

'==========Der er komma sidst i strengen==========
Tegn = ", "
if Tegn = Right(TempStreng, 2) Then
TempStreng = left(TempStreng,LEN(TempStreng)-2)
end if

'==========Der er dobbel komma==========
if Instr(TempStreng,", ,") Then
TempStreng = replace(TempStreng,", ,",", ")
end if


'response.write TempStreng

myArr=Split(NyStreng,",")
rs.close
For i = 0 TO Ubound(MyArr)

temp=myArr(i)

if temp <> "" then

SQL = "SELECT * FROM kommuner WHERE kommuneID = " & temp & ""
Set rs = Connect.Execute(SQL)

SQL = "Update kommuner set valgt= 'x', "
SQL = SQL & "holdID= 0 "
SQL = SQL & " WHERE kommuneID= "& temp
Connect.Execute(SQL)

set rs = nothing