举报
Func _shifou_hazi($txt_tmp) ;字符串中只要其中有一个汉字返回1 否则返回0 $arry_tmp = StringToASCIIArray($txt_tmp) For $i = 0 To StringLen($txt_tmp) - 1 Step 1 If $arry_tmp[$i] > 255 Then ;MsgBox(0, $arry_tmp[$i], ChrW($arry_tmp[$i]) & " 是中文字符!") Return 1 EndIf Next Return 0 EndFunc ;==>_shifou_hazi
查看全部评分
Func hazjc($txt) ;纯汉字返回1 否则返回0 If StringRegExp($txt, '^[^\x00-\xff]+$') Then Return 1 EndFunc ;==>hazjc
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-5-24 13:27 , Processed in 0.129239 second(s), 26 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2025 Discuz! Team.