Hvordan deler man et ord op tegn for tegn og putter hvert tegn in

Dim aDinArray
ReDim aDinArray(Len(dinStreng)-1)
For iCnt = 1 To Len(dinStreng)
  aDinArray(iCnt) = Mid(dinStreng(iCnt,1))
Next

Tak...

Dette script giver fejl i linjen  aDinArray(iCnt) = Mid(dinStreng(iCnt,1)) :


Dim aDinArray
dinstreng= "abc"
ReDim aDinArray(Len(dinStreng)-1)
For iCnt = 1 To Len(dinStreng)
  aDinArray(iCnt) = Mid(dinStreng(iCnt,1))
Next

"Type mismatch: 'dinstreng'"

doh, my bad :)

Mid(dinStreng,iCnt,1)

Tak jeg tjekker lige om det virker...

Jeg får nu en fejlmeddelelse!

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

det eneste jeg har tilføjet til scriptet er
dinstreng = "abcdef"
i starten og
Response.write adinarray(1)
hvad gør jeg galt?

Hvis mig lige hele dit script

lol, stavespade. jeg mente VIS, ikke hvis :)

jeg er med til at lave scriptet, og her kommer det:
<%
dinstreng = "abcdef"

Dim aDinArray
ReDim aDinArray(Len(dinStreng)-1)
For iCnt = 1 To Len(dinStreng)
  aDinArray(iCnt) = Mid(dinStreng,iCnt,1)
Next
Response.write adinarray(1)
%>

Doh... Det skal være: For iCnt = 0 To Len(dinStreng)-1
Men det forklarer ikke det hele.

Prøv at flytte den Response.Write() ind i loopen, og skriv aDinArray(iCnt) ud istedet.
Se hvad den så siger

<%
aDinarray = "abcdef"
Dim aDinArray
ReDim aDinArray(Len(dinStreng)-1)
For iCnt = 0 To Len(dinStreng)-1
  aDinArray(iCnt) = Mid(dinStreng,iCnt,1)
Response.write aDinarray(ICnt)
Next
%>
Giver ingenting

<%
dinstreng = "abcdef"

Dim aDinArray
ReDim aDinArray(Len(dinStreng)-1)
For iCnt = 0 To Len(dinStreng)-1
  aDinArray(iCnt) = Mid(dinStreng,iCnt,1)
Response.write aDinarray(ICnt)
Next
%>
giver:
Invalid procedure call or argument: 'Mid'

Prøv bare at kom med et fuldt eksempel der deler et ord ord op i et array og udskriver det bogstav for bogstav, så modificerer jeg det selv bagefter :)