易语言写个txt读写功能的代码

以下是一个简单的易语言txt读写功能的代码示例： ```vb ' 打开文件，返回文件句柄 Function OpenFile(filename As String) As Long Dim hFile As Long hFile = FreeFile() Open filename For Binary Access Read Write As #hFile OpenFile = hFile End Function ' 关闭文件 Sub CloseFile(hFile As Long) Close #hFile End Sub ' 读取文件内容 Function ReadFile(hFile As Long) As String Dim sBuffer As String * 1024 Dim lNumberOfBytesRead As Long Dim content As String Do While Not EOF(hFile) lNumberOfBytesRead = 0 InternetReadFile hFile, sBuffer, Len(sBuffer), lNumberOfBytesRead content = content & Left(sBuffer, lNumberOfBytesRead) Loop ReadFile = content End Function ' 写入文件内容 Sub WriteFile(hFile As Long, content As String) Put #hFile, , content End Sub ' 示例代码 Dim hFile As Long Dim content As String ' 打开文件 hFile = OpenFile("test.txt") ' 读取文件内容 content = ReadFile(hFile) ' 在文件末尾添加一行文本 content = content & vbCrLf & "Hello World!" ' 写入文件内容 WriteFile hFile, content ' 关闭文件 CloseFile hFile ``` 以上代码中，OpenFile函数用于打开文件并返回文件句柄，CloseFile函数用于关闭文件，ReadFile函数用于读取文件内容，WriteFile函数用于写入文件内容。在示例代码中，我们打开了一个名为test.txt的文件，并在文件末尾添加了一行文本"Hello World!"。最后，我们关闭了文件。