“aaa”，“ddd”，“eee，eee，eee，”，“rrr”，123，“”
上面的字符串…怎么分割成下面这个样子…求指教
“aaa”
“bbb”
“eee，eee，eee，”
“rrr”
123
“”
分割前的字符串是连着的…
Imports System
Imports System.Collections.Generic
Public Class Test
shared function mysplit(s as string) as List(of string)
dim arr as string() = s.Split(",")
dim list as List(of string) = new List(of string)
dim b as boolean = false
dim buf as string
for each i as string in arr
if b then
if i.endswith(chr(34)) then
list.add(buf & "," & i)
buf = ""
b = false
else
buf = buf & "," & i
end if
else
if i.startswith(chr(34)) then
if i.endswith(chr(34)) then
list.add(i)
else
buf = i
b = true
end if
else
list.add(i)
end if
end if
next
return list
end function
Public Shared Sub Main()
' your code goes here
dim s as string = """aaa"",""ddd"",""eee,eee,eee,"",""rrr"",123,"""""
dim r as List(of string) = mysplit(s)
for each s as string in r
Console.WriteLine(s)
next
End Sub
End Class
"aaa"
"ddd"
"eee,eee,eee,"
"rrr"
123
""