7,763
社区成员
发帖
与我相关
我的任务
分享
要修改的文件D:\123.txt,修改后的文件保存为D:\abc.txt
Private Sub Command1_Click()
Dim FileNumber1, FileNumber2, Str As String
FileNumber1 = FreeFile '得到一个未使用的文件号。
Open "D:\123.txt" For Input As #FileNumber1 '打开要读取的文件
FileNumber2 = FreeFile
Open "D:\abc.txt" For Output As #FileNumber2 '打开要写入的文件
While Not EOF(1) ‘直到最后一行
Line Input #FileNumber1, Str ’按行读取文件
Str = Replace(Str, "@02", "大") ‘替换第一个字符
Str = Replace(Str, "@03", "100") '替换第二个字符
Str = Replace(Str, "@04", "567")'替换第三个字符
Print #FileNumber2, Str '写入替换后的内容
Wend
Close #FileNumber1 '关闭文件
Close #FileNumber2 '关闭文件
End Sub