I need help with an array that makes labels

[quick_sliver007]

Here is the code I need help with.

Dim $string = FileReadLine("wordlist.txt",3)
    Dim $stringsplit = StringSplit($string,"")
    Dim $c
    Dim $labels[20]
    For $row = 0 to $stringsplit[0] - 1
        For $c = 1 To $stringsplit[0]
            Dim $row
            Dim $a = 10 + $row*10
            Dim $b = 290
            $labels[$row] = GUICtrlCreateLabel($stringsplit[$c], $a, $b,  10, 20)
        Next
    Next

The string in the file is "abc". It makes 3 labels like I want it to but all of the labels display "c" the last character. I want the 1st label to display first character in the string and the 2nd label to display the 2nd character and the 3rd label to display the 3rd charactor and so on. If anyone can help me I will be very thankful.

[steveR]

#include <guiconstants.au3>

GUICreate("")

    $str = "abcdefg"
    $array = StringSplit($str,"")
    For $c = 1 to $array[0]
        GUICtrlCreateLabel($array[$c], $c * 20, 10, 20)
    Next
GUISetState()

Do
    $msg = GUIGetMsg()
    sleep(10)
until $msg = $GUI_EVENT_CLOSE

[quick_sliver007]

#include <guiconstants.au3>

GUICreate("")

    $str = "abcdefg"
    $array = StringSplit($str,"")
    For $c = 1 to $array[0]
        GUICtrlCreateLabel($array[$c], $c * 20, 10, 20)
    Next
GUISetState()

Do
    $msg = GUIGetMsg()
    sleep(10)
until $msg = $GUI_EVENT_CLOSE

<{POST_SNAPBACK}>

Thank you very much for helping me. Your code helped alot.

Here is what I came up with from it

$string = FileReadLine("wordlist.txt",3)
    $stringsplit = StringSplit($string,"")
    Dim $labels[20]
        For $c = 1 To $stringsplit[0]
        $labels[$c] = GUICtrlCreateLabel($stringsplit[$c], $c * 10, 290,  10, 20)

Thank you again.

[steveR]

You got it!

Opps i see i forgot a param in createLabel. Still works tho.

Edited April 15, 2005 by steveR