classes.vb

来自「OOP With Microsoft VB.NET And Csharp Ste」· VB 代码 · 共 13 行

Public Class Classes
    Private m_linesOfCode As Integer = 0
    Private m_classNames As New System.Collections.ArrayList()

    Public Sub ReadFromFile(ByVal fullPath As String)
        Try
            Dim reader As New System.IO.StreamReader(fullPath)
            Dim nameStart As Integer
            Dim oneline As String
            oneline = reader.ReadLine()
            While (Not (oneline Is Nothing))
                oneline = oneline.Trim()
                If ((oneline <> "") And (Not oneline.StartsWith("