Hejsan! Hej. Du kan testa denna funktion: Använd funktionen Filter(). Gör exat det du vill:Ta bort data från en array
Jag har en array som heter: delad(i)
själva arrayens värde är tex: 41234,132,552,3412,12
<code>
fvalue = "41234,132,552,3412,12"
delad = split(fvalue,",")
for i = 0 to ubound(delad)
response.write delad(i)
next
</code>
Nu vill jag ta bort tex värdet "132" i arrayen, hur gör jag då?
Sv: Ta bort data från en array
fvalue = "41234,132,552,3412,12"
fvalue = Replace(fvalue, ",132", "")
delad = split(fvalue,",")
for i = 0 to ubound(delad)
response.write delad(i)
next
<edit>
Förlåt. Nu när jag läste rubriken såg jag vad du menade.
Kolla i "tips och trix". där finns säkert något.
</edit>Sv: Ta bort data från en array
<code>
Function deleteIndex(vArr, iIndex)
If Not IsArray(vArr) OR Not IsNumeric(iIndex) Then Exit Function
Dim N
Dim intArrLength
intArrLength = UBound(vArr)
For N = iIndex TO intArrLength
vArr(N) = vArr(N +1)
If N = intArrLength Then Exit For
Next
ReDim Preserve vArr(intArrLength - 1)
deleteIndex = vArr
End Function
fvalue = "41234,132,552,3412,12"
delad = split(fvalue,",")
for i = 0 to ubound(delad)
If delad(i) = "132" Then
'## -- ta bort index från array --
delad = deleteIndex(delad,i)
Exit For
End If
next
</code>
cya,
PatrikBSv: Ta bort data från en array
<code>
fvalue = "41234,132,552,3412,12"
delad = split(fvalue,",")
delad = Filter(delad, "132", False)
for i = 0 to ubound(delad)
response.write delad(i)
next
</code>