立即注册

QQ登录

只需一步,快速开始

老冷编程学院

老冷培训班汇总介绍老冷付费工具汇总介绍老鬼UI编程学院EasyClick所有产品简介EasyClick官方交流群
IOS授权价格IOS/安卓 自助提卡链接安卓-中控群控-电脑授权-购买IOSusb版投屏群控教程IOS脱机版激活教程
IOS脱机版wifi局域网脚本中控教程IOS脱机版wifi局域网群控投屏教程远程调试frp,兼容安卓/IOS热更新工具,兼容安卓/IOS脱机版老冷网盘
查看: 219|回复: 0

[源码分享] 【按键精灵】判断是否全是英文

[复制链接] |主动推送

931

主题

101

回帖

3万

积分

管理员

【导师】

Rank: 9Rank: 9Rank: 9

积分
37110
最后登录
2024-4-22
在线时间
1236 小时

兔年勋章金牌银牌铜牌导师微信认证热心会员推广达人宣传达人灌水之王突出贡献优秀版主荣誉管理论坛元老QQ认证EC VIP学员

发表于 2024-2-19 10:03:54 | 显示全部楼层 |阅读模式

马上注册,解锁更多高级玩法

您需要 登录 才可以下载或查看,没有账号?立即注册

x
[Visual Basic] 纯文本查看 复制代码
 dim str = "azAZ09"
TracePrint 判断是否全英文(str)
Function 判断是否全英文(str)          
    Dim i,tmp
    For i = 1 To Len(str)
        tmp = Mid(str, i, 1)
        tmp= asc(tmp)
        If tmp > 122 or tmp < 65 or (tmp > 90 and tmp < 97) Then 
            TracePrint tmp
            判断是否全英文 = False
            exit Function
        End If
    Next
    判断是否全英文 = True
End Function

VIP培训班介绍汇总[安卓/IOSusb版/IOS脱机版/PHP/nodejs等]
http://bbs.laoleng.vip/forum.php?mod=viewthread&tid=428

付费工具介绍汇总[热更/远程调试/IOS易语言UI/拓展插件等]
http://bbs.laoleng.vip/forum.php?mod=viewthread&tid=430
游客
回复
您需要登录后才可以回帖 登录 | 立即注册

关闭

想要力量吗骚年 上一条 /2 下一条

关闭

免责声明|Archiver|手机版|闽ICP备20013040号-2| 老冷编程学院 |网站地图

GMT+8, 2024-4-23 05:35

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表