读入文件，每个操作都多读了一遍

qawsedzz002

  

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
按键类型	整数型
键代码	整数型

变量名	类 型	静态	数组	备 注
按键放开	文本型
路径	文本型
按键按下	文本型
数据	文本型
北京时间	文本型

判断 (按键类型 ＝ 256)
调试输出 (“用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))
键盘_消息 (编辑框窗口句柄, 键代码, 3, 假)
判断 (按键类型 ＝ 257)
调试输出 (“用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))


北京时间 ＝ 到文本 (取现行时间 ())
路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt”
按键按下 ＝ 北京时间 ＋ “用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)
按键放开 ＝ 北京时间 ＋ “用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)
数据 ＝ 到文本 (读入文件 (路径))  ' 如果不读入的话会导致源文件被覆盖
如果 (数据 ＝ “”)
数据 ＝ 按键按下 ＋ #换行符 ＋ 按键放开
数据 ＝ 数据 ＋ #换行符 ＋ 按键按下 ＋ #换行符 ＋ 按键放开
写到文件 (路径, 到字节集 (数据))
返回 (键代码)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
父句柄	整数型

父句柄 ＝ 窗口_取句柄_模糊 (, 编辑框1.内容)
编辑框窗口句柄 ＝ 窗口_取句柄 (父句柄, , 编辑框2.内容, )
钩子句柄 ＝ 键盘.安装钩子_键盘 (编辑框窗口句柄, &钩子回调函数, 真)
如果 (钩子句柄 ＞ 0)
调试输出 (“钩子安装成功”)
调试输出 (“钩子安装失败”)

