溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

如何實現VB.NET文件流讀、寫類文件

發布時間:2021-12-02 15:05:16 來源:億速云 閱讀:349 作者:小新 欄目:編程語言

這篇文章主要介紹如何實現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文件流讀、寫類文件”這篇文章的所有內容,感謝各位的閱讀!希望分享的內容對大家有幫助,更多相關知識,歡迎關注億速云行業資訊頻道!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

亚洲午夜精品一区二区_中文无码日韩欧免_久久香蕉精品视频_欧美主播一区二区三区美女