Visual Basic

MohammadAmiry wrote:

Use Split function with "." as the split parameter; it returns an array whose Lenght is the number of occurences of "." in the string

trans4mative wrote:

So I need the code for:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Open and parse the source file..
    TextBox1.Text = removeComments("c:\test.vb")
    '
    'Save your textbox to a file here..
    '
End Sub
'
Private Function removeComments(ByVal strFilePath As String) As String
    Dim sread As StreamReader = New StreamReader(strFilePath)
    Dim count As Integer = 0
    While sread.Peek >= 0
        Dim s As String = sread.ReadLine
        System.Math.Min(System.Threading.Interlocked.Increment(count), count - 1)
    End While
    sread.Close()
    Dim sr As StreamReader = New StreamReader(strFilePath)
    Dim fileData As String = ""
    Dim fi As FileInfo = New FileInfo(strFilePath)
    Dim i As Integer = 0
    While i < count
        Dim str As String = sr.ReadLine
        If str.IndexOf("'") >= 0 Then
            fileData += removeSingleComment(str)
        Else
            fileData += str & vbCrLf
        End If
        System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
    End While
    Return fileData
End Function
'
Private Function removeSingleComment(ByVal str As String) As String
    Dim length As Integer = str.Length - str.IndexOf("'")
    str = str.Replace(str.Substring(str.IndexOf("'"), length), "")
    Return str.Replace(" ", "")
End Function

'Declare a StreamReader object to read the text file line by line
Dim sReader As New System.IO.StreamReader("C:\MyTextFile.txt")
Dim strLine As String = String.Empty

'Read first line of text file
strLine = sReader.ReadLine
If Not strLine Is Nothing Then 'Make sure text file had a first line
    txt1.Text = strLine 'Set first textbox

    strLine = sReader.ReadLine 'Read second line of text file
    If Not strLine Is Nothing Then 'Make sure text file had a second line
        txt2.Text = strLine 'Set second textbox
    End If
End If

sReader.Close() 'Close reader object to keep memory clean of garbage