调试输出
[16:11:23] * “用户按下 F 键 | 70”
[16:11:23] * “因为你按下了启动键，所以我出现了”
[16:11:23] * “用户放开 F 键 | 70”
[16:11:24] * “用户按下 F 键 | 70”
[16:11:24] * “用户放开 F 键 | 70”
[16:11:24] * “因为你按下了启动键，所以我出现了”
[16:11:25] * “用户按下 F 键 | 70”
[16:11:25] * “用户放开 F 键 | 70”
[16:11:25] * “因为你按下了启动键，所以我出现了”
[16:11:26] * “用户按下 G 键 | 71”
[16:11:26] * “因为你按下了停止键，所以我出现了”
[16:11:26] * “用户放开 G 键 | 71”
实际写入
2024年3月4日16时11分23秒用户按下 F 键 | 70
2024年3月4日16时11分23秒用户放开 F 键 | 70
2024年3月4日16时11分23秒用户按下 F 键 | 70
2024年3月4日16时11分23秒用户放开 F 键 | 70
2024年3月4日16时11分24秒用户按下 F 键 | 70
2024年3月4日16时11分24秒用户放开 F 键 | 70
2024年3月4日16时11分24秒用户按下 F 键 | 70
2024年3月4日16时11分24秒用户放开 F 键 | 70
2024年3月4日16时11分25秒用户按下 F 键 | 70
2024年3月4日16时11分25秒用户放开 F 键 | 70
2024年3月4日16时11分25秒用户按下 F 键 | 70
2024年3月4日16时11分25秒用户放开 F 键 | 70
2024年3月4日16时11分26秒用户按下 G 键 | 71
2024年3月4日16时11分26秒用户放开 G 键 | 71
2024年3月4日16时11分26秒用户按下 G 键 | 71
2024年3月4日16时11分26秒用户放开 G 键 | 71
问题
1、不加路经 会覆盖掉原有的内容
2、加了路径 就会吧输出每次的操作写入2遍
3、但是我调试输出的却是正确的
想知道 怎么才能让它读入文件内容和调试输出一样 不多不少

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .参数 按键类型, 整数型<br /> .参数 键代码, 整数型<br /> .局部变量 按键放开, 文本型<br /> .局部变量 路径, 文本型<br /> .局部变量 按键按下, 文本型<br /> .局部变量 数据, 文本型<br /> .局部变量 北京时间, 文本型<br /> <br /> .判断开始 (按键类型 ＝ 256)<br />     调试输出 (“用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))<br />     键盘_消息 (编辑框窗口句柄, 键代码, 3, 假)<br /> .判断 (按键类型 ＝ 257)<br />     调试输出 (“用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))<br /> .默认<br /> <br /> .判断结束<br /> 北京时间 ＝ 到文本 (取现行时间 ())<br /> 路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt”<br /> 按键按下 ＝ 北京时间 ＋ “用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)<br /> 按键放开 ＝ 北京时间 ＋ “用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)<br /> 数据 ＝ 到文本 (读入文件 (路径))  ' 如果不读入的话会导致源文件被覆盖<br /> .如果 (数据 ＝ “”)<br />     数据 ＝ 按键按下 ＋ #换行符 ＋ 按键放开<br /> .否则<br />     数据 ＝ 数据 ＋ #换行符 ＋ 按键按下 ＋ #换行符 ＋ 按键放开<br /> .如果结束<br /> 写到文件 (路径, 到字节集 (数据))<br /> 返回 (键代码)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 父句柄, 整数型<br /> <br /> 父句柄 ＝ 窗口_取句柄_模糊 (, 编辑框1.内容)<br /> 编辑框窗口句柄 ＝ 窗口_取句柄 (父句柄, , 编辑框2.内容, )<br /> 钩子句柄 ＝ 键盘.安装钩子_键盘 (编辑框窗口句柄, &钩子回调函数, 真)<br /> .如果 (钩子句柄 ＞ 0)<br />     调试输出 (“钩子安装成功”)<br /> .否则<br />     调试输出 (“钩子安装失败”)<br /> .如果结束<br /> <br /> 调试输出 <br /> [16:11:23] * “用户按下 F 键 | 70”<br /> [16:11:23] * “因为你按下了启动键，所以我出现了”<br /> [16:11:23] * “用户放开 F 键 | 70”<br /> [16:11:24] * “用户按下 F 键 | 70”<br /> [16:11:24] * “用户放开 F 键 | 70”<br /> [16:11:24] * “因为你按下了启动键，所以我出现了”<br /> [16:11:25] * “用户按下 F 键 | 70”<br /> [16:11:25] * “用户放开 F 键 | 70”<br /> [16:11:25] * “因为你按下了启动键，所以我出现了”<br /> [16:11:26] * “用户按下 G 键 | 71”<br /> [16:11:26] * “因为你按下了停止键，所以我出现了”<br /> [16:11:26] * “用户放开 G 键 | 71”<br /> <br /> <br /> 实际写入<br /> 2024年3月4日16时11分23秒用户按下 F 键 | 70<br /> 2024年3月4日16时11分23秒用户放开 F 键 | 70<br /> 2024年3月4日16时11分23秒用户按下 F 键 | 70<br /> 2024年3月4日16时11分23秒用户放开 F 键 | 70<br /> 2024年3月4日16时11分24秒用户按下 F 键 | 70<br /> 2024年3月4日16时11分24秒用户放开 F 键 | 70<br /> 2024年3月4日16时11分24秒用户按下 F 键 | 70<br /> 2024年3月4日16时11分24秒用户放开 F 键 | 70<br /> 2024年3月4日16时11分25秒用户按下 F 键 | 70<br /> 2024年3月4日16时11分25秒用户放开 F 键 | 70<br /> 2024年3月4日16时11分25秒用户按下 F 键 | 70<br /> 2024年3月4日16时11分25秒用户放开 F 键 | 70<br /> 2024年3月4日16时11分26秒用户按下 G 键 | 71<br /> 2024年3月4日16时11分26秒用户放开 G 键 | 71<br /> 2024年3月4日16时11分26秒用户按下 G 键 | 71<br /> 2024年3月4日16时11分26秒用户放开 G 键 | 71<br /> <br /> 问题<br /> 1、不加路经 会覆盖掉原有的内容<br /> 2、加了路径 就会吧输出每次的操作写入2遍<br /> 3、但是我调试输出的却是正确的 <br /> 想知道 怎么才能让它读入文件内容和调试输出一样 不多不少

