Hej!
Jag har en Array som ser ut på följande sätt:

Array = Split("Data1,Data3,Data3,Data4,Data1",",")

Nu vill jag tex ta bort position 1 i arrayen (alltså "Data3")

hur gör jag på enklast möjliga sätt?

// Jompa

<code>
Dim Data() As String
Dim Index As Long
Data = Split("Data1,Data3,Data3,Data4,Data1", ",")
For Index = 2 To UBound(Data)
Data(Index - 1) = Data(Index)
Next
ReDim Preserve Data(UBound(Data) - 1)
</code>

Ok, kanonbra... och hur gör jag om jag på ett enkelt sätt skall lägga till en string i arrayen.. tex. "Data6" ?

Hej
ReDim Preserve Data(UBound(Data) + 1)
Nu har du ett fack till och övrigt innehåll intakt
/Sven

Ok, ännu bättre...nu är jag nästan helt klar....en fråga till...


kan man få ut vilken Index ett visst värde har tex. att Data3 har Index = 4 i arrayen?

// jompa

Njaaaa det blir en jäkla soppa.
Är det inte bättre att se till att Data3 alltid ligger i Data(3)
Om du inte har någon Data0 kan du lämna Data(0) tomt mfl.
den/de äter inte bröd där den/de ligger.
Dvs gör arrayen lite större än vad som behövs,och justera sedan.

/Sven

<code>
Function GetIndex(Data() As String, Text As String) As Long
Dim Index As Long
GetIndex = -1 ' Om arrayen är 0 indexerad
For Index = LBound(Data) To UBound(Data)
If Data(Index) = Text Then
GetIndex = Index
Exit For
End If
Next
End Function
</code>