vb 2008

[mac_shinobi]

    

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       cboAddProxy.Items.Clear()
       Dim strFile, output
       strFile = "ProxyServers.txt"
       output = Strings.Left(Application.ExecutablePath, Strings.InStrRev(Application.ExecutablePath, "\")) & strFile
       Dim fileText As String = Strings.Trim(My.Computer.FileSystem.ReadAllText(output))
       Dim arr() As String = fileText.Split(vbNewLine)
       For Each x In arr

           cboAddProxy.Items.Add(Strings.Trim(x.ToString))


       Next
   End Sub

 

How do I get rid of the vbNewLine characters

[DrPerceptron]

Hazarding a guess that line 7 is the line to edit, but I don't know what you want to replace it with.

 

Dim arr() As String = fileText.Split(vbNewLine)

 

vbNewLine -> "," or whatever else you want.

 

http://www.homeandlearn.co.uk/net/nets7p7.html

[mac_shinobi]

Hazarding a guess that line 7 is the line to edit, but I don't know what you want to replace it with.

 

Dim arr() As String = fileText.Split(vbNewLine)

vbNewLine -> "," or whatever else you want.

 

Visual Basic .NET programming for Beginners - How to use Split() and Join()

 

Did that and it didnt work - finally got it working ammended code below in bold

 

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       cboAddProxy.Items.Clear()
       Dim strFile, output
       strFile = "ProxyServers.txt"
       output = Strings.Left(Application.ExecutablePath, Strings.InStrRev(Application.ExecutablePath, "\")) & strFile
       Dim fileText As String = Strings.Trim(My.Computer.FileSystem.ReadAllText(output))
      [b] Dim arr() As String = Microsoft.VisualBasic.Strings.Split(fileText, vbNewLine)[/b] '= fileText.Split(vbNewLine)

       For Each x In arr
           If x.ToString = vbNullString Then

           Else
               [b]cboAddProxy.Items.Add(Strings.Trim(x.ToString))[/b]
           End If
       Next
   End Sub