huozhi

.版本 2
.支持库 spec

.子程序 子程序1
.参数 按键类型, 整数型
.参数 键代码, 整数型
.局部变量 数据, 文本型
.局部变量 按键文本, 文本型
.局部变量 北京时间, 文本型
.局部变量 路径, 文本型

按键文本 ＝ “”
北京时间 ＝ ToString (取现行时间 ())
路径 ＝ GetRunPath () ＋ “\” ＋ “按键信息.txt”
.if (按键类型 ＝ 256)
    按键文本 ＝ 北京时间 ＋ “用户按下 ” ＋ String_Char (键代码) ＋ “ 键 | ” ＋ ToString (键代码)
    调试输出 (“用户按下 ” ＋ String_Char (键代码) ＋ “ 键 | ” ＋ ToString (键代码))
    键盘_消息 (编辑框窗口句柄, 键代码, 3, 假)
.如果真结束

.if (按键类型 ＝ 257)
    按键文本= 北京时间 ＋ “用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)
    调试输出 (“用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))
.如果真结束

数据 ＝ 到文本 (读入文件 (路径))  ' 如果不读入的话会导致源文件被覆盖
.ife (数据 ＝ “”)
    数据 ＝ 按键文本 ＋ #换行符
.否则
    数据 ＝ 数据 ＋ #换行符 ＋ 按键文本 ＋ #换行符
.如果结束

写到文件 (路径, 到字节集 (数据))





大概写了一下逻辑，本地没运行，不知道代码有没有错，你可以看看思路

f15007937680

是不是有重复的代码 或者有调试输出也会重新执行

风度猫

应为你写出了内容 不是读了两遍,,而是你读入后 写入保存了,,,你第二次打开 他把之前的先读出来 在加上你这次操作的 你看着才两次 你加个时间一起写出来 你就明白了

qawsedzz002

风度猫 发表于 2024-3-4 16:28
应为你写出了内容 不是读了两遍,,而是你读入后 写入保存了,,,你第二次打开 他把之前的先读出来 在加上你这 ...

没理解 ，我每次都删除文件 ，重新写入的，删了数据 就会保留最后一个是正确的 ，加了数据就会多加一倍数据

风度猫

qawsedzz002 发表于 2024-3-4 16:36
没理解 ，我每次都删除文件 ，重新写入的，删了数据 就会保留最后一个是正确的 ，加了数据就会多加一倍数 ...

你肯定的啊 ...你这完全没必要读入啊

例如你记事本来是空的
这次读入的是空
写出了111
下次又先读入 111
操作结果22
那不就是111  22  一起写出了
所以不用读啊  你要是只存当次的

1355568730

你多写了 ，当 按下某键时 触发回调 写入文件 按键按下  +  按键放开 ，放开某键时 又 写入文件 按键按下  +  按键放开 ，因此写了两遍，
把写入文件 放到 判断 (按键类型 ＝ 256) 里面 按下某键 就写入文件 按下某键，判断 (按键类型 ＝ 257) 里面 放开 就写入 放开某键

1355568730

可以这些写

  

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
按键类型	整数型
键代码	整数型

变量名	类 型	静态	数组	备 注
按键放开	文本型
路径	文本型
按键按下	文本型
数据	文本型
北京时间	文本型

' 不需要每次都读文件，可以 窗口 创建完毕就 读取文件 把 读取的数据 保存 全局变量，后续 直接 全局_数据+数据 在 写到文件
' 路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt” 这个 也不需要每次按键都 取一下运行目录 可以放全局变量
路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt”
判断 (按键类型 ＝ 256)
调试输出 (“用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))
键盘_消息 (编辑框窗口句柄, 键代码, 3, 假)
北京时间 ＝ 到文本 (取现行时间 ())
按键按下 ＝ 北京时间 ＋ “用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)
' 根据上面说的 读取一次数据即可，不需要每次都读文件，保存了 直接写
全局_数据 ＝ 全局_数据 ＋ 按键按下 ＋ #换行符
写到文件 (路径, 到字节集 (全局_数据))

