Click here to Skip to main content
65,938 articles
CodeProject is changing. Read more.
Articles / Languages / VB

Convert Vertical List to String Array

0.00/5 (No votes)
27 Sep 2010CPOL 7.1K  
I'd never used String.Join before. Didn't even know it was there. :laugh: However, part of the idea is to skip all empty lines AND not end up with an empty string at the end (which my first code didn't address) AND insert the quotes. To get all this done with String.Join, it still took 8...
I'd never used String.Join before. Didn't even know it was there. :laugh:

However, part of the idea is to skip all empty lines AND not end up with an empty string at the end (which my first code didn't address) AND insert the quotes. To get all this done with String.Join, it still took 8 lines instead of 10 in the original. There should be a way to get it done with only a couple lines of code, I'm thinking.


VB
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
  myStr = Chr(34) & String.Join(Chr(34) & "," & Chr(34), txt.SelectedText.Split(Chr(10)))
  myStr = myStr.Replace("," & Chr(34) & Chr(34), String.Empty)
  If myStr.EndsWith("," & Chr(34)) Then
    myStr = myStr.Substring(0, myStr.Length - 2)
  ElseIf Not myStr.EndsWith(Chr(34)) Then
    myStr &= Chr(34)
  End If
  txt.SelectedText = myStr

End Sub

License

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