您好,登录后才能下订单哦!
密码登录
登录注册
点击 登录注册 即表示同意《亿速云用户服务条款》
这篇文章主要介绍如何实现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进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。