Jag skulle vilja kontrollera om en array är tom.
Men får då medelandet: Subscript out of range: '[number: 0]'
If IsEmpty(KlarDatum(0)) = False And IsEmpty(KlarTask(0)) = False Then
Array
14 svar · 436 visningar · startad av Boorg
if IsEmpty(KlarDatum)
Andvänder man inte true eller false på isempty?
HEJ!
Boorg skrev:
Använder man inte true eller false på isempty?
Jo, men du behöver inte sätta =true/false om det var det du menade?
http://www.devguru.com/Technologies/vbscript/quickref/isempty.html
Boorg skrev:
Andvänder man inte true eller false på isempty?
Jo, men du kan inte använda referera till ett index som inte finns i din Array KlarDatum*(0)***.
if(IsEmpty(KlarDatum)) then
[blue]'är detsamma som[/blue]
if(IsEmpty(KlarDatum) = true) then
Engine^ skrev:
Boorg skrev:
Andvänder man inte true eller false på isempty?
Jo, men du kan inte använda referera till ett index som inte finns i din Array KlarDatum*(0)***.
if(IsEmpty(KlarDatum)) then [blue]'är detsamma som[/blue] if(IsEmpty(KlarDatum) = true) then
Hmm okej... men hur ska jag göra om jag vill referera till nummer 0. Minsta värdet? så att inte alla värden skrivs ut? måste man loopa igenom det då?
Om det är en array, och om den har något innehåll, så får du ange ett index. Men du måste se till att kontrollera det först.
Hmm okej...
sokDatum = Dateum & "^" & Taskcode
sokSession = Session("srtDatum")
delDatum = Split(sokSession,";")
FilterDatumB = Filter(delDatum, sokDatum, True, 1)
If Not IsEmpty(FilterDatumb) Then
FilterDatumA = Filter(sokSession, sokDatum, False, 1)
ArryDatum = Join(FilterDatumA)
ArryDatum = Split(ArryDatum,";")
Session("srtDatum") = ArryDatum
Else
strDatum = Session("srtDatum") & Dateum & "^" & Taskcode & ";"
Session("srtDatum") = strDatum
ArryDatum = Split(strDatum,";")
End If
Det hörihop med detta... så jag har kommit fram till att det är detta som är problemet... Men inte riktigt vad det är för fel. Har suttit med detta nu konstant i minst 3 timmar och bara stirrat! jag håller på att bli galen...
Jag förstår att du blir galen, koden går ju inte att läsa.
Indentera koden ordentligt till att börja med, så man kan läsa den utan att få huvudvärk när man försöker hänga med.
hmmm.. och hur skall jag indentera min kod?
Tab fungerar bra...
På det här sättet går koden att läsa:
sokDatum = Dateum & "^" & Taskcode
sokSession = Session("srtDatum")
delDatum = Split(sokSession,";")
FilterDatumB = Filter(delDatum, sokDatum, True, 1)
If Not IsEmpty(FilterDatumb) Then
FilterDatumA = Filter(sokSession, sokDatum, False, 1)
ArryDatum = Join(FilterDatumA)
ArryDatum = Split(ArryDatum,";")
Session("srtDatum") = ArryDatum
Else
strDatum = Session("srtDatum") & Dateum & "^" & Taskcode & ";"
Session("srtDatum") = strDatum
ArryDatum = Split(strDatum,";")
End If
Jo det ser juh betydligt lättar ut att läsa.. Men problemet kvarstår...
Det är något knepigt med sessionen tror jag... ibland vill den va med men ibland inte :/