取键值

学而容易

文本=“csac21312fgdbgvfdopiueroeutnxjvkmxcnv;a16489”
怎样取出分割后的每个文本按键值？
比如
c=67
tab=9
s=83
a=65
这样依次取出来

观音

  

getKeyCode (“csac21312fgdbgvfdopiueroeutnxjvkmxcnv;a16489”)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
getKeyCode
参数名	类 型	参考	可空	数组	备 注
text	文本型

变量名	类 型	静态	数组	备 注
str	文本型		0
i	整数型
keyCode	整数型

计次循环首 (文本_逐字分割 (text, str), i)
keyCode ＝ 键盘_键名取键代码 (str [i] ＋ “键”)
调试输出 (str [i], keyCode)  ' 注意，只支持英文和数字，其他字符需要自己判断
如果真 (keyCode ≠ 0)
' 这里写你的模拟按键

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> getKeyCode (“csac21312fgdbgvfdopiueroeutnxjvkmxcnv;a16489”)<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 getKeyCode<br /> .参数 text, 文本型<br /> .局部变量 str, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 keyCode, 整数型<br /> <br /> .计次循环首 (文本_逐字分割 (text, str), i)<br />     keyCode ＝ 键盘_键名取键代码 (str <i> ＋ “键”)<br />     调试输出 (str <i>, keyCode)  ' 注意，只支持英文和数字，其他字符需要自己判断<br />     .如果真 (keyCode ≠ 0)<br />         ' 这里写你的模拟按键<br />     .如果真结束<br /> <br /> .计次循环尾 ()

mytiger

你这个需要确定"tab"这样的功能键有哪些?先取出功能键值,然后再取其他键值.

mytiger

  

子程序名	返回值类型	公开	备 注
取键值

变量名	类 型	静态	数组	备 注
文本	文本型
键值	文本型		0
i	整数型
替换	整数型		0
键码	整数型
键码数组	整数型		0
k

文本 ＝ “csac21312fgdbgtabvf12dopiuewinroeutnxjvkmxcnv;esca16489”
键值 ＝ { “ctrl”, “17”, “alt”, “18”, “shift”, “16”, “win”, “91”, “space”, “32”, “cap”, “20”, “tab”, “9”, “esc”, “27”, “enter”, “13”, “back”, “8”, “delete”, “46”, “home”, “36”, “end”, “35”, “pgup”, “33”, “pgdn”, “34” }
变量循环首 (1, 取数组成员数 (键值), 2, i)
如果真 (寻找文本 (文本, 键值 [i], , 真) ≠ -1)
文本 ＝ 子文本替换 (文本, 键值 [i], “~”, , , 真)
加入成员 (替换, 到整数 (键值 [i ＋ 1]))

变量循环尾 ()
计次循环首 (取文本长度 (文本), i)
键码 ＝ 取代码 (文本, i)
如果真 (键码 ≥ 97 且 键码 ≤ 122)
键码 ＝ 键码 － 32
如果真 (键码 ＝ 取代码 (“~”, ))
键码 ＝ 替换 [k ＋ 1]
k ＝ k ＋ 1
加入成员 (键码数组, 键码)
计次循环尾 ()
调试输出 (键码数组)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取键值<br /> .局部变量 文本, 文本型<br /> .局部变量 键值, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 替换, 整数型, , "0"<br /> .局部变量 键码, 整数型<br /> .局部变量 键码数组, 整数型, , "0"<br /> .局部变量 k<br /> <br /> 文本 ＝ “csac21312fgdbgtabvf12dopiuewinroeutnxjvkmxcnv;esca16489”<br /> 键值 ＝ { “ctrl”, “17”, “alt”, “18”, “shift”, “16”, “win”, “91”, “space”, “32”, “cap”, “20”, “tab”, “9”, “esc”, “27”, “enter”, “13”, “back”, “8”, “delete”, “46”, “home”, “36”, “end”, “35”, “pgup”, “33”, “pgdn”, “34” }<br /> .变量循环首 (1, 取数组成员数 (键值), 2, i)<br />     .如果真 (寻找文本 (文本, 键值 <i>, , 真) ≠ -1)<br />         文本 ＝ 子文本替换 (文本, 键值 <i>, “~”, , , 真)<br />         加入成员 (替换, 到整数 (键值 [i ＋ 1]))<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> .计次循环首 (取文本长度 (文本), i)<br />     键码 ＝ 取代码 (文本, i)<br />     .如果真 (键码 ≥ 97 且 键码 ≤ 122)<br />         键码 ＝ 键码 － 32<br />     .如果真结束<br />     .如果真 (键码 ＝ 取代码 (“~”, ))<br />         键码 ＝ 替换 [k ＋ 1]<br />         k ＝ k ＋ 1<br />     .如果真结束<br />     加入成员 (键码数组, 键码)<br /> .计次循环尾 ()<br /> 调试输出 (键码数组)

学而容易

mytiger 发表于 2024-3-26 07:57
[e=0].版本 2
.支持库 spec

我想取键盘所有键值，比如文本会变后呢，qwertyuiopasdfghjklzxcvb 还有大小写

mytiger

学而容易 发表于 2024-3-26 08:02
我想取键盘所有键值，比如文本会变后呢，qwertyuiopasdfghjklzxcvb 还有大小写

键盘所有键值基本上就差F1-F12了吧,如果要区分大小写就把如果真 (键码 ≥ 97 且 键码 ≤ 122)这2行删掉