code help

[mesale0077]

DIM $j[100]

$j=""

$a=InputBox("pro"," number")

$c=stringLEN($a)

for $d=1 to $c

$j($d)=StringMid($a,$d,1)

MsgBox(0,"example",$j($d))

next

exit

this programme's gıvıng the mıstake

why?

what is it problem

and Stringleft,Stringright

give the example please

ı know that ı learnıng new

my fault dont look at me please

ı want to learn a lot of this the programming

ı thank you rıght now

good works

[qazwsx]

use descriptive topic titles. Use a code box. Read the help file. You are setting an array, $j, to a value (line 2).

[Authenticity]

subscripts are referenced using square brackets:

Dim $j[100] = [0]

$a = InputBox("pro", " number")
$c = StringLen($a)
For $d = 1 To $c
    $j[$d] = StringMid($a, $d, 1)
    ConsoleWrite($j[$d] & @TAB)
Next
ConsoleWrite(@LF)

Edited February 26, 2009 by Authenticity

[mesale0077]

dont worked

$j[$d] = StringMid($a, $d, 1)

again

this programme's gıvıng the mıstake

[Authenticity]

If the purpose is to split the string use StringSplit($a, ''), read more about it in the help file.

[mesale0077]

$k="sun water"

dim $y[100]

dim $y=""

for $j=1 to 12

$var = StringMid($k, $j, 1)

$y[$j]=$var <---------- here is problem

MsgBox(0, "pro", $y[$y])

next

exit

but dont worked

[Inverted]

Get rid of this command : dim $y=""

[bo8ster]

$k="sun water"

dim $y[100]

dim $y=""

for $j=1 to 12

$var = StringMid($k, $j, 1)

$y[$j]=$var <---------- here is problem

MsgBox(0, "pro", $y[$y])

next

exit

but dont worked

Code box please!

+1 get rid of dim $y="". You declare y as an array then dim it again as a blank string.

$k="sun water"
dim $y[100]
dim $y=""
for $j=1 to 12
    $var = StringMid($k, $j, 1)
    $y[$j]=$var       <---------- here is problem 
MsgBox(0, "pro", $y[$y])
next
exit

Edited February 27, 2009 by bo8ster

[mesale0077]

ok no problem

now worked

thank you

good works