String into an array

[ldazaa1]

Hello all,
I'm trying to do a small application that has this string as an imput "11010" and my goal is to divide the string and load it into an array in this way:
[1][11][110][11010]
The code that I came up with is this:

Public Class Form1
Dim prefixes(10000) As String
Dim s As String
Dim count As Integer
Dim j As Integer
Dim pre_lenght As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text = "11010"
    s = TextBox1.Text
    pre_lenght = TextBox1.TextLength
    j = pre_lenght
    While j > 0
        For Me.count = 0 To count = pre_lenght
            prefixes(Me.count) = s.Substring(pre_lenght - j)
            j = j - 1
        Next
    End While
    Label1.Text = j
    Label2.Text = pre_lenght
    Label3.Text = prefixes(0)
End Sub
End Class

For some reason it is just storing information in the position 0 of prefixes() and not in any other position,
If someone have any idea of how to solve this problem please let me know.
Thanks.
Daniel.

[VBWheaties]

Hello all,
I'm trying to do a small application that has this string as an imput "11010" and my goal is to divide the string and load it into an array in this way:
[1][11][110][11010]
The code that I came up with is this:

Public Class Form1
Dim prefixes(10000) As String
Dim s As String
Dim count As Integer
Dim j As Integer
Dim pre_lenght As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "11010"
s = TextBox1.Text
pre_lenght = TextBox1.TextLength
j = pre_lenght
While j > 0
For Me.count = 0 To count = pre_lenght
prefixes(Me.count) = s.Substring(pre_lenght - j)
j = j - 1
Next
End While
Label1.Text = j
Label2.Text = pre_lenght
Label3.Text = prefixes(0)
End Sub
End Class

for some reason it is just storing information in the position 0 of prefixes() and not in any other position,
If someone have any idea of how to solve this problem please let me know.
Thanks.
Daniel.

likely your culprit:

For Me.count = 0 To count = pre_lenght
 

[WinblowsME]

Do you want to store [1101] as well?

' VBA
 
Sub Test()
   Dim curr_line As String, i As Integer
 
   curr_line = "11010"
 
   For i = 1 To Len(curr_line)
      Debug.Print Mid(curr_line, 1, i)
   Next i
End Sub

[kadghar]

wouldnt it be easier with something like:

dim Str1 as string = "11010"
dim Arr() as string
dim i as long
redim arr(1 to len(str1))
for i = 1 to len(str1)
    arr(i) = left(str1,i)
next

HTH

[Killer42]

Sorry kadghar, no Left() function any more, remember? Bummer.

Idazaa1 would need to use the substring one instead.

[kadghar]

Sorry kadghar, no Left() function any more, remember? Bummer.

Idazaa1 would need to use the substring one instead.

lol

sorry, instead of left(string,integer)

you can always use mid(string, 1, integer)

happy now?

[Killer42]

you can always use mid(string, 1, integer)

happy now?

Not really. That's VB6. Don't think it'll work in the version under discussion. :P

[kadghar]

Not really. That's VB6. Don't think it'll work in the version under discussion. :P

that's true, i forgot MID wasnt good anymore. It'll take time till i get used to Substring

Then instead of Left(string, length), it should be string.substring(1,length), right?

=( it's like learning to walk again.