判断 (按键类型 ＝ 257)
调试输出 (“用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))
北京时间 ＝ 到文本 (取现行时间 ())
按键放开 ＝ 北京时间 ＋ “用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)
全局_数据 ＝ 全局_数据 ＋ 按键放开 ＋ #换行符
写到文件 (路径, 到字节集 (全局_数据))



' 北京时间 ＝ 到文本 (取现行时间 ())
' 路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt”
' 按键按下 ＝ 北京时间 ＋ “用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)
' 按键放开 ＝ 北京时间 ＋ “用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)
' 数据 ＝ 到文本 (读入文件 (路径))  ' 如果不读入的话会导致源文件被覆盖
. ' 如果 (数据 ＝ “”)如果 ()
' 数据 ＝ 按键按下 ＋ #换行符 ＋ 按键放开
' 数据 ＝ 数据 ＋ #换行符 ＋ 按键按下 ＋ #换行符 ＋ 按键放开
' 写到文件 (路径, 到字节集 (数据))
返回 (键代码)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .参数 按键类型, 整数型<br /> .参数 键代码, 整数型<br /> .局部变量 按键放开, 文本型<br /> .局部变量 路径, 文本型<br /> .局部变量 按键按下, 文本型<br /> .局部变量 数据, 文本型<br /> .局部变量 北京时间, 文本型<br /> <br /> ' 不需要每次都读文件，可以 窗口 创建完毕就 读取文件 把 读取的数据 保存 全局变量，后续 直接 全局_数据+数据 在 写到文件<br /> ' 路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt” 这个 也不需要每次按键都 取一下运行目录 可以放全局变量<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt”<br /> <br /> .判断开始 (按键类型 ＝ 256)<br />     调试输出 (“用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))<br />     键盘_消息 (编辑框窗口句柄, 键代码, 3, 假)<br /> <br />     北京时间 ＝ 到文本 (取现行时间 ())<br />     按键按下 ＝ 北京时间 ＋ “用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)<br />     ' 根据上面说的 读取一次数据即可，不需要每次都读文件，保存了 直接写<br />     全局_数据 ＝ 全局_数据 ＋ 按键按下 ＋ #换行符<br />     写到文件 (路径, 到字节集 (全局_数据))<br /> <br /> .判断 (按键类型 ＝ 257)<br />     调试输出 (“用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码))<br /> <br />     北京时间 ＝ 到文本 (取现行时间 ())<br />     按键放开 ＝ 北京时间 ＋ “用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)<br />     全局_数据 ＝ 全局_数据 ＋ 按键放开 ＋ #换行符<br />     写到文件 (路径, 到字节集 (全局_数据))<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> ' 北京时间 ＝ 到文本 (取现行时间 ())<br /> ' 路径 ＝ 取运行目录 () ＋ “\” ＋ “按键信息.txt”<br /> ' 按键按下 ＝ 北京时间 ＋ “用户按下 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)<br /> ' 按键放开 ＝ 北京时间 ＋ “用户放开 ” ＋ 字符 (键代码) ＋ “ 键 | ” ＋ 到文本 (键代码)<br /> ' 数据 ＝ 到文本 (读入文件 (路径))  ' 如果不读入的话会导致源文件被覆盖<br /> .' 如果 (数据 ＝ “”)如果 ()<br />     ' 数据 ＝ 按键按下 ＋ #换行符 ＋ 按键放开<br /> .否则<br />     ' 数据 ＝ 数据 ＋ #换行符 ＋ 按键按下 ＋ #换行符 ＋ 按键放开<br /> .如果结束<br /> ' 写到文件 (路径, 到字节集 (数据))<br /> 返回 (键代码)

qawsedzz002

huozhi 发表于 2024-3-4 16:52
.版本 2
.支持库 spec

没懂逻辑 但是复制下去 可以达到目的 给你了