2024年6月5日发(作者：)

做二次开发过程中的一些代码搜集和个人的试错及注释：

Dim str_File_1 As String = lText("E:Visual

StudioVisual ",

) '根据实际的编码读第一个文件

Dim str_File_2 As String = lText("E:Visual

StudioVisual ",

) '根据实际的编码读第二个文件

FileOpen(1, "E:Visual StudioVisual

, ",

t, ) '以读方式打开文件

FileOpen(2, "E:Visual StudioVisual

, ",

t, ) '以写方式打开文件

Print(2, str_File_1) '将1文件写入2中

FileClose(1)

FileClose(2)

Imports

Public Class TXTClass

'为了能够操作txt文本文档，需要在类的前面加入“”空间的引用；

'然后定义3个变量sw（用于write操作，变量类型 StreamWriter）、

'sr（用于read操作，变量类型StreamReader）、

'strRead()（用于保存从文本文档中读入的数据，变量类型String数组）；

'然后写一个空的sub New()过程（类必须有的）。

Private sw As StreamWriter

Private sr As StreamReader

Public strRead() As String

Public Sub New()

End Sub

'写操作

'写入一行数据到文本文件