Private Sub Form_Load() Call saveFile("aaaa", "c:\123.txt") End Sub Private Sub saveFile(Strl As String, Path As String) Open Path For Output As #1 Print #1, Strl Close #1 End Sub'最后多出一个回车符
那你就再多写一个print #1,chr(8) '退格 本团的团长——巫师 的完善答案:Print #1, Strl 这句的作用是把Strl的内容保存到文件,并加上回车。你可以将其改为 Print #1,Strl; 这句不会自动在后面加上回车的。 把你的代码改成这样:Private Sub Form_Load() Call saveFile("aaaa", "c:\123.txt") End Sub Private Sub saveFile(Strl As String, Path As String) Open Path For Output As #1 Print #1, Strl; Close #1 End Sub