13518219792
这篇文章主要介绍如何实现VB.NET文件流读、写类文件，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！
创新互联建站专注于企业全网营销推广、网站重做改版、赫章网站定制设计、自适应品牌网站建设、H5页面制作、商城网站制作、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为赫章等各大城市提供网站开发制作服务。
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文件流读、写类文件”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注创新互联行业资讯频道！
