Split i asp

Er din string tom?

Kunne det tænkes du har et loop lige efter eksvis som dette:

arr = split(str, ",")
for i = 0 to XX
...
next

Så prøv at lave det om så den som dette:
arr = split(str, ",")
for i = lbound(arr) to ubound(arr)
...
next


Eller prøv at vise hvad linje 51 er. Det er nok for di du bruger arrayet arr(X) som så ikke findes.

arr nej jeg læser/loop fra et textdoc. så det går jeg ikke ud fra...

Do until objTextS.AtEndOfStream
sentence = objTextS.ReadLine
  if( InStr( sentence, word ) > 0 ) then
    Udskrive = sentence
  End If
Loop
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing

myarray = Split(Udskrive, "/")

Der ligger en okay forklaring på split her: http://archive.devx.com/upload/free/features/zones/asp/articles/2000/tacticalasp2.asp

men kan jeg lave en if som hedder
If Not lbound(arr) = true Then

myarray = Split("", "/")
response.write myarray(0)

giver præcis din fejl

Du kan tjekke om du myarray er et array sådan her:

myarray = Split(Udskrive, "/")
if isArray(myarray) then

  udfør koden

else
  'Fejl myarray er ikke et array

end if

Det ER et array, eagleeye. Blot med ubound på -1

Ja derfor er linje 51 intrasant for hvad der står i den nok noget med myarray(x) hvor x>0

Og, ameq, løsningen er allerede givet:

  for i = lbound(arr) to ubound(arr)

Udskriver myarray(0)

=)

alsår line 51

Og det er fordi din søgning ikke gav noget resultat.
"Udskrive" er tom.

kan man så test sådan her If Not Len(myarray(0) = 0 Then

Jo du kan prøve med:

if Len("" & myarray(0)) > 0 Then
  Udskriv her
end if

Du kan teste for om Udskrive er tom eller om Ubound(myarray) er -1

Var det ikke nemmere at "lytte" til erikjacobsen, og teste på hvad ubound(myarray) returnerer?
Hvis den giver -1 er der ikke noget indhold.

bliver den alttid -1 hvis den er "tøm"

Nej - kun hvis den er "tom".

;-)

men det er den også for det er en log fil som jeg søger i... eller med andre ord det skulle den være he he =)

men svar lige dem der skal have poining

Ingen point til mig, tak.

Du får nok ikke erikjacobsen til at modtage nogen, men giv nogen til eagleeye for ihærdighed.

myarray = split("",",")

If Not Ubound(myarray(0)) = -1 Then
    Response.Write("JUBII")
End If

okey jeg trorede man kunne det her...

men der giver den her fejl

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'

/1.asp, line 4

OK da - så får du alligevel et svar fra mig.

myarray = split("",",")

If Not Ubound(myarray) = -1 Then
    Response.Write("JUBII")
End If

doho =) ja okey me bad =)