Ta bort vad som hellst

Har en array som ser ut såhär: 2005-05-16^18A;2005-05-16^20A;

Har ett script som söker igenom arrayen efter ett specefikt datum. Jag vill att den ska ta bort alla datum men änven det som är efter ^. Har kommit på något sådant här, men vet inte hur jag ska få bårt både datumet och det efter ^.

'---- Söker i Sessionen ----
	IStr = InStr(strSession, Monday)
	Do until IStr = 0

'---- Om sökningen gav resultat tar vi bort dom ----
	If Not IStr = 0 Then
		strSession = Split(strSession,";")
		FilterDatum = Filter(strSession, Monday, False, 1)
		ArryDatum = Join(FilterDatum,";")
		Session("strSessionDatum") = TempSession
	End IF
	loop

Om du hittar datumet vill du ta bort alla andra datum plus det som är efter ^?

Session("strSessionDatum") = Monday

Borde väl räcka? Behöver ju inte ta bort nått, bara tilldela variablen det du vill den skal innehålla?

Nja... förstod itne riktigt vad du menade... men om du menade så som jag trod du gjorde så går juh inte det.

Det kommer att bli en väldigt massa datum där sedan, och för att behålla dom måste jag väll göra som som jag har gjort nu.. andvänder denna för att ta bort specefika datum och ^TaskCode's...

'---- Söker i Sessionen ----
	IStr = InStr(strSession, sokDatum)

'---- Om sökningen gav resultat tar vi bort den ----
	If Not IStr = 0 And Del = "Ja" Then
		strSession = Split(strSession,";")
		FilterDatum = Filter(strSession, sokDatum, False, 1)
		ArryDatum = Join(FilterDatum,";")
		Session("strSessionDatum") = ArryDatum

Men nu skall jag ta bort alla datum och alla TaskCode's som här till

Har kommit en bit på vägen... skall andvända denna för att få fram efter ^ och sedan skall jag andvända en ifsats som ser om det finns något ; finns det inte det ökar jag med en siffra... men denna tenderar ett fel...

Felkod:Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Mid'

strSe = Mid(Session("strSessionDatum"),InStr(Session("strSessionDatum"), Monday), 12)

Jag förstår inte.

Om du ska ta bort alla datum och även det som är efter ^ så är det ju bara att tömma din sessionsvariabel???

inte alla.. skall ta bort alla datum som är samma.. kanske inte skrev det förut :r

Det kommer att vara massa datum. Men dom har olika TaskCode's efter ^.

Jag tror att denna kan funka. Men, så får jag felmedelande vid Mid

'---- Söker i Sessionen ----
	Do until IStr = "0"

'---- Om sökningen gav resultat tar vi bort dom ----
		strSe = Mid(Session("strSessionDatum"),InStr(Session("strSessionDatum"), Monday), 13)
		strSe = InStr(strSe, ";")
		If strSe = "0" Then 
			strSe = Mid(Session("strSessionDatum"),InStr(Session("strSessionDatum"), Monday), 15)
		End If
		[B]strSession = Split(Session("strSessionDatum"),";")[/B]
		Response.Write strSe
		FilterDatum = Filter(strSession, StrSe, False, 1)
		FilterDatum = Join(FilterDatum,";")
		Session("strSessionDatum") = FilterDatum
	loop

Behöver jag splitta den? (Där den är fetstil)

Är det inte bättre att se till att inte lagra datumet i sessionsvariabeln om det redan finns där?

Meningen är att det kan vara massa datum som är samma men med olika tskaCode. Det är en 2dimad array och varje rad har en taskCode och varje ruta har ett datum. Man skall kunna markera en hel rad nedåt. och då blir det samma datum men olika radnummer. Med detta scriptet skulle jag då ta bort en rad nedåt