Inkompatibla typer (array)

8 svar · 296 visningar · startad av ampy 28 okt. 2002

ampyMedlem sedan feb. 20011 498 inlägg

Frågan28 okt. 2002 20:33#1

På denna kod:

	dim myArray

	myArray = Application("online")

	dim iUbound

		If IsArray(MyArray) = true then

		iUbound = Ubound(myArray)

		redim myArray(iUbound+1)

		myArray(iUbound+1) = username & ";" & time() & ";" & "/main.asp"

		else

		[B]myArray(0) = username & ";" & time() & ";" & "/main.asp"[/B]
	
		end if

	application("online") = myArray

Får jag:

Inkompatibla typer

På raden med fetstil, varför?

@ndersMedlem sedan juni 200032 967 inlägg

28 okt. 2002 20:38#2

Du försöker ju lägga in saker på plats 0 i arrayen, trots att isArray(MyArray) är false. Inte så konstigt mao.

mvh,

ampyMedlem sedan feb. 20011 498 inlägg

28 okt. 2002 20:45#3

Hur ska jag skapa arrayen i else-taggen då?

@ndersMedlem sedan juni 200032 967 inlägg

28 okt. 2002 20:48#4

Redim MyArray(0)

borde fjunka.

mvh,

ampyMedlem sedan feb. 20011 498 inlägg

28 okt. 2002 20:56#5

Då får jag detta:

Slut på programsats förväntas.

Och vad jag ser så är det inget fel på citationsteckerna iaf:

Redim myArray(0) = username & ";" & time() & ";" & "/main.asp"

Jesper TMedlem sedan nov. 20017 144 inlägg

28 okt. 2002 21:24#6

Detta då?

Redim myArray(0)
myArray(0) = username & ";" & time() & ";" & "/main.asp"

ampyMedlem sedan feb. 20011 498 inlägg

28 okt. 2002 21:36#7

Nu funkar det bra, har en annan fråga:

Om jag nu vill ta bort tex "posten" där username = "Andreas"

Hur gör man då?

Jesper TMedlem sedan nov. 20017 144 inlägg

28 okt. 2002 21:48#8

Kanske inte helt smidigt men ändå:

myArray(0) = replace(username,"Andreas","Hemliga Arne") & ";" & time() & ";" & "/main.asp"

Jesper TMedlem sedan nov. 20017 144 inlägg

28 okt. 2002 22:18#9

Annars så kanske det går med filter:
Filter(myArray,"Andreas",False)