|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- 空间 日记本
- 字符型 日记名称
- 功能 逻辑型 写日记_点击()
- 逻辑型 是否存在
- 是否存在=文件.是否存在("c:\\diary")
- 如果(是否存在)
- 日记本.创建日记()
- 否则
- 文件.创建文件夹("c:\\diary")
- 日记本.创建日记()
- 如果结束
- 日记本.打开日记()
- 返回 真
- //函数返回语句
- 功能结束
- 功能 bool 创建日记()
- 字符型 时间,内容,路径
- 时间=系统.时间(0)
- 内容=字符串.截取(时间,0,11)
- 日记名称=字符串.连接(内容,"日记.rtf")
- 辅助.消息框(日记名称)
- 路径="c:\\diary\\"
- 日记名称=字符串.连接(路径,日记名称)
- 整型 文件句柄
- 文件句柄=文件.创建(日记名称,"rw") //属性默认值:"创建文件"
- 如果(文件句柄==0)
- 辅助.消息框("日记创建失败")
- 否则
- 辅助.消息框("日记创建成功")
- 文件.关闭(文件句柄)
- 如果结束
- 返回 真
- 功能结束
- 功能 逻辑型 打开日记()
- 字符型 标题,天气
- 标题=编辑框.获得文本("编辑框0")
- 天气=编辑框.获得文本("编辑框1")
- 整型 文件句柄
- 文件句柄=文件.打开(日记名称) //属性默认值:"读写|文件要存在|共享读|共享写"
- 如果(文件句柄==0)
- 辅助.消息框("文件打开失败")
- 否则
- 文件.写入(文件句柄,标题)
- 逻辑型 是否显示
- //窗口.显示(文件句柄)
- 如果(是否显示)
- 辅助.消息框("显示")
- 如果结束//
- 如果结束
- 返回 真
- 功能结束
- 功能 逻辑型 退出_点击()
- //这里添加你要执行的代码
- 辅助.退出()
- 返回 真
- //函数返回语句
- 功能结束
- 空间结束
- //空间结束语
复制代码
打开文件后,写入正常,可是怎么没有窗口呢,怎么才能出现该文件窗口。
|
|