Visual Basic

jkirkerx wrote:

Dim newLines() As String = p.Split(vbCrLf)

Dim test As String = "1,2,3,4"
Dim items As String() = test.Split(",") '// there will not be a "," in the items!
Dim result As String = String.Join(Environment.NewLine, items)

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Using streamWriter As New StreamWriter(m_path, False, Encoding.UTF8)

    Dim charArray As Char() = htmlText.ToCharArray()
    Dim charLine As Char() = New Char() {}
    For cdx As Integer = 0 To charArray.Length - 1

        If Not (charArray(cdx) = Chr(10) Or charArray(cdx) = Chr(13)) Then

            Array.Resize(charLine, charLine.Length + 1)
            charLine(charLine.Length - 1) = charArray(cdx)

        Else

            Dim newLine As Char() = charLine
            streamWriter.WriteLine(newLine)

            Array.Resize(charLine, 0)
            cdx += 1

        End If

    Next

    streamWriter.Close()

End Using

Wikipedia quote:

Mainstream Support for Microsoft Visual Basic 6.0 ended on March 31, 2005. Extended support ended in March 2008.

Public Class frmSample

    	Dim openFileDialog1 As New OpenFileDialog()

    	Dim sTemp As String

        Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)       Handles btnOpen.Click

        	openFileDialog1.AutoUpgradeEnabled = True

        	sTemp = "None"
        	sTemp = OpenDir()
        	Do Until sTemp <> "None"
            		'Nothing
        	Loop
		'The above loop is my solution.
		'It makes sure that the initial directory is known, before 
                'continuing to If OpenFileDialog1.ShowDialog

        	openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        	openFileDialog1.FilterIndex = 0
        	openFileDialog1.RestoreDirectory = True

        	If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

            		'Enter your code

        	End If

    	End Sub

        Private Function OpenDir() As String

        	openFileDialog1.InitialDirectory = "C:\Sample Initial Directory"
        	Return "OpenDir"

    	End Function

End Class

RedRocket2016 wrote:

I know how to link text boxes to a report but how much I link a listview with multiple rows to a report?

RedRocket2016 wrote:

but I cannot find any examples online

RedRocket2016 wrote:

Are their any benefits to using Crystal Reports over the bog standard one?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]