| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 457 人关注过本帖
标题:编写自己程序的调试日志出现错误
只看楼主 加入收藏
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
结帖率:92.31%
收藏
已结贴  问题点数:20 回复次数:6 
编写自己程序的调试日志出现错误
程序代码:
 On Error Resume Next
   Open (App.Path & "\ErrLog\RunTimeLog.log") For Input As #1
  Input #1, Tag4
  Close #1
  If Tag4 <> "" Then
  Tag5 = Tag4 & vbCrLf & Now & " ShutDown After " & Str(Tag1) & " Second"
  Else
  Tag5 = Now & " ShutDown After " & Str(Tag1) & " Second"
  End If
   Open (App.Path & "\ErrLog\RunTimeLog.log") For Output As #1
    Print #1, Tag5
   Close #1

该段代码本意为每次对Log文件增加一行文字
但是结果却是,最终只会有两行文字
怎么回事?
2015-05-23 21:56
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
Tag4 <> ""

无知
2015-05-23 22:28
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
回复 2楼 Artless
没看懂,什么意思?要修改么?

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-05-24 07:40
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
文件模式错了。应该使用 append  追加模式吧。
用 output ,每次打开文件都会把前面的内容删掉。

[ 本帖最后由 风吹过b 于 2015-5-24 19:42 编辑 ]

授人于鱼,不如授人于渔
早已停用QQ了
2015-05-24 08:34
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
回复 4楼 风吹过b
如何修改呢……
第一次接触写出文件方面,一窍不通啊

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-05-24 10:29
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
Tag5 = Now & " ShutDown After " & Str(Tag1) & " Second"   '生成写入的内容
   Open (App.Path & "\ErrLog\RunTimeLog.log") For append As #1    '以追加方式打开文件
    Print #1, Tag5    '在文件尾接着写入内容
   Close #1              '

在手机上写的代码,你自己调试一下。

---------
再仔细看了你原来的代码,错在读内容上面。
input 命令是读变量值,你后面跟着的是 字符串变量,那么就是读到行结尾就不读了。
要么使用二进制打开文件,一次读入。要么使用循环,按行读,读到的内容拼起来。
你的代码只读一次,也就是第一行。
加上最后保存的那行,只会有二行内容。

FSO操作文件时,追加内容就是使用你这种的方法,在 ASP 代码里用的多,但 FSO 有一个命令读所有的内容。

授人于鱼,不如授人于渔
早已停用QQ了
2015-05-24 13:48
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
回复 6楼 风吹过b
感谢!尝试成功!

[ 本帖最后由 renxiaoyao36 于 2015-5-24 16:31 编辑 ]

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-05-24 16:28
快速回复:编写自己程序的调试日志出现错误
数据加载中...
 
   



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

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