AutoHotkey Community

sikongshan

这本是一个趣味函数，也许有人能用上，发到这里。有bug的话，欢迎指正。 2022年9月14日：修改了小数部分顺序颠倒的问题金额中阿互转(InputStr,To:="z") ;To: 中|阿 { ; 作者：sikongshan ; 更新日期：2022年09月14日 ; 改进：中文转阿拉伯部分，将小数点部分浮点运算改成整数运算，不再有精度问题 ; 限制：数值转中文部分，因为不涉及到大数值计算，可以到20位或者更高，但是中文转回阿拉伯的时候，超过17位数值则会有问题（受限于ahk计算），下次考虑拼接方式避免 InputStr:=trim(InputStr) if (RegExMatch(Inp...

sikongshan

学习了， kazhafeizhale 构建数组的思路很不错。后面的需求，我试了一下，当把数据表复制到10倍的时候，有点时间差。可能并没有完全理解。 SetBatchLines, -1 T_start:=A_TickCount oa:=object() ob:=object() Loop, read, fulllist.csv ;根据“fulllist”里面的267构建两个表表A==匹配客户id1 表B==匹配客户id2 { ArrSplit:=StrSplit(A_LoopReadLine,"`,") var9:= ArrSplit[9] var267:=ArrSplit[2] "`,"...

sikongshan

学习的过程更重要、学到的东西更多。

sikongshan

首先，您需要去百度翻译申请一个APPID，当然包含相应的SecretKey。可以去这个页面进行申请 http://api.fanyi.baidu.com/api/trans/product/index 申请完后，填写到脚本的相应位置。如果您没有appid，弹出来的窗口是没有结果的。 ; Cando_百度翻译: 原本这是用于candy一拉即译的一个小脚本段，当然可以单独使用之。 keyword:= "示例关键字" ;这是应用举例 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;...

sikongshan

首先，您需要去百度智能云上面申请一个APPID，当然包含相应的SecretKey。尚未申请的话，推荐参考这篇文章了解申请流程。 https://blog.csdn.net/sunyong0814/article/details/122362502 我相信，您有一定的ahk基础，所以gdip.ahk这个常用的脚本包，我就不附在这里啦。脚本如下： ; 按住右侧shift，按住鼠标左键进行框选 ; ; 我将这个脚本命名为【右手胡一刀之百度OCR】 ; 胡一刀系列的特点：每一个脚本都是独立的，但是每一个功能都是：右侧按一个键盘，比如Rctrl RAlt等，然后按住鼠标左键一划拉。一刀致命。 ; ...

sikongshan

Code: Select all

string=
(
hello autohotkey.
test string.
)
DllCall("msvcrt.dll\_wcsrev", "Ptr", &string, "CDECL")
MsgBox % string

https://www.autohotkey.com/boards/viewtopic.php?t=4134

sikongshan

jklop000 wrote: ↑
09 Apr 2021, 20:44
@sikongshan 非常感谢！！不过有个小问题，就是kong这个变量要在Loop前清空一次，不然多次替换的时候会出现多个“空空空空……”

是的，在每个Loop前必须加一个清空

sikongshan

请教了一下正则达人相关正则，可以精简一下，省掉替换步骤：

Code: Select all

Loop
	text:=RegExReplace(text,"（[^（）]{" A_index "}）","（" (kong.="空") "）")
until not regexmatch(text,"（[^（）]*[^空（）]+[^（）]*）")
MsgBox %text%

sikongshan

我也来一个 text := "爱财如命——（挥金如土）异口同声——（众说纷纭）" . "爱不释手——（弃若屐）半途而废——（坚持空懈）半途而废——（坚持懈）" . "一丝——（大叶）古今——（坐天）古今——（坐空空天空空）" Loop { kong.="空", text:=RegExReplace(text,"（.{" A_Index "}）","【" kong "】") ;找到一两个文本里面没用到的符号临时用，比如此处用的【】 if not (regexmatch(text,"（.+）")) ;如果没有匹配了，则退出 break } text:=StrReplace(text,"【"...

sikongshan

是的，基本上还是脚本编码问题
可以尝试吧文件编码选择为：带 BOM 的 UTF-8

sikongshan

mikelyou wrote: ↑
15 Mar 2021, 00:02
非常感谢几位大佬，问题解决啦。
顺便，下面两种代码有什么区别呀？
Code: Select all
:*:ftw::Free the whales
Code: Select all
::ftw::Free the whales

推荐看那本《论帮助手册的重要性》

sikongshan

fwejifjjwk2 wrote: ↑
14 Mar 2021, 22:09
用剪貼簿暴力解決
Code: Select all
shift & 4::
{
Sleep, 50
temp := clipboard
clipboard := "$"  
ClipWait
Send ^v
clipboard := temp
}

直接接管shift 4 也挺好的

Code: Select all

shift & 4::sendinput {text}$

sikongshan

按照我的理解，热字串监视的是键盘输入序列，全角的这种￥，类似于汉字，是经过了输入法处理输出的。

Code: Select all

:*:简::
	sendinput,这是一行简化的文字
	return

像上面这个例子是不能生效的。

具体到你的，可以尝试设置$输出$

Code: Select all

:*:`$::
	sendinput,{U+0024}
	return

我的电脑上只有一个输入法，没有专门的"英文键盘布局"，shift进行切换中英文。
上面这个代码，单独按那个$键盘的时候，不管中英文都输出$。

sikongshan

赞一下楼主的分享。ahk很适合改键这个工作。

sikongshan

loong wrote: ↑
08 Feb 2021, 22:02
真诚建议楼主不要用360的东西。而且浏览器最好换火狐，其次谷歌。

已经很久没用火狐了，用的百分浏览器
准备再试一下火狐

sikongshan

如果仅仅是变量值用作变量，这样就可以

Code: Select all

i := 1
IF(i<24)
{
	sheet%i% := i+100
	i++
}
b:=1
MsgBox % sheet1
MsgBox % sheet%b%

但是你的代码中，不是简单的用作变量，而是试图用作一个关联数组，这时候需要定义一下

Code: Select all

i := 1
IF(i<24)
{ 
	sheet%i%:={}
	sheet%i%.Visible := 1000
	i++
}

MsgBox % sheet1.visible

另外，我看你下面用了++，是不是想要循环，那个if并没有起到循环的作用

sikongshan

Thank you very much,The tutorial is very useful.

Search found 17 matches

金额中文阿拉伯数字互转函数

Re: 如何基于多个字段的子列表查询总表中的数据，并复制到新表？ Topic is solved

Re: 如何更精确sleep Topic is solved

利用百度免费的翻译API进行简单的翻译

利用百度免费的文字识别API进行屏幕OCR

Re: reverse text

Re: 如何替换一段文字中某些文字为同样数量的另一些文字？ Topic is solved

Re: 如何替换一段文字中某些文字为同样数量的另一些文字？ Topic is solved

Re: 如何替换一段文字中某些文字为同样数量的另一些文字？ Topic is solved

Re: 带汉字字符串循环出错

Re: 请教一下，如何自动替换￥字符 Topic is solved

Re: 请教一下，如何自动替换￥字符 Topic is solved

Re: 请教一下，如何自动替换￥字符 Topic is solved

Re: 自用ahk热键脚本及相关回顾

Re: 自用ahk热键脚本及相关回顾

Re: AHk怎么把变量值做变量用？

Re: jeeswg's object classes tutorial