24. maj 2001 - 20:25Der er
2 kommentarer og 1 løsning
Hva\' gør jeg galt?
Hej \'eksperter\',
For at opdele en streng (som senere skal bruges til noget søgning) har jeg lavet følgende kode .. jeg har bare det problem at den opretter to tomme arrays også.
Er der nogen der kan se hvad jeg gør galt. Er dog IKKE interesseret i anden kode som gør noget lignende.
<% dim s, sArray(), i, p
s = \"Min helt specielle streng som skal opdeles nemlig så!\"
redim sArray(1)
i = 0 while s <> \"\" and i < UBound(sArray) p = InStr(1, s, \" \", 1) if p > 1 then sArray(i) = Left(s, p-1) i = i + 1 elseif p = 0 then sArray(i) = s p = Len(s) i = i + 1 end if s = Mid(s,p+1) if( i >= UBound(sArray)) then ReDim Preserve sArray(i+1) end if wend %>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Problemet er, at du omdimensionerer sArray i løkken EFTER at du har indsat noget, og uden at vide om du rent faktisk har brug for det ekstra element. Prøv følgende (som jeg dog ikke har testet):
dim s, sArray(), i, p
s = \"Min helt specielle streng som skal opdeles nemlig så!\"
i = 0 while s <> \"\" and i < UBound(sArray) p = InStr(1, s, \" \", 1) if p > 1 then ReDim Preserve sArray(i+1) sArray(i) = Left(s, p-1) i = i + 1 elseif p = 0 then ReDim Preserve sArray(i+1) sArray(i) = s p = Len(s) i = i + 1 end if s = Mid(s,p+1) wend
Tak for dit svar.. din kode virkede næsten (har lavet nogle små ændringer) men da du har hjulpet mig til at se hvad jeg gjorde galt har du fortjent dine point. Tak for hjælpen.
Her er koden:
dim s, sArray(), i, p
s = \"Min helt specielle streng som skal opdeles nemlig så!\"
i = 0 while s <> \"\" p = instr(1, s, \" \", 1) if p > 1 then redim preserve sArray(i+1) sArray(i) = left(s, p-1) i = i + 1 elseif p = 0 then sArray(i) = s p = len(s) i = i + 1 end if s = mid(s,p+1) wend
\' Her løber vi igennem vores array og udskriver alle værdier For n = LBound(sArray) To UBound(SArray) Response.Write \"sArray(\"& n &\") = \"& sArray(n) & \"<br>\" Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
