Slet fra Array

Hm...

function remove(index,myarray)
For i = 0 to Ubound(myarray)
If index <> i Then
buildarray = buildarray & myarray(i)
End if
If i <> Ubound(myaaray) Then
buildarray = buildarray & \",\"
End if
Next
remove = Split(buildarray, \",\")
End function

Jeg tester den lige lidt senere i dag .. tak

Hej ... Nu er det tid til at teste ... jeg ved godt det er lidt sent, men kan du forklare mig helt præcist hvad funktionen gør og hvad de forskellige variabler er?

Jeg forstår det som om at \'index\' er den variabel jeg vil fjerne fra arrayet og \'myarray\' selvfølgelig er mit oprindelige array.

Men vil det sige at hvis jeg skriver eks: remove(7, arrID) så vil jeg få præcis det samme array som jeg havde før men bare UDEN 7 tallet og hvor 45 har overtaget pladsen?

/Kotelet

Hvis du bruger denne istedet, så ja:

function remove(index,myarray)
For i = 0 to Ubound(myarray)
If index <> myarray(i) Then
buildarray = buildarray & myarray(i)
End if
If i <> Ubound(myaaray) Then
buildarray = buildarray & \",\"
End if
Next
remove = Split(buildarray, \",\")
End function

netsrac>> vil den ikke fjerne begge 7\'erne??

Hmm .. kan ikke få det til at virke :-(

FUNCTION remove(index,myarray)
FOR i = 0 TO Ubound(myarray)
    If index <> myarray(i) Then
        buildarray = buildarray & myarray(i)
    End if
    If i <> Ubound(myaaray) Then
        buildarray = buildarray & \",\"
    End if
Next

remove = Split(buildarray, \",\")
END FUNCTION


strRemove = Request.Form(\"id\")

strProducts = Session(\"products\")
arrProducts = Split(strProducts, \",\")

arrProducts = remove(strRemove, arrProducts)

Response.Write arrProducts

Jef får en fejl der hedder:

Type mismatch: \'Ubound\'

/include/remove.asp, line 7

...

Yes .. Jeg lavede mit eget script ... det fungerede efter lidt arbejde:

strRemove = Request.Form(\"remove\")

strOrders = session(\"orders\")
arrOrders = Split(strOrders,\",\")

FOR i = 0 TO UBound(arrOrders)
    IF arrOrders(i) = strRemove THEN
        strRemove = \"\"
    ELSE
        IF strNewOrders = \"\" THEN
            strNewOrders = arrOrders(i)
        ELSE
            strNewOrders = strNewOrders & \", \" & arrOrders(i)
        END IF
    END IF
NEXT


Session(\"Orders\") = strNewOrders
Response.redirect \"/viewcart.asp\"

Du behøver ikke forstå hvad mine variabler er, jeg skriver det bare for at du kan se jeg rent faktisk selv løste problemet :-) ...

Du skal have mange tak for hjælpen alligevel ...