Multidimensiona l arrays & Parsing

[Necromis]

I am trying to figure out a way to change the below code to store data
in a multidemensiona l array rather than a listbox. The reason being is
I need to be able to pull each "currentrow " and manipulate the
position of each "currentfie ld" to then imput this data to another
source as a string. The delimited text might look like the following.

acctno, name, expdate,cr_line
442812345678901 2,smith,0807,50 00
442812345678902 5,williams,0908 ,15000

I then would need to manipulate this into a string like this.....

NM*014*44281234 56789012*0807

I have no trouble with the NM*014* pieces as these would be constants
but thought if I could put these items into a multidimensiona l array I
could call them out easier within a for next loop.

Like this.....

dim output as string

output = "nm*014*' & acct(1,0) & "*" & acct(1,2)

........So any help in accomplishing this would be VERY Helpful.
Private Sub LoadCommaDelime tedTextFileInto ListBox(ByVal filePath As
String)

Dim theTextFieldPar ser As TextFieldParser

theTextFieldPar ser =
My.Computer.Fil eSystem.OpenTex tFieldParser(fi lePath)

theTextFieldPar ser.TextFieldTy pe =
Microsoft.Visua lBasic.FileIO.F ieldType.Delimi ted

theTextFieldPar ser.Delimiters = New String() {","}

Dim currentRow() As String
Try
While Not theTextFieldPar ser.EndOfData

currentRow = theTextFieldPar ser.ReadFields( )

Dim currentField As String

For Each currentField In currentRow
Me.ListBox1.Ite ms.Add(currentF ield)
Next
End While
Catch malFormLineEx As
Microsoft.Visua lBasic.FileIO.M alformedLineExc eption
MessageBox.Show ("Line " & malFormLineEx.M essage & "is not
valid and will be skipped.", "Malformed Line Exception")
Catch ex As Exception
MessageBox.Show (ex.Message & " exception has occurred.",
"Exception" )
Finally
theTextFieldPar ser.Close()
End Try

[GS]

I don't think I read the question fully but you want to split string
variable s delimited by comma
into array
dim sArray as String[]

sArray = s.split{",")

I am sure you figure out how to use this tidbit to plug in the value into
you multi-dimensional array if you still think that is the best way.

"Necromis" <tf******@pscuf s.comwrote in message
news:11******** **************@ w5g2000hsg.goog legroups.com...

I am trying to figure out a way to change the below code to store data
in a multidemensiona l array rather than a listbox. The reason being is
I need to be able to pull each "currentrow " and manipulate the
position of each "currentfie ld" to then imput this data to another
source as a string. The delimited text might look like the following.

acctno, name, expdate,cr_line
442812345678901 2,smith,0807,50 00
442812345678902 5,williams,0908 ,15000

I then would need to manipulate this into a string like this.....

NM*014*44281234 56789012*0807

I have no trouble with the NM*014* pieces as these would be constants
but thought if I could put these items into a multidimensiona l array I
could call them out easier within a for next loop.

Like this.....

dim output as string

output = "nm*014*' & acct(1,0) & "*" & acct(1,2)

.......So any help in accomplishing this would be VERY Helpful.
Private Sub LoadCommaDelime tedTextFileInto ListBox(ByVal filePath As
String)

Dim theTextFieldPar ser As TextFieldParser

theTextFieldPar ser =
My.Computer.Fil eSystem.OpenTex tFieldParser(fi lePath)

theTextFieldPar ser.TextFieldTy pe =
Microsoft.Visua lBasic.FileIO.F ieldType.Delimi ted

theTextFieldPar ser.Delimiters = New String() {","}

Dim currentRow() As String
Try
While Not theTextFieldPar ser.EndOfData

currentRow = theTextFieldPar ser.ReadFields( )

Dim currentField As String

For Each currentField In currentRow
Me.ListBox1.Ite ms.Add(currentF ield)
Next
End While
Catch malFormLineEx As
Microsoft.Visua lBasic.FileIO.M alformedLineExc eption
MessageBox.Show ("Line " & malFormLineEx.M essage & "is not
valid and will be skipped.", "Malformed Line Exception")
Catch ex As Exception
MessageBox.Show (ex.Message & " exception has occurred.",
"Exception" )
Finally
theTextFieldPar ser.Close()
End Try