VB6.0 读取文本每行内容，处理后写入另一文本？

Question

首先读取文本a中每一行内容（例如abcde），
然后使每一行内容处理成 print#1，”abcde“ 形式，再写入另一文本b中。
求大佬指教

Answer 1

可以通过以下步骤实现这个功能：

打开文本文件a，并使用Line Input函数逐行读取内容。

对每行内容进行处理，将其修改为所需的格式。

将处理后的内容写入新的文本文件b。

以下是一个简单的示例代码：

Option Explicit

Sub Main()
Dim strInputFilePath As String
Dim strOutputFilePath As String
Dim intInputFile As Integer
Dim intOutputFile As Integer
Dim strLine As String

' 指定输入和输出文件路径
strInputFilePath = "C:\Path\To\Input\File\a.txt"
strOutputFilePath = "C:\Path\To\Output\File\b.txt"

' 打开输入文件
intInputFile = FreeFile
Open strInputFilePath For Input As #intInputFile

' 创建输出文件
intOutputFile = FreeFile
Open strOutputFilePath For Output As #intOutputFile

' 逐行读取输入文件内容
Do While Not EOF(intInputFile)
Line Input #intInputFile, strLine

' 处理每行内容
strLine = "print#1, """ & strLine & """"

' 将处理后的内容写入输出文件
Print #intOutputFile, strLine
Loop

' 关闭文件
Close #intInputFile
Close #intOutputFile
End Sub
将此代码复制到VB6.0的模块（例如Module1.bas）中，然后运行。这段代码将读取文本文件a的每一行内容，将其处理为指定格式后，写入到新的文本文件b中。请确保替换文件路径为你的实际文件路径。