红色联盟收集整理

内容:讨论如何在用VB编写的记事中实现自动将日志添加到文档尾部、判断保存还是另存为、确认文件是否需要保存等功能。

Windows自带的记事本即Notepad有一些功能还是颇具吸引力的,比如自动在特定的文档尾部加入计算机时钟的时间和日期,截取已经打开或者保存了的纯文档名[见记事本的标题栏]以及搜索等,给用户带来许多方便。本文就TextBox控件讨论如何实现这些功能。

一、将日志添加到文档

在Windows中,如果文档的第一行最左边有".LOG"字样,那么每次用记事本打开此文时,记事本会自动在文档尾部加入时间日期。
".LOG"共占四个字节,又置于文档第一行顶格处,因此可以用VB的Left函数来读取这个字符串,如有,则用CStr函数来自动添加时间和日期。
我们可以在打开文件的程序加入以下代码:

DimaAsString
a=Left(Text1.Text,4)取得头4个字节
Ifa=".LOG"Then若有则:
Text1.SelStart=Len(Text1.Text)光标移到文件尾
Text1.SelText=vbCrLf&CStr(Now)加入换行和时间
Else若无,退出过程
ExitSub
EndIf

这样,我们用VB编写的记事本就和Windows的Notepad一样具有自动将日志添加到文档的功能了。