Au3 随机生成不重复的中文

5月282020

作者：绿色风发布：2020-5-28 21:36 Thursday 分类：UDF(收集) 阅读：3017次评论：0条


Local $str = _RandomCnStr(10)
MsgBox(0,"",$str) 

;成功返回字符串，失败返回空字符串
Func _RandomCnStr($_rNum = 1)
        If Number($_rNum) &lt; 1 Then Return SetError(1, 0, "") ;不能少于1
        Local $_rStr = ""
        For $i = 1 To Number($_rNum)
                ;16-55区为常用汉字，1-94为位置信息，加160对应国际码
                Local $_tStr = Hex(Random(16, 55, 1) + 160, 2) &amp; Hex(Random(1, 94, 1) + 160, 2)
                ;避免产生重复的字符
                If StringInStr($_rStr, $_tStr) Then
                        $i -= 1
                        ContinueLoop
                EndIf
                $_rStr &amp;= $_tStr
        Next
        Return BinaryToString("0x" &amp; $_rStr)
EndFunc   ;==&gt;_RandomUnicode```
<br />

本文固定链接: http://jianyiit.com/post-318.html