可能是今年最菜鸟的问题,怎么把这双引号去掉?

[windata]

Dim a, b, c, d As String
Open "d:\1.txt" For Output As #2
Open "d:\2.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。

Line Input #1, a ' 将数据读入两个变量。
Print a
Write #2, a

Debug.Print a ' 在立即窗口中显示数据。
Loop
Close #1
Close #2

我的代码是想把1.txt的东西原封不动的放入2.txt ,可是write把数据写入的时候
在前后加了引号,痛苦啊,怎么不让它 写引号啊

[wamlaw]

用取字符串硬去行吗？

[mndsoft]

用fso，兼容而且标准！

[windata]

楼上的老哥,说清楚点啊,fso是什么东西啊

[IwantFlay]

先用replace函数将变量a中的双引号替换成空,然后再存到文件2中就可以了.
replace函数的用法可以看一下msdn

[Greaitm]

Dim a, b, c, d As String
Open "d:\1.txt" For Output As #2
Open "d:\2.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。

Line Input #1, a ' 将数据读入两个变量。
Print a
Print #2, a

Debug.Print a ' 在立即窗口中显示数据。
Loop
Close #1
Close #2

[liangqiang]

使用Print方法就不会有引号了
如：
Print #2,a

[nccxf]

最简单的办法是采用VB6.0中最新的fso系统，标准方便
方法是：
在工程属性中引用microsoft scripting runtime项
然后创建一个fso对象
例:dim myfso as new filesystemobject ，myfile as file
set myfile=fso.getfile("d:\1.txt")
.......
fso对象还有很多功能，你可以用[对象浏览器]来查看一下。
另外还有就是写入文件是如果用write，数据在磁盘上以紧凑格式存放，并将自动插入逗号和引号。
如果你依然用传统的I/O语句写程序的话，对于这种问题你应该用print语句写入数据

[netsing]

print #2 a
照你的程序不是把1中的内容写到2中,而是把2中的内容写到1中,好好看看吧

[windata]

用print可以,谢谢大家