打开txt文件的问题

leefc 2003-03-26 01:59:57

程序运行后用 Open openfilename For Input As #1
打开一个txt的文件可以，但是不退出程序，再打开txt文件就不行了。

...全文

83 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

lihonggen0 2003-03-26

打赏
举报

可以这样

Private Sub open_Click()
On Error GoTo errto

CommonDialog1.CancelError = True
CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

openfilename = CommonDialog1.FileName

Open openfilename For Input As #1

Line Input #1, linestr
Text1.Text = linestr
Close #1

Exit Sub
End If
errto:

End Sub

asialove2003 2003-03-26

打赏
举报

因为你已经给琐定当前文件了

我的

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To listlinks.ListCount
Text1.Text = listlinks.List(i)
Open "C:\13.txt" For Output As #1
Print #1, Text1.Text
Next
Close #1
如果close 在这里就是说文件已经打开！你那close 的位置不对
End Sub

asialove2003 2003-03-26

打赏
举报

顺便帮我看看这个怎么不好用呢

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To listlinks.ListCount
Text1.Text = listlinks.List(i)
Open "C:\13.txt" For Output As #1
Print #1, Text1.Text
Close #1
Next
End Sub

Cooly 2003-03-26

打赏
举报

你的On Error Goto没有意义啊。没有任何错误处理。

Private Sub open_Click()
On Error GoTo errto

CommonDialog1.filename = ""
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen

If CommonDialog1.filename <> "" Then

openfilename = CommonDialog1.filename

Open openfilename For Input As #1

Line Input #1, linestr
Text1.Text = linestr
Close #1
End If
Exit Sub
errto:

End Sub

leefc 2003-03-26

打赏
举报

已经关闭了阿
这是源码，不知错在哪里？

Private Sub open_Click()
On Error GoTo errto
10 CommonDialog1.CancelError = True
CommonDialog1.ShowOpen

If CommonDialog1.filename <> "" Then

openfilename = CommonDialog1.filename

Open openfilename For Input As #1

Line Input #1, linestr
Text1.Text = linestr
Close #1

Exit Sub
End If
errto:

End Sub