标题:[求助]请看此段程序,发生保存异常!不知道怎么解决!
只看楼主
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
结帖率:78.95%
 问题点数:0 回复次数:2 
[求助]请看此段程序,发生保存异常!不知道怎么解决!

这段程序实现新建后后提示是否保存的作用,如果我用一个新的文件名保存就无问题,但如果我先择一个已存在的文件名就
有问题了,例如我选择一个名叫:text.txt的文件名保存..情况就会这样:文件不会保存到text.txt 中,而是生成另一个新的文件"text.txt.txt",文件就会保存到这样一个文件,请问该如何解决?谢谢!

Private Sub new_file() '"新建"子程序
Dim button_YN, k As Integer
Dim filter1, filter2 As String
Dim temp1(), temp2() As String

filter1 = cmd1.FileName
cmd1.filter = "*.txt"
button_YN = MsgBox("是否保存当前文档", vbYesNo)

If button_YN = vbYes Then
cmd1.ShowSave

For i = 1 To 4
If Right(filter1, i) = Right(".txt", i) Then '验证用户输入的文件名是否包含"txt"
k = k + 1
End If
Next

If k = 4 Then
Open filter1 For Output As #1
Print #1, RB.Text
Close #1

Else

filter1 = cmd1.FileName & ".txt" '如果用户输入的文件名不包含"txt"那么程序自动加上
Open filter1 For Output As #1
Print #1, RB.Text
Close #1

End If
End If
RB.Text = "" '清空工作区内容
End Sub

[此贴子已经被作者于2006-12-10 22:49:08编辑过]

搜索更多相关主题的帖子: 保存 
2006-12-10 22:39
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
得分:0 
怎么没有人帮帮我的?

blogs.com/images/2011/147787/2011051411021524.jpg" border="0" />
2006-12-11 10:52
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
你的代码有点漠名其秒。。。
你不需要去Right(filter1, i) = Right(".txt", i)这样的处理,
既然你用了Filter属性了,就不需要这样了。。
你直接用open它就行了。。

我的msn: myfend@hotmail.com
2006-12-11 11:30



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-108679-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.099345 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved