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

Question

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把数据写入的时候
在前后加了引号,痛苦啊,怎么不让它 写引号啊

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

最简单的办法是采用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语句写入数据

Answer 6

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