spilt lang variabel

Hvor mange skal der være i hver sektion?

<%
IntVar = 101011101111010100110010111
For Index = 1 To Len(IntVar)
AryVar(Index - 1) = Mid(IntVar, I, 1)
Next
%>

Nu ville du ha et array med dine værdier, problemet er jo
du ikke kan bruge funktionen Split, når din streng ikke
har noget at blive splittet på, derfor bliver du nødt til
at loope gennem den og gøre det "manuelt" :)

AryVar(Index - 1) = Mid(IntVar, I, 1) <- skal være
AryVar(Index - 1) = Mid(IntVar, Index, 1)

Dvs du kan nu hive din var ud på denne måde

<%
For Index = 0 To UBound(AryVar)
Response.Write AryVar(Index)
Next
%>

bertie > det skal kun være enkelte tal dvs 1 & 0 :)

bluegene Hvad er ideen egentligt i det? Hvis du allerede har din variabel, hvorfor så splitte den så du kan genskabe den?

Mit eksempel skulle virke på den måde du ville ha det

virus > det du omtaler i kommentar 2 skal begge benyttes eller ?

virus, skal ikke genskabe den *G*

skal have værdierne ud sådan så jeg eks kan sige eks er tegn nummer 4.... 1 eller 0

hvis mig der sover lidt i timen her :-s

har skrevet sådan nu

IntVar = "101011101111010100110010111"
For Index = 1 To Len(IntVar)
AryVar(Index - 1) = Mid(IntVar, Index, 1)
Next

men får desværre fejlen

Microsoft VBScript runtime fejl '800a000d'

Type mismatch: 'AryVar'

Test.asp, linje 41

Jamen så skal du bare gøre som virus foreslår.

Du skal sikkert lave en Dim AryVar(), hmm kan ikke lige huske om paranteserne skal være der eller ej.

bertie, well - har lige prøvet og det giver fejlen: Subscript out of range

Har du prøvet med og uden paranteserne?
Ellers prøv lige at smide hele din kode her.

Jo, har prøvet både med/uden

<%
dim AryVar()

IntVar = "101011101111010100110010111"
For Index = 1 To Len(IntVar)
AryVar(Index - 1) = Mid(IntVar, Index, 1)
Next
%>

den skal ikke dimmes as "noget" vel ?

Jeg ved ikke om det kan være noget med tal og bogstaver men prøv evt det her:
<%
dim AryVar()

IntVar = "101011101111010100110010111"
For Index = 1 To Len(IntVar)
  AryVar(Index - 1) = CInt(Mid(IntVar, Index, 1))
Next
%>

Nej i VBScript bruger man ikke AS når man dim'mer.

bertie, nej desværre den giver stadig fejlen

Microsoft VBScript runtime fejl '800a0009'

Subscript out of range

Test.asp, linje 6

Måske skal arrayet have en længde prøv at smide dette ind:
dim AryVar()
redim AryVar(Len(IntVar - 1))  <-- Smid denne ind.
IntVar = "101011101111010100110010111"

Nu blev fejlen ændret en smule til - lader til vi har stortset samme problem :-/ 
Microsoft VBScript runtime fejl '800a0009'

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

Test.asp, linje 6

Hmm går lige i tænkeboks.

Det her virker fint hos mig:
<%
dim AryVar()
IntVar = "101011101111010100110010111"
redim aryvar(len(intvar))
For Index = 1 To Len(IntVar)
    AryVar(Index - 1) = Mid(IntVar, Index, 1)
Next

Response.Write "Nr 3 " & aryvar(2)

%>

bertie > ja, nu virker det sørme *G* Nice, Mange takker for hjælpen :)

Og så en anelse optimeret:

<%
dim AryVar()
IntVar = "101011101111010100110010111"
redim aryvar(len(intvar) - 1)
For Index = 1 To Len(IntVar) - 1
    AryVar(Index) = Mid(IntVar, Index, 1)
Next

Response.Write "Nr 3 " & aryvar(2)

%>

Velbekom, men mon ikke virus også skal have nogle point da det var ham der kom med koden først, virus sig lige til så ordner vi det.

roenving>> jo glemte lige -1 i farten, har lige testet det og det funker :-)

roenving > din optimering, giver hvis et forkert "tal" vi stater fra 0 ikke sandt ?

Undskyld, jeg glemte lige:

For Index = 0 To Len(IntVar) - 1

Den giver ikke et forkert tal, når du læser fra strengen starter du altid fra pos 1 men array starter altid fra 0 så derfor skal det være fra 0 til længde af streng - 1 :-)

Øh glem bare min sidste kommentar, jeg er nået til vrøvleniveauet nu :-)

roenving > tror bare vi holder os til den som starter med 1 *G* det sidste giver en fejl da vi som sagt ikke kan trække - 1 fra 0 så giver det -1 som ikke findes i arrayet

Hvor trækker du fra nul??

<%
dim AryVar()
IntVar = "101011101111010100110010111"
redim aryvar(len(intvar) - 1) "<<<Her trækker du en fra længden af variablen
For Index = 1 To Len(IntVar) - 1 "<<<Her trækker du en fra længden af variablen
    AryVar(Index) = Mid(IntVar, Index, 1)
Next

Response.Write "Nr 3 " & aryvar(2)

%>

Index skal stadig starte fra 0 hvis du bruger len()-1 ;-(

For Index = 0 To Len(IntVar) - 1 << du medtog ikke det sidste du kom med, det er når jeg indsætter den fejlen opstår, det første virker ganske godt :)

så lad os bare holde os til det *G* ;)

roenving > Well, den indeholder ihvertfal ikke en værdi når jeg prøver at trække den ud *G*

Nr 0 =
Nr 1 = 1
Nr 2 = 0
Nr 3 = 1
Nr 4 = 0
Nr 5 = 1
Nr 6 = 1
Nr 7 = 1
Nr 8 = 0
Nr 9 = 1
Nr 10 = 1
Nr 11 = 1
osv... testede lige...

Optimeringen ligger i, at du ikke skal gentage subtraktionen for hver gang, men det kan du vel næppe mærke -- og som jeg lige nåede at bemærke sidst, skulle det selvfølgelig starte fra 0 -- for index=0 to 26 bliver det til med din testvariabel ...

der er hvis et eller andet helt galt her, får ikke sidste tal med i rækken og hvis jeg skriver 0 ved index går koden nedenom og hjem :-s

har du sat en option base et eller andet sted ?-)

-- for så vil et index på 0 kunne være ulovlig, og så er det:

<%
dim AryVar()
IntVar = "101011101111010100110010111"
redim aryvar(len(intvar))
For Index = 1 To Len(IntVar)
    AryVar(Index) = Mid(IntVar, Index, 1)
Next

Response.Write "Nr 2 " & aryvar(2)

%>

Man kan numre give hele længden på en gang:
<%
dim minvariable
minvariable = "01011101111010100110010111"
minvariable = replace(minvariable,"0","0,")
minvariable = replace(minvariable,"1","1,")
minvariable = split(minvariable,",")

for i = 0 to ubound(minvariable)
Response.write "Variable Nr.:" & (i) & " er = " & minvariable(i)
%>
<br>
<%
next
%>