Open "C:\1.txt" For Output As #1 Print #1, "Line1" Print #1, "Line2" Close #1
Open "C:\1.txt" For Output As #1 Print #1, "Line1" Print #1, "Line2" Close #1
Open "C:\1.txt" For Output As #1 Print #1, "Line1" Close #1
Open "C:\1.txt" For Output As #1 Print #1, "Line1" Print #1, "Line2" Close #1 用write 它会自动给你加上""而print 不会,本来是什么样子,写进去的就是什么样子!
'逐行打开: Open 文件... For Input As #1 Do While Not EOF(2) Line Input #1, inDa '逐行载入数据 Text1.Text = txtNote.Text + inDa + vbCrLf Loop Close #1 '写入: Open 文件... For Output As #1 Print #1, Text.Text Close #1
Print #1, "Line1"
Print #1, "Line2"
Close #1
Print #1, "Line1"
Print #1, "Line2"
Close #1
Print #1, "Line1"
Close #1
Print #1, "Line1"
Print #1, "Line2"
Close #1
用write 它会自动给你加上""而print 不会,本来是什么样子,写进去的就是什么样子!
Open 文件... For Input As #1
Do While Not EOF(2)
Line Input #1, inDa
'逐行载入数据
Text1.Text = txtNote.Text + inDa + vbCrLf
Loop
Close #1
'写入:
Open 文件... For Output As #1
Print #1, Text.Text
Close #1