Dynamic string array in VB.NET

Question

1.00/5 (1 vote)

See more:

need to split dynamically below mention

KM51124844G01| 1.000 PC|FLAT CABLE FIXING ASSY,IMC SLING|1001.47|
|KM400740009G02|2.000 PC|OIL COLLECTOR &GUIDE LUBRICATOR|93.02|
|KM400740009G01|2.000 PC|GUIDE RAIL LUBRICATOR & OIL COLLECTOR| 113.42|

What I have tried:

 dt = objdbconn.GetDatatable(msSQL)
            For Each dr As DataRow In dt.Rows
                Dim datalist As String = dr.Item("assembly_list").ToString
                Dim strarr() As String = datalist.Split(New String() {"|"c}, StringSplitOptions.None)
                Dim i As Integer = 0
                For Each col In strarr
                    Dim dat As String = strarr(i)
i=i+1
Next

Posted 3-Jul-17 1:02am

Gokulprasad05

Updated 3-Jul-17 1:29am

Add a Solution

Comments

Patrice T 3-Jul-17 7:11am

And you have a question or a problem ?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Prifti Constantine · Answer 1 · 2017-07-03T01:29:00

Solution 1

If you want to get the first column everytime then in my opinion, you have to check whether i is equl to zero the first time and then move accordingly.:

VB

i=i+4
Next

When the i starts as 0, it is going to take : KM51124844G01 as a value
when you assign the i = i+4 then the i is going to count 4 more positions in the array depending on how many items the array has. For the second assembly after 4 positions it is going to have KM400740009G02 as a value. Again.... it is important to mention that this will only work only if for each Line:

KM51124844G01| 1.000 PC|FLAT CABLE FIXING ASSY,IMC SLING|1001.47|

the array is reserve 4 values per line.

I really hope this will help you!

Posted 3-Jul-17 1:29am

Prifti Constantine

Comments

Gokulprasad05 3-Jul-17 23:40pm

i want to took all the values.

Gokulprasad05 4-Jul-17 4:29am

i got the answer...

If strarr.Length <= 5 Then
dcode = strarr(0)
dqty = strarr(1)
dunit = strarr(2)
dname = strarr(3)
dprice = strarr(4)
Else
Dim i As Integer = 1
For i = i - 1 To strarr.Length - 1
dcode = strarr(i)
dqty = strarr(i + 1)
dunit = strarr(i + 2)
dname = strarr(i + 3)
dprice = strarr(i + 4)
i = i + 4
Next
End If

Prifti Constantine 4-Jul-17 4:30am

Nice! Sorry for not replying sooner.. Have been really busy!

Gokulprasad05 4-Jul-17 7:36am

it's ok no problem. thanks for help