ToolsStream

类模块：ToolsStream

属性

• Inst: 新建的ADODB.Stream对象实例，用于文件操作。
• LastError: 存储最后一次操作的错误信息。

函数

1. LoadFileAsText

   • 功能：将文件内容以文本形式加载。
   • 参数：
     • FileName：要加载的文件名。
     • CharSet：文件的字符集，默认为"UTF-8"。
   • 返回值：文件内容作为字符串。
   • 示例代码：

     Dim content As String
     content = ToolsStream.LoadFileAsText("example.txt")
     MsgBox content
     

2. SaveFileAsText

   • 功能：将文本数据保存到文件。
   • 参数：
     • FileName：要保存的文件名。
     • Data：要保存的文本数据。
     • CharSet：文件的字符集，默认为"UTF-8"。
   • 返回值：操作成功返回True，失败返回False。
   • 示例代码：

     Dim result As Boolean
     result = ToolsStream.SaveFileAsText("example.txt", "Hello, World!")
     If result Then
         MsgBox "File saved successfully."
     Else
         MsgBox "Failed to save file."
     End If
     

3. LoadFileAsBinary

   • 功能：将文件内容以二进制形式加载。
   • 参数：
     • Path：要加载的文件路径。
     • OutData()：输出的二进制数据数组。
   • 返回值：操作成功返回True，失败返回False。
   • 示例代码：

     Dim data() As Byte
     If ToolsStream.LoadFileAsBinary("example.bin", data()) Then
         MsgBox "File loaded successfully."
     Else
         MsgBox "Failed to load file: " & ToolsStream.LastError
     End If
     

4. SaveFileAsBinary

   • 功能：将二进制数据保存到文件。
   • 参数：
     • Path：要保存的文件路径。
     • OutData()：要保存的二进制数据数组。
   • 返回值：操作成功返回True，失败返回False。
   • 示例代码：

     Dim data() As Byte
     ' 假设data()已经填充了数据
     If ToolsStream.SaveFileAsBinary("example.bin", data()) Then
         MsgBox "File saved successfully."
     Else
         MsgBox "Failed to save file: " & ToolsStream.LastError
     End If
     

这些函数提供了基本的文件读写功能，支持文本和二进制两种模式，适用于多种文件处理场景。希望这些文档和示例代码能帮助您更好地理解和使用这个类模块。