请教关于文件读写的问题

[kevindude]

当我向文件中写入一个字串时，引号也会被写入，如
Dim s As String
s = "abcd"
Open "c:\a.dat" For Output As #5
Write #5, s
这样在a.dat中的内容是"abcd",而不是abcd，我想去掉引号，怎么做呢？

[zyl910]

读取：
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)

写入：
Dim TempFile As Long
Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

[enmity]

如果是文本文件，可以这样存取：



Private Sub cmdLoad_Click()

Dim o_intFileNum As Integer
Dim o_strLineContent As String

o_intFileNum = FreeFile

Open "c:\abc.txt" For Input As #o_intFileNum
'Do While Not EOF(o_intFileNum) '如果不止一行，请把注释去掉
Line Input #1, o_strLineContent
MsgBox o_strLineContent
'Loop'如果不止一行，请把注释去掉
Close #o_intFileNum

End Sub


Private Sub cmdSave_Click()

Dim o_intFileNum As Integer

o_intFileNum = FreeFile

'Open "c:\abc.txt" For Append As #o_intFileNum '添加模式
Open "c:\abc.txt" For Output As #o_intFileNum '覆盖模式

Print #1, "哈哈"

Close #o_intFileNum

End Sub

[bestofbest]

够详细，够清楚
不就不敢再多说了
你刚才的程序只需要把write改为print就可以了

[ayuu]

同意楼上的。
print #文件号,参数
是不包含“的。

[jyu1221]

print #5,vbcrlf

[xxlroad]

Private Sub Form_Load()
Dim s As String
s = "abcd"
Open "c:\a.dat" For Output As #5
Print #5, s '写如abcd
Print #5, "" '加个空行
Print #5, s '写如abcd
Close #5
End Sub

[kevindude]

谢了，各位！
我还有一个问题，怎样插入一个空行呢？