请教关于文件读写的问题

2002-04-24 07:57:47 81 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Matlab有意思的函数绘图在区间[-5,5]中,用fplot绘制函数y=sin(x)+x的图形由fplot(f) 在默认区间 [-5 5]（对于 x）绘制由函数 y = f(x) 定义的曲线和演示图可知 fplot(@(x) sin(x)+x) 阅读详情

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

...全文

MATLAB-二次曲面 ezsurfc（）函数，surf(X,Y,Z)函数， mesh(x,y,z)函数阅读详情

kevindude

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

kevindude 2002-04-25

打赏
举报

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

xxlroad 2002-04-25

打赏
举报

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

jyu1221 2002-04-25

打赏
举报

print #5,vbcrlf

ayuu 2002-04-24

打赏
举报

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

bestofbest 2002-04-24

打赏
举报

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

enmity 2002-04-24

打赏
举报

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

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

zyl910 2002-04-24

打赏
举报

读取：
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

请教关于文件读写的问题

相关推荐