主题：怎么让写入文件时不换行？？
hao1122
[专家分：140] 发布于 2009-08-07 00:56:00
我想要的效果是 123 没有换行的
dim N as long
N = 0
Open "C:\ABC2.txt" For Output As #1
For N = 1 To 3
Write #1, N
Next N
Close #1
可是打开文件怎么变成了
1
2
3
？？？
回复列表 （共11个回复）
沙发
天天学习 [专家分：4570] 发布于 2009-08-07 10:00:00
用print语句，不过似乎也达不到你说的“123”的效果，而是“ 1 2 3 ”
试试以下各种方法输出的区别
Dim i As Integer
Open "e:\a.txt" For Output As #1
For i = 1 To 3
'Write #1, i
'Write #1, i;
'Write #1, i,
'Print #1, i
'Print #1, i,
Print #1, i;
Next
Close #1
板凳
一江秋水 [专家分：9680] 发布于 2009-08-07 10:47:00
Dim N As Long, M As String
For N = 1 To 3: M = M & N: Next
Open "D:\ABC2.txt" For Output As #1
Print #1, M
Close #1
3 楼
天天学习 [专家分：4570] 发布于 2009-08-07 11:17:00
Dim fso
Dim i As Integer
Dim fs
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.CreateTextFile("e:\b.txt")
For i = 1 To 3
fs.Write i
Next
fs.Close
Set fs = Nothing
Set fso = Nothing
4 楼
guoyong_cy [专家分：3050] 发布于 2009-08-14 17:28:00
? 123 ^o^
5 楼
我是大喊三 [专家分：3010] 发布于 2009-08-14 23:32:00
我想不换行的用二进制的写法也可吧？只要你不写&h0d和&h0a呵呵。
6 楼
hao1122 [专家分：140] 发布于 2009-08-18 00:26:00
写入的比较复杂
我只是用1 2 3 的例子来请教大家
谢谢各位
7 楼
老大徒伤悲 [专家分：29120] 发布于 2009-09-07 11:45:00
Write #1, N
的后面应该有个什么符号，你说呢？
8 楼
tanchuhan [专家分：15140] 发布于 2009-09-07 12:13:00
好像只能用For Binary,其他模式的都会自动加上vbCrLf.
9 楼
wwc7654321 [专家分：1590] 发布于 2009-09-08 21:32:00
好差劲
Write为什么还加上双引号？
10 楼
wwc7654321 [专家分：1590] 发布于 2009-09-13 16:58:00
哦
dim N as long
N = 0
Open "C:\ABC2.txt" For Output As #1
For N = 1 To 3
Print #1, Trim(Str(N));
Next N
Close #1
好像是没换行了，
学习了
我来回复
您所在位置：