Split in VB.net

Question

FASTER,WW0011,"CTR ,REURN,ALT TUBING HELIUM LEAK",DEFAULT test,1,3.81,test

I need to get the result of the following line as

Arr(0) =faster
Arr(1) =WW0011
Arr(2) =CTR ,REURN,ALT TUBING HELIUM LEAK
Arr(3) =DEFAULT test
Arr(4) =faster
Arr(5) = 1
Arr(6)=3.81
Arr(7) = test

I tried using split, but the problem is on Arr(2) could anyone please give me a solution

You can get a one liner answer here (swap the apostrophes for double-quotes) http://stackoverflow.com/a/3147901/590510 — alergy, May 29 '15 at 08:02
Where does come from the second _faster_ item you got (`Arr(4)`) exactly ? — Sehnsucht, May 29 '15 at 12:35

score 4 · Answer 1 · answered May 29 '15 at 13:47

You could use the TextFieldParser class which will take care of situations like this. Set the HasFieldEnclosedInQuotes property to true. Here is an example from MSDN (slightly altered):

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("c:\logs\bigfile")

    MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
    MyReader.Delimiters = New String() {","}

    'Set this to ignore commas in quoted fields.
    MyReader.HasFieldsEnclosedInQuotes = True

    Dim currentRow As String()
    'Loop through all of the fields in the file.  
    'If any lines are corrupt, report an error and continue parsing.  
    While Not MyReader.EndOfData
        Try
            currentRow = MyReader.ReadFields()
            ' Include code here to handle the row. 
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message & " is invalid.  Skipping")
        End Try 
    End While 
End Using

score 3 · Accepted Answer · answered May 29 '15 at 07:49

I use this function alot myself

Private Function splitQuoted(ByVal line As String, ByVal delimeter As Char) As String()
Dim list As New List(Of String)

    Do While line.IndexOf(delimeter) <> -1
        If line.StartsWith("""") Then
            line = line.Substring(1)
            Dim idx As Integer = line.IndexOf("""")
            While line.IndexOf("""", idx) = line.IndexOf("""""", idx)
                idx = line.IndexOf("""""", idx) + 2
            End While
            idx = line.IndexOf("""", idx)
            list.Add(line.Substring(0, idx))
            line = line.Substring(idx + 2)
        Else
            list.Add(line.Substring(0, Math.Max(line.IndexOf(delimeter), 0)))
            line = line.Substring(line.IndexOf(delimeter) + 1)
        End If
    Loop
    list.Add(line)
    Return list.ToArray
End Function

Or you could just use the TextFieldParser class which will handle this situation for you. — Chris Dunaway, May 29 '15 at 13:34

score -1 · Answer 3 · edited May 29 '15 at 08:52

-1

Use a for loop to iterate the string char by char!

edited May 29 '15 at 08:52

Mohamad Shiralizadeh

8,329
6
58
93

answered May 29 '15 at 07:55

Kenneth Li

1,632
1
14
19

Split in VB.net

3 Answers3