這篇文章主要介紹如何實現VB.NET文件流讀、寫類文件,文中介紹的非常詳細,具有一定的參考價值,感興趣的小伙伴們一定要看完!
VB.NET文件流代碼:
Option Explicit Private m_strFilePath As String Private m_intFileNum As Integer Private m_bytBuffer() As Byte Public Property Get FilePath() As String FilePath = m_strFilePath End Property Public Property Let FilePath(ByVal strFilePath As String) m_strFilePath = strFilePath End Property Public Property Get EOS() As Boolean If Ready() Then EOS = EOF(m_intFileNum) Else EOS = True End If End Property Public Property Get Ready() As Boolean Ready = m_intFileNum <> 0 End Property Public Function CloseFile() As Boolean If Ready() Then Close #m_intFileNum m_intFileNum = 0 CloseFile = True Else CloseFile = False End If End Function Public Function OpenFile() As Boolean On Error Goto HandleError CloseFile m_intFileNum = FreeFile Open m_strFilePath For Binary As #m_intFileNum OpenFile = True Exit Function HandleError: OpenFile = False End Function Public Property Get Position() As Long If Ready() Then Position = Loc(m_intFileNum) Else Position = -1 End If End Property Public Property Let Position(ByVal lngPosition As Long) If Ready() Then If lngPosition > 0 And lngPosition <= LOF(m_intFileNum) Then Seek #m_intFileNum, lngPosition Else RaiseError "Position", "Position invalid" End If Else RaiseError "Position" End If End Property Private Sub RaiseError(ByVal strProcedure As String, _ Optional ByVal strDescription As String = "File Not Opened") Err.Raise vbObjectError + 101, strProcedure, strDescription End Sub Public Function ReadBytes(ByVal lngCount As Long) As Byte() If Ready() Then If lngCount > 0 And lngCount + Loc(m_intFileNum) - 1 <= LOF(m_intFileNum) Then ReDim m_bytBuffer(0 To lngCount - 1) As Byte Get #m_intFileNum, , m_bytBuffer ReadBytes = m_bytBuffer Else RaiseError "ReadBytes", "Out of boundary" End If Else RaiseError "ReadBytes" End If End Function Public Function ReadText(ByVal lngCount As Long) As String ReadText = StrConv(ReadBytes(lngCount), vbUnicode) End Function Public Sub WriteBytes(ByRef bytContent() As Byte) If Ready() Then Put #m_intFileNum, , bytContent Else RaiseError "WriteBytes" End If End Sub Public Sub WriteText(ByVal strText As String) WriteBytes StrConv(strText, vbFromUnicode) End Sub Private Sub Class_Initialize() m_intFileNum = 0 End Sub Private Sub Class_Terminate() CloseFile End Sub
以上是“如何實現VB.NET文件流讀、寫類文件”這篇文章的所有內容,感謝各位的閱讀!希望分享的內容對大家有幫助,更多相關知識,歡迎關注億速云行業資訊頻道!
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。