读写文件

codekiwi 2003-03-08 11:52:47
怎样读写文件,我急用,希望各位大哥帮忙
...全文
61 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
codekiwi 2003-03-10
  • 打赏
  • 举报
回复
不管有没有c:\temp.txt这个文件,VB都会报告找不到文件,为什么?

Open CommonDialog1.filename For output As #1
为什么也提示找不到文件?
codekiwi 2003-03-10
  • 打赏
  • 举报
回复
为什么?
northwolves 2003-03-10
  • 打赏
  • 举报
回复
CommonDialog1.filename 赋值了么?

msgbox CommonDialog1.filename
用户 昵称 2003-03-10
  • 打赏
  • 举报
回复
把文本文件内容读取TextBox:
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)



把TextBox内容写入文本文件:
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
northwolves 2003-03-09
  • 打赏
  • 举报
回复
不然,若没装MSDN,按F1也没用。看看书吧。
Sean918 2003-03-09
  • 打赏
  • 举报
回复
打开一个代码编辑窗口,写上 Open , 选中这个 OPEN ,按 F1
codekiwi 2003-03-09
  • 打赏
  • 举报
回复
不管有没有c:\temp.txt这个文件,VB都会报告找不到文件
northwolves 2003-03-09
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim x
x=split(richtextbox1.Text ,vbcrlf)
Open "c:\temp.txt" For output As #1
for i=0 to ubound(x)
print #1,,x(i)
next
Close #1
End Sub
codekiwi 2003-03-09
  • 打赏
  • 举报
回复
读取呢?
northwolves 2003-03-09
  • 打赏
  • 举报
回复
可以。

Private Sub Command1_Click()
Dim x As String
richtextbox1.Text = ""
Open "c:\temp.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
richtextbox1.Text = richtextbox1.Text & x & vbCrLf
Loop
Close #1
End Sub
codekiwi 2003-03-09
  • 打赏
  • 举报
回复
我手边的书里用的是rich text
这个控件可以一行一行的读写吗?

各位大哥请明示,我急用.

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