vb6 编写找开1.TXT文件,并把内容写到文本框.点击保存后又保存

在VB6中，要实现打开一个名为"1.TXT"的文件，并将文件内容显示在文本框中，然后点击保存按钮后将文本框中的内容保存回文件，可以按照以下步骤进行：

1. 添加必要的组件：首先，在VB6的窗体上添加一个文本框（TextBox）和一个按钮（CommandButton）3。

2. 编写打开文件的代码：使用Open语句打开"1.TXT"文件，并使用Line Input或Input #读取文件内容，然后将内容赋值给文本框。以下是一个示例代码：

   Dim filePath As String
   filePath = "C:\path\to\1.TXT" ' 替换为1.TXT文件的实际路径
   Open filePath For Input As #1
   Do While Not EOF(1)
       Line Input #1, tempStr
       TextBox1.Text = TextBox1.Text & tempStr & vbCrLf
   Loop
   Close #1
   

   这段代码首先定义了文件路径filePath，然后打开文件进行输入，逐行读取文件内容并将其添加到文本框中，最后关闭文件13。

3. 编写保存文件的代码：为按钮编写点击事件，使用Print语句将文本框中的内容写入"1.TXT"文件。示例代码如下：

   Private Sub CommandButton1_Click()
       Dim filePath As String
       filePath = "C:\path\to\1.TXT" ' 替换为1.TXT文件的实际路径
       Open filePath For Output As #1
       Print #1, TextBox1.Text
       Close #1
   End Sub
   

   这段代码在按钮点击时执行，首先定义文件路径，然后以输出模式打开文件，使用Print将文本框的内容写入文件，最后关闭文件1。

4. 实现替换和删除操作：如果需要实现文件内容的替换或删除，可以结合使用Line Input读取文件内容到数组，然后对数组进行处理，再使用Print将处理后的内容写回文件2。

5. 测试功能：编写完代码后，运行VB6程序，检查文本框是否正确显示了"1.TXT"文件的内容，点击保存按钮后，文件内容是否正确保存。

通过上述步骤，你可以在VB6中实现打开文件、显示内容到文本框以及保存文本框内容到文件的功能。123