VB 打开/保存任意编码格式的文本文件

代码

' --------------------

' 类模块:FSO

' SielnceNet@qq.Com

' 时间:2008-7-4 15:57:53

' 说明:打开/保存任意编码格式的文本文件

' --------------------


Option   Explicit

Private  FileBody  As   String   ' 文件内容

Private  ErrInfo  As   String

Private  Coding  As   String



' Dim ADO_Stream As Stream   '使用此项需引用ADO对象

Dim  ADO_Stream  As   Object



' 文件打开成功后使用此方法获取文件内容

Public   Function  GetFileText()  As   String

    GetFileText  =  FileBody

End Function



' 操作失败时。。使用此方法获取错误信息

Public   Function  GetErrorInfo()  As   String

    GetErrorInfo  =  ErrInfo

End Function



' 打开文件

Public   Function  OpenFile(ByVal FileName  As   String )  As   Boolean

' FileName:需要打开的文件名



     If  ADO_Stream  Is   Nothing   Then   Exit   Function



    Err.Number  =   0

     On   Error   GoTo  ferr



     With  ADO_Stream

        .Type  =   1

        .Mode  =   3

        .Open

        .LoadFromFile FileName

        .Position  =   0

        .Type  =   2

        .Charset  =  IIf(Coding  =   "" ,  " gb2312 " , Coding)

        FileBody  =  .ReadText

        .Close

     End   With

    OpenFile  =   True

    

     Exit   Function

ferr:

    ErrInfo  =  FileName  &   " 打开失败！错误信息: "   &  Err.Description

    Debug.Print ErrInfo

    Err.Number  =   0

End Function



' 保存文件

Public   Function  SaveFile(ByVal FileName  As   String , ByVal strFileBody  As   String )  As   Boolean

' FileName:文件保存路径名字

' strFileBody:需要保存的文件内容



     If  ADO_Stream  Is   Nothing   Then   Exit   Function

    

    Err.Number  =   0

     On   Error   GoTo  ferr



     With  ADO_Stream

        .Type  =   2

        .Mode  =   3

        .Charset  =  IIf(Coding  =   "" ,  " gb2312 " , Coding)

        .Open

        .WriteText strFileBody

        .SaveToFile FileName,  2

     End   With

    

    SaveFile  =   True

     Exit   Function

ferr:

    ErrInfo  =  FileName  &   " 保存失败！错误信息: "   &  Err.Description

    Debug.Print ErrInfo

    Err.Number  =   0

End Function



Private   Sub  Class_Initialize()

    Err.Number  =   0

     On   Error   GoTo  ferr

    

     ' Set ADO_Stream = New Stream   '使用此项需引用ADO对象

     Set  ADO_Stream  =   CreateObject ( " ADODB.Stream " )



     Exit   Sub

    

ferr:

     Set  ADO_Stream  =   Nothing

    ErrInfo  =   " ADODB.Stream对象创建失败！ "

    Debug.Print ErrInfo

    Err.Number  =   0

End Sub



' 设置文件编码

' 缺省编码为gb2312

Public   Property   Let  SetCoding(ByVal vNewValue  As   String )

    Coding  =  vNewValue

End Property

 

转载于:https://www.cnblogs.com/lano/archive/2009/12/09/1620095.html