查看: 6768|回复: 19	[昨夜星辰] 【源码】巧用GB2312编码 [复制链接]

发送短消息 UID 728264 帖子 3501 精华 18 鲜花 1898 朵 铜币 27453 个 银币 1717 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-11-27 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3501 精华18 鲜花1898 朵 铜币27453 个 银币1717 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-10-15 10:21 | |只看楼主 GB2312标准共收录6763个汉字，其中一级汉字3755个，二级汉字3008个；同时，GB 2312收录了包括拉丁字母、希腊字母、日文平假名及片假名字母、俄语西里尔字母在内的682个全角字符。整个字符集分成94个区，每区有94个位。 GB2312，又称为GB0，由中国国家标准总局发布，1981年5月1日实施 GB2312标准共收录6763个汉字，其中一级汉字3755个，二级汉字3008个 GB2312是一种区位码。分为94个区(01-94)，每区94个字符(01-94) 01-09区为特殊符号 10-15区没有编码 16-55区为一级汉字，按拼音排序，共3755个 56-87区为二级汉字，按部首／笔画排序，共3008个 88-94区没有编码 GB2312只是编码表，在计算机中通常都是用"EUC-CN"表示法，即在每个区位加上0xA0来表示。区和位分别占用一个字节。 以上内容转载自GB2312汉字编码字符集对照表，可点击进入查看编码对应字符。 今天我们就根据GB2312的编码规则来实现一些功能，下面是本人编写的函数。 函数名称： 获取区位码对应文字 参数定义： 区码 整数型：待获取文字对应的区码 位码 整数型：待获取文字对应的位码 返回值： 字符串型：输入的区位码对应的文字 调用例子： TracePrint 获取区位码对应文字(16,1) 函数名称： 获取文字对应区位码 参数定义： 文字 字符串：待获取区位码的文字 返回值： 字符串型：输入的文字对应的区位码，仅支持GB2312中的汉字 调用例子： TracePrint 获取文字对应区位码("啊") 函数名称： 获取文字中的字母 参数定义： 文字 字符串型：待获取字母的文字 返回值： 字符串型：输入的文字中包含的字母 调用例子： TracePrint 获取文字中的字母("1aA啊") 函数名称： 获取汉字拼音首字母 参数定义： 汉字 字符串型：待获取拼音首字母的汉字 返回值： 字符串型：输入的所有的汉字的拼音首字母，仅可获取GB2312中的一级汉字的拼音首字母，其余字符原样返回。 调用例子： TracePrint 获取汉字拼音首字母("按键精灵") 函数名称： 获取拼音首字母包含的汉字 参数定义： 拼音字母 字符串型：待获取汉字的拼音首字母 返回值： 字符串型：输入的所有的拼音首字母包含的汉字，仅可获取拼音首字母对应的GB2312中的一级汉字。 调用例子： TracePrint 获取拼音首字母包含的汉字("ABCDEFGHJKLMNOPQRSTWXYZ") 函数名称： 随机生成汉字 参数定义： 区码类型 整数型：要生成汉字对应的区码，1为16~55，2为56~87,3为16~87 生成数量 整数型：要生成的汉字的数量 返回值： 字符串型：生成的汉字，仅可生成GB2312中的汉字。 调用例子： TracePrint 随机生成汉字(1, 10) TracePrint 随机生成汉字(2, 10) TracePrint 随机生成汉字(3, 10) 函数调用： TracePrint 获取区位码对应文字(16,1) TracePrint 获取文字对应区位码("啊") TracePrint 获取文字中的字母("1aA啊") TracePrint 获取汉字拼音首字母("按键精灵") TracePrint 获取拼音首字母包含的汉字("ABCDEFGHJKLMNOPQRSTWXYZ") TracePrint 随机生成汉字(1, 10) TracePrint 随机生成汉字(2, 10) TracePrint 随机生成汉字(3, 10) 复制代码 调试结果： 脚本 巧用GB2312编码.Q ，第1行：啊 脚本 巧用GB2312编码.Q ，第2行：1601 脚本 巧用GB2312编码.Q ，第3行：aA 脚本 巧用GB2312编码.Q ，第4行：AJJL 脚本 巧用GB2312编码.Q ，第5行：啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳芭捌扒叭吧笆八疤巴拔跋靶把耙坝霸罢爸白柏百摆佰败拜稗斑班搬扳般颁板版扮拌伴瓣半办绊邦帮梆榜膀绑棒磅蚌镑傍谤苞胞包褒剥薄雹保堡饱宝抱报暴豹鲍爆杯碑悲卑北辈背贝钡倍狈备惫焙被奔苯本笨崩绷甭泵蹦迸逼鼻比鄙笔彼碧蓖蔽毕毙毖币庇痹闭敝弊必辟壁臂避陛鞭边编贬扁便变卞辨辩辫遍标彪膘表鳖憋别瘪彬斌濒滨宾摈兵冰柄丙秉饼炳病并玻菠播拨钵波博勃搏铂箔伯帛舶脖膊渤泊驳捕卜哺补埠不布步簿部怖擦猜裁材才财睬踩采彩菜蔡餐参蚕残惭惨灿苍舱仓沧藏操糙槽曹草厕策侧册测层蹭插叉茬茶查碴搽察岔差诧拆柴豺搀掺蝉馋谗缠铲产阐颤昌猖场尝常长偿肠厂敞畅唱倡超抄钞朝嘲潮巢吵炒车扯撤掣彻澈郴臣辰尘晨忱沉陈趁衬撑称城橙成呈乘程惩澄诚承逞骋秤吃痴持匙池迟弛驰耻齿侈尺赤翅斥炽充冲虫崇宠抽酬畴踌稠愁筹仇绸瞅丑臭初出橱厨躇锄雏滁除楚础储矗搐触处揣川穿椽传船喘串疮窗幢床闯创吹炊捶锤垂春椿醇唇淳纯蠢戳绰疵茨磁雌辞慈瓷词此刺赐次聪葱囱匆从丛凑粗醋簇促蹿篡窜摧崔催脆瘁粹淬翠村存寸磋撮搓措挫错搭达答瘩打大呆歹傣戴带殆代贷袋待逮怠耽担丹单郸掸胆旦氮但惮淡诞弹蛋当挡党荡档刀捣蹈倒岛祷导到稻悼道盗德得的蹬灯登等瞪凳邓堤低滴迪敌笛狄涤翟嫡抵底地蒂第帝弟递缔颠掂滇碘点典靛垫电佃甸店惦奠淀殿碉叼雕凋刁掉吊钓调跌爹碟蝶迭谍叠丁盯叮钉顶鼎锭定订丢东冬董懂动栋侗恫冻洞兜抖斗陡豆逗痘都督毒犊独读堵睹赌杜镀肚度渡妒端短锻段断缎堆兑队对墩吨蹲敦顿囤钝盾遁掇哆多夺垛躲朵跺舵剁惰堕蛾峨鹅俄额讹娥恶厄扼遏鄂饿恩而儿耳尔饵洱二贰发罚筏伐乏阀法珐藩帆番翻樊矾钒繁凡烦反返范贩犯饭泛坊芳方肪房防妨仿访纺放菲非啡飞肥匪诽吠肺废沸费芬酚吩氛分纷坟焚汾粉奋份忿愤粪丰封枫蜂峰锋风疯烽逢冯缝讽奉凤佛否夫敷肤孵扶拂辐幅氟符伏俘服浮涪福袱弗甫抚辅俯釜斧脯腑府腐赴副覆赋复傅付阜父腹负富讣附妇缚咐噶嘎该改概钙盖溉干甘杆柑竿肝赶感秆敢赣冈刚钢缸肛纲岗港杠篙皋高膏羔糕搞镐稿告哥歌搁戈鸽胳疙割革葛格蛤阁隔铬个各给根跟耕更庚羹埂耿梗工攻功恭龚供躬公宫弓巩汞拱贡共钩勾沟苟狗垢构购够辜菇咕箍估沽孤姑鼓古蛊骨谷股故顾固雇刮瓜剐寡挂褂乖拐怪棺关官冠观管馆罐惯灌贯光广逛瑰规圭硅归龟闺轨鬼诡癸桂柜跪贵刽辊滚棍锅郭国果裹过哈骸孩海氦亥害骇酣憨邯韩含涵寒函喊罕翰撼捍旱憾悍焊汗汉夯杭航壕嚎豪毫郝好耗号浩呵喝荷菏核禾和何合盒貉阂河涸赫褐鹤贺嘿黑痕很狠恨哼亨横衡恒轰哄烘虹鸿洪宏弘红喉侯猴吼厚候后呼乎忽瑚壶葫胡蝴狐糊湖弧虎唬护互沪户花哗华猾滑画划化话槐徊怀淮坏欢环桓还缓换患唤痪豢焕涣宦幻荒慌黄磺蝗簧皇凰惶煌晃幌恍谎灰挥辉徽恢蛔回毁悔慧卉惠晦贿秽会烩汇讳诲绘荤昏婚魂浑混豁活伙火获或惑霍货祸击圾基机畸稽积箕肌饥迹激讥鸡姬绩缉吉极棘辑籍集及急疾汲即嫉级挤几脊己蓟技冀季伎祭剂悸济寄寂计记既忌际妓继纪嘉枷夹佳家加荚颊贾甲钾假稼价架驾嫁歼监坚尖笺间煎兼肩艰奸缄茧检柬碱硷拣捡简俭剪减荐槛鉴践贱见键箭件健舰剑饯渐溅涧建僵姜将浆江疆蒋桨奖讲匠酱降蕉椒礁焦胶交郊浇骄娇嚼搅铰矫侥脚狡角饺缴绞剿教酵轿较叫窖揭接皆秸街阶截劫节桔杰捷睫竭洁结解姐戒藉芥界借介疥诫届巾筋斤金今津襟紧锦仅谨进靳晋禁近烬浸尽劲荆兢茎睛晶鲸京惊精粳经井警景颈静境敬镜径痉靖竟竞净炯窘揪究纠玖韭久灸九酒厩救旧臼舅咎就疚鞠拘狙疽居驹菊局咀矩举沮聚拒据巨具距踞锯俱句惧炬剧捐鹃娟倦眷卷绢撅攫抉掘倔爵觉决诀绝均菌钧军君峻俊竣浚郡骏喀咖卡咯开揩楷凯慨刊堪勘坎砍看康慷糠扛抗亢炕考拷烤靠坷苛柯棵磕颗科壳咳可渴克刻客课肯啃垦恳坑吭空恐孔控抠口扣寇枯哭窟苦酷库裤夸垮挎跨胯块筷侩快宽款匡筐狂框矿眶旷况亏盔岿窥葵奎魁傀馈愧溃坤昆捆困括扩廓阔垃拉喇蜡腊辣啦莱来赖蓝婪栏拦篮阑兰澜谰揽览懒缆烂滥琅榔狼廊郎朗浪捞劳牢老佬姥酪烙涝勒乐雷镭蕾磊累儡垒擂肋类泪棱楞冷厘梨犁黎篱狸离漓理李里鲤礼莉荔吏栗丽厉励砾历利傈例俐痢立粒沥隶力璃哩俩联莲连镰廉怜涟帘敛脸链恋炼练粮凉梁粱良两辆量晾亮谅撩聊僚疗燎寥辽潦了撂镣廖料列裂烈劣猎琳林磷霖临邻鳞淋凛赁吝拎玲菱零龄铃伶羚凌灵陵岭领另令溜琉榴硫馏留刘瘤流柳六龙聋咙笼窿隆垄拢陇楼娄搂篓漏陋芦卢颅庐炉掳卤虏鲁麓碌露路赂鹿潞禄录陆戮驴吕铝侣旅履屡缕虑氯律率滤绿峦挛孪滦卵乱掠略抡轮伦仑沦纶论萝螺罗逻锣箩骡裸落洛骆络妈麻玛码蚂马骂嘛吗埋买麦卖迈脉瞒馒蛮满蔓曼慢漫谩芒茫盲氓忙莽猫茅锚毛矛铆卯茂冒帽貌贸么玫枚梅酶霉煤没眉媒镁每美昧寐妹媚门闷们萌蒙檬盟锰猛梦孟眯醚靡糜迷谜弥米秘觅泌蜜密幂棉眠绵冕免勉娩缅面苗描瞄藐秒渺庙妙蔑灭民抿皿敏悯闽明螟鸣铭名命谬摸摹蘑模膜磨摩魔抹末莫墨默沫漠寞陌谋牟某拇牡亩姆母墓暮幕募慕木目睦牧穆拿哪呐钠那娜纳氖乃奶耐奈南男难囊挠脑恼闹淖呢馁内嫩能妮霓倪泥尼拟你匿腻逆溺蔫拈年碾撵捻念娘酿鸟尿捏聂孽啮镊镍涅您柠狞凝宁拧泞牛扭钮纽脓浓农弄奴努怒女暖虐疟挪懦糯诺哦欧鸥殴藕呕偶沤啪趴爬帕怕琶拍排牌徘湃派攀潘盘磐盼畔判叛乓庞旁耪胖抛咆刨炮袍跑泡呸胚培裴赔陪配佩沛喷盆砰抨烹澎彭蓬棚硼篷膨朋鹏捧碰坯砒霹批披劈琵毗啤脾疲皮匹痞僻屁譬篇偏片骗飘漂瓢票撇瞥拼频贫品聘乒坪苹萍平凭瓶评屏坡泼颇婆破魄迫粕剖扑铺仆莆葡菩蒲埔朴圃普浦谱曝瀑期欺栖戚妻七凄漆柒沏其棋奇歧畦崎脐齐旗祈祁骑起岂乞企启契砌器气迄弃汽泣讫掐恰洽牵扦钎铅千迁签仟谦乾黔钱钳前潜遣浅谴堑嵌欠歉枪呛腔羌墙蔷强抢橇锹敲悄桥瞧乔侨巧鞘撬翘峭俏窍切茄且怯窃钦侵亲秦琴勤芹擒禽寝沁青轻氢倾卿清擎晴氰情顷请庆琼穷秋丘邱球求囚酋泅趋区蛆曲躯屈驱渠取娶龋趣去圈颧权醛泉全痊拳犬券劝缺炔瘸却鹊榷确雀裙群然燃冉染瓤壤攘嚷让饶扰绕惹热壬仁人忍韧任认刃妊纫扔仍日戎茸蓉荣融熔溶容绒冗揉柔肉茹蠕儒孺如辱乳汝入褥软阮蕊瑞锐闰润若弱撒洒萨腮鳃塞赛三叁伞散桑嗓丧搔骚扫嫂瑟色涩森僧莎砂杀刹沙纱傻啥煞筛晒珊苫杉山删煽衫闪陕擅赡膳善汕扇缮墒伤商赏晌上尚裳梢捎稍烧芍勺韶少哨邵绍奢赊蛇舌舍赦摄射慑涉社设砷申呻伸身深娠绅神沈审婶甚肾慎渗声生甥牲升绳省盛剩胜圣师失狮施湿诗尸虱十石拾时什食蚀实识史矢使屎驶始式示士世柿事拭誓逝势是嗜噬适仕侍释饰氏市恃室视试收手首守寿授售受瘦兽蔬枢梳殊抒输叔舒淑疏书赎孰熟薯暑曙署蜀黍鼠属术述树束戍竖墅庶数漱恕刷耍摔衰甩帅栓拴霜双爽谁水睡税吮瞬顺舜说硕朔烁斯撕嘶思私司丝死肆寺嗣四伺似饲巳松耸怂颂送宋讼诵搜艘擞嗽苏酥俗素速粟僳塑溯宿诉肃酸蒜算虽隋随绥髓碎岁穗遂隧祟孙损笋蓑梭唆缩琐索锁所塌他它她塔獭挞蹋踏胎苔抬台泰酞太态汰坍摊贪瘫滩坛檀痰潭谭谈坦毯袒碳探叹炭汤塘搪堂棠膛唐糖倘躺淌趟烫掏涛滔绦萄桃逃淘陶讨套特藤腾疼誊梯剔踢锑提题蹄啼体替嚏惕涕剃屉天添填田甜恬舔腆挑条迢眺跳贴铁帖厅听烃汀廷停亭庭挺艇通桐酮瞳同铜彤童桶捅筒统痛偷投头透凸秃突图徒途涂屠土吐兔湍团推颓腿蜕褪退吞屯臀拖托脱鸵陀驮驼椭妥拓唾挖哇蛙洼娃瓦袜歪外豌弯湾玩顽丸烷完碗挽晚皖惋宛婉万腕汪王亡枉网往旺望忘妄威巍微危韦违桅围唯惟为潍维苇萎委伟伪尾纬未蔚味畏胃喂魏位渭谓尉慰卫瘟温蚊文闻纹吻稳紊问嗡翁瓮挝蜗涡窝我斡卧握沃巫呜钨乌污诬屋无芜梧吾吴毋武五捂午舞伍侮坞戊雾晤物勿务悟误昔熙析西硒矽晰嘻吸锡牺稀息希悉膝夕惜熄烯溪汐犀檄袭席习媳喜铣洗系隙戏细瞎虾匣霞辖暇峡侠狭下厦夏吓掀锨先仙鲜纤咸贤衔舷闲涎弦嫌显险现献县腺馅羡宪陷限线相厢镶香箱襄湘乡翔祥详想响享项巷橡像向象萧硝霄削哮嚣销消宵淆晓小孝校肖啸笑效楔些歇蝎鞋协挟携邪斜胁谐写械卸蟹懈泄泻谢屑薪芯锌欣辛新忻心信衅星腥猩惺兴刑型形邢行醒幸杏性姓兄凶胸匈汹雄熊休修羞朽嗅锈秀袖绣墟戌需虚嘘须徐许蓄酗叙旭序畜恤絮婿绪续轩喧宣悬旋玄选癣眩绚靴薛学穴雪血勋熏循旬询寻驯巡殉汛训讯逊迅压押鸦鸭呀丫芽牙蚜崖衙涯雅哑亚讶焉咽阉烟淹盐严研蜒岩延言颜阎炎沿奄掩眼衍演艳堰燕厌砚雁唁彦焰宴谚验殃央鸯秧杨扬佯疡羊洋阳氧仰痒养样漾邀腰妖瑶摇尧遥窑谣姚咬舀药要耀椰噎耶爷野冶也页掖业叶曳腋夜液一壹医揖铱依伊衣颐夷遗移仪胰疑沂宜姨彝椅蚁倚已乙矣以艺抑易邑屹亿役臆逸肄疫亦裔意毅忆义益溢诣议谊译异翼翌绎茵荫因殷音阴姻吟银淫寅饮尹引隐印英樱婴鹰应缨莹萤营荧蝇迎赢盈影颖硬映哟拥佣臃痈庸雍踊蛹咏泳涌永恿勇用幽优悠忧尤由邮铀犹油游酉有友右佑釉诱又幼迂淤于盂榆虞愚舆余俞逾鱼愉渝渔隅予娱雨与屿禹宇语羽玉域芋郁吁遇喻峪御愈欲狱育誉浴寓裕预豫驭鸳渊冤元垣袁原援辕园员圆猿源缘远苑愿怨院曰约越跃钥岳粤月悦阅耘云郧匀陨允运蕴酝晕韵孕匝砸杂栽哉灾宰载再在咱攒暂赞赃脏葬遭糟凿藻枣早澡蚤躁噪造皂灶燥责择则泽贼怎增憎曾赠扎喳渣札轧铡闸眨栅榨咋乍炸诈摘斋宅窄债寨瞻毡詹粘沾盏斩辗崭展蘸栈占战站湛绽樟章彰漳张掌涨杖丈帐账仗胀瘴障招昭找沼赵照罩兆肇召遮折哲蛰辙者锗蔗这浙珍斟真甄砧臻贞针侦枕疹诊震振镇阵蒸挣睁征狰争怔整拯正政帧症郑证芝枝支吱蜘知肢脂汁之织职直植殖执值侄址指止趾只旨纸志挚掷至致置帜峙制智秩稚质炙痔滞治窒中盅忠钟衷终种肿重仲众舟周州洲诌粥轴肘帚咒皱宙昼骤珠株蛛朱猪诸诛逐竹烛煮拄瞩嘱主著柱助蛀贮铸筑住注祝驻抓爪拽专砖转撰赚篆桩庄装妆撞壮状椎锥追赘坠缀谆准捉拙卓桌琢茁酌啄着灼浊兹咨资姿滋淄孜紫仔籽滓子自渍字鬃棕踪宗综总纵邹走奏揍租足卒族祖诅阻组钻纂嘴醉最罪尊遵昨左佐柞做作坐座 脚本 巧用GB2312编码.Q ，第6行：竞笔酣皆复蛀明妒翅牢 脚本 巧用GB2312编码.Q ，第7行：麒钬鲷忡蘩噻瘵栌铛衩 脚本 巧用GB2312编码.Q ，第8行：啵坞翩梢中劬季甬故栾 复制代码 源码： TracePrint 获取区位码对应文字(16,1) TracePrint 获取文字对应区位码("啊") TracePrint 获取文字中的字母("1aA啊") TracePrint 获取汉字拼音首字母("按键精灵") TracePrint 获取拼音首字母包含的汉字("ABCDEFGHJKLMNOPQRSTWXYZ") TracePrint 随机生成汉字(1, 10) TracePrint 随机生成汉字(2, 10) TracePrint 随机生成汉字(3, 10) Function 获取区位码对应文字(区码, 位码) 获取区位码对应文字= Chr(Eval("&H" & Eval("Hex(" & (区码 + 160) & ")") & Eval("Hex(" & (位码 + 160) & ")") & "&")) End Function Function 获取文字对应区位码(文字) Dim 文字编码, 区码, 位码 文字编码 = Hex(Asc(文字)) 区码 = Eval("&H" & Left(文字编码, 2)) - 160 位码 = Eval("&H" & Right(文字编码, 2)) - 160 If Len(位码) = 1 Then 位码 = "0" & 位码 End If 获取文字对应区位码 = CLng(区码 & 位码) End Function Function 随机生成汉字(区码类型, 生成数量) 随机生成汉字 = "" Dim 区码范围,位码范围,区码,位码,汉字 If 区码类型 = 1 Then 区码范围 = Array(16, 55) ElseIf 区码类型 = 2 Then 区码范围 = Array(56, 87) ElseIf 区码类型 = 3 Then 区码范围 = Array(16, 87) Else Exit Function End If For 生成数量 区码 = 生成随机数(区码范围(0), 区码范围(1)) If 区码 = 55 Then 位码范围 = Array(1, 89) Else 位码范围 = Array(1, 94) End If 位码 = 生成随机数(位码范围(0), 位码范围(1)) 汉字 = 获取区位码对应文字(区码, 位码) 随机生成汉字 = 随机生成汉字 & 汉字 Next End Function Function 生成随机数(num1, num2) Dim 最小值, 最大值 If num1 > num2 Then 最小值 = num2 最大值 = num1 Else 最小值 = num1 最大值 = num2 End If Randomize 生成随机数 = Int((最大值 - 最小值 + 1) * Rnd + 最小值) End Function Function 获取汉字拼音首字母(汉字) 获取汉字拼音首字母 = "" Dim 汉字拼音首字母, 区位码, i, k, 数组最大下标, 文字长度,当前文字,当前区位码 汉字拼音首字母 = Array("A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "W", "X", "Y", "Z") 区位码 = Array(1601, 1637, 1833, 2078, 2274, 2302, 2433, 2594, 2787, 3106, 3212, 3472, 3635, 3722, 3730, 3858, 4027, 4086, 4390, 4558, 4684, 4925, 5249, 5590) 数组最大下标 = UBound(区位码) - 1 文字长度 = Len(汉字) For i = 1 To 文字长度 当前文字 = Mid(汉字, i, 1) 当前区位码 = 获取文字对应区位码(当前文字) If 当前区位码 > 1600 And 当前区位码 < 5590 Then For k = 0 To 数组最大下标 If 当前区位码 >= 区位码(k) And 当前区位码 < 区位码(k + 1) Then 获取汉字拼音首字母 = 获取汉字拼音首字母 & 汉字拼音首字母(k) Exit For End If Next Else 获取汉字拼音首字母 = 获取汉字拼音首字母 & 当前文字 End If Next End Function Function 获取文字中的字母(文字) 获取文字中的字母 = "" Dim 文字长度,i,当前文字,文字编码 文字长度 = Len(文字) For i = 1 To 文字长度 当前文字 = Mid(文字, i, 1) 文字编码 = Asc(当前文字) If (文字编码 >= 65 And 文字编码 <= 90) Or (文字编码 >= 97 And 文字编码 <= 122) Then 获取文字中的字母 = 获取文字中的字母 & 当前文字 End If Next End Function Function 获取拼音首字母包含的汉字(拼音字母) 获取拼音首字母包含的汉字 = "" 拼音字母 = 获取文字中的字母(拼音字母) 拼音字母 = UCase(拼音字母) Dim 汉字拼音首字母, 区位码, i, k, 数组最大下标, 字母长度, 当前字母, 当前字母码, 字母所在数组下标, 起始区位码, 结束区位码, 当前区码, 当前位码 汉字拼音首字母 = Array("A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "W", "X", "Y", "Z") 区位码 = Array(1601, 1637, 1833, 2078, 2274, 2302, 2433, 2594, 2787, 3106, 3212, 3472, 3635, 3722, 3730, 3858, 4027, 4086, 4390, 4558, 4684, 4925, 5249, 5590) 数组最大下标 = UBound(汉字拼音首字母) 字母长度 = Len(拼音字母) For i = 1 To 字母长度 当前字母 = Mid(拼音字母, i, 1) 当前字母码 = Asc(当前字母) If 当前字母码 >= 65 And 当前字母码 <= 90 Then 字母所在数组下标 = - 1 For k = 0 To 数组最大下标 If 汉字拼音首字母(k) = 当前字母 Then 字母所在数组下标 = k Exit For End If Next If 字母所在数组下标 <> - 1 Then 起始区位码 = 区位码(字母所在数组下标) 结束区位码 = 区位码(字母所在数组下标 + 1) - 1 For k = 起始区位码 To 结束区位码 当前区码 = CLng(Left(k, 2)) 当前位码 = CLng(Right(k, 2)) If 当前区码 = 55 Then If 当前位码 >= 1 And 当前位码 <= 89 Then 获取拼音首字母包含的汉字 = 获取拼音首字母包含的汉字 & 获取区位码对应文字(当前区码,当前位码) End If Else If 当前位码 >= 1 And 当前位码 <= 94 Then 获取拼音首字母包含的汉字 = 获取拼音首字母包含的汉字 & 获取区位码对应文字(当前区码,当前位码) End If End If Next End If End If Next End Function 复制代码
	昨夜星辰 最后编辑于 2022-10-15 10:32:34 点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 323316 帖子 1002 精华 0 鲜花 92 朵 铜币 5288 个 银币 162 个 性别 在线时间 16940 注册时间 2009-10-19 最后登录 2023-09-27 查看公共资料 搜索主题 搜索帖子 csyzc csyzc 组别大学二年级 UID323316 帖子1002 精华0 鲜花92 朵 铜币5288 个 银币162 个 在线时间16940 注册时间2009-10-19 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	2# 字体大小: t T 发表于 2022-10-15 23:48 | |只看该用户 厉害了！进来看看
	回顶部

发送短消息 UID 661822 帖子 76 精华 0 鲜花 58 朵 铜币 83 个 银币 69 个 性别 在线时间 180 注册时间 2011-05-17 最后登录 2023-12-29 236589458 查看公共资料 搜索主题 搜索帖子 乐章 mr_yz 组别小学四年级 UID661822 帖子76 精华0 鲜花58 朵 铜币83 个 银币69 个 在线时间180 注册时间2011-05-17	3# 字体大小: t T 发表于 2022-10-17 16:49 | |只看该用户 脚本 巧用GB2312编码.
	回顶部

发送短消息 UID 194943 帖子 176 精华 0 鲜花 13 朵 铜币 170 个 银币 42 个 性别 在线时间 2940 注册时间 2008-09-14 最后登录 2024-05-06 1359033550 查看公共资料 搜索主题 搜索帖子 adeazh adeazh 组别初中一年级 UID194943 帖子176 精华0 鲜花13 朵 铜币170 个 银币42 个 在线时间2940 注册时间2008-09-14 按键会员（季） 按键会员绑定账号后自动赠送 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	4# 字体大小: t T 发表于 2022-10-18 01:47 | |只看该用户 ddddddddddddd
	枫叶飘落。Q983392705
	回顶部

发送短消息 UID 3217465 帖子 163 精华 0 鲜花 77 朵 铜币 179 个 银币 106 个 性别 在线时间 240 注册时间 2015-04-26 最后登录 2024-05-07 查看公共资料 搜索主题 搜索帖子 bymark bymark 组别初中一年级 UID3217465 帖子163 精华0 鲜花77 朵 铜币179 个 银币106 个 在线时间240 注册时间2015-04-26	5# 字体大小: t T 发表于 2022-10-29 14:40 | |只看该用户 学习学习
	回顶部

发送短消息 UID 8945293 帖子 3 精华 0 鲜花 22 朵 铜币 13 个 银币 8 个 性别 在线时间 0 注册时间 2023-01-13 最后登录 2023-01-26 查看公共资料 搜索主题 搜索帖子 regilo 组别幼儿园 UID8945293 帖子3 精华0 鲜花22 朵 铜币13 个 银币8 个 在线时间0 注册时间2023-01-13	6# 字体大小: t T 发表于 2023-01-14 12:26 | |只看该用户
	回顶部

发送短消息 UID 3500540 帖子 52 精华 0 鲜花 17 朵 铜币 213 个 银币 15 个 性别 在线时间 1240 注册时间 2015-10-03 最后登录 2024-06-14 查看公共资料 搜索主题 搜索帖子 wlaita2286 组别小学三年级 UID3500540 帖子52 精华0 鲜花17 朵 铜币213 个 银币15 个 在线时间1240 注册时间2015-10-03	7# 字体大小: t T 发表于 2023-03-18 01:27 | |只看该用户 脚本 巧用GB2312编码.
	回顶部

发送短消息 UID 8995030 帖子 2 精华 0 鲜花 4 朵 铜币 4 个 银币 4 个 性别 在线时间 0 注册时间 2023-03-19 最后登录 2023-05-19 查看公共资料 搜索主题 搜索帖子 2751416348 组别幼儿园 UID8995030 帖子2 精华0 鲜花4 朵 铜币4 个 银币4 个 在线时间0 注册时间2023-03-19	8# 字体大小: t T 发表于 2023-03-22 11:40 | |只看该用户 厉害了
	回顶部

发送短消息 UID 8689099 帖子 266 精华 0 鲜花 233 朵 铜币 263 个 银币 263 个 性别 在线时间 0 注册时间 2022-04-06 最后登录 2024-09-26 727156471 查看公共资料 搜索主题 搜索帖子 家鸿 家鸿 组别初中二年级 UID8689099 帖子266 精华0 鲜花233 朵 铜币263 个 银币263 个 在线时间0 注册时间2022-04-06	9# 字体大小: t T 发表于 2023-04-25 07:37 | |只看该用户
	回顶部

发送短消息 UID 7214591 帖子 5 精华 0 鲜花 4 朵 铜币 15 个 银币 5 个 性别 在线时间 0 注册时间 2019-12-05 最后登录 2024-06-03 查看公共资料 搜索主题 搜索帖子 刘东aa 组别小学一年级 UID7214591 帖子5 精华0 鲜花4 朵 铜币15 个 银币5 个 在线时间0 注册时间2019-12-05	10# 字体大小: t T 发表于 2023-05-08 21:16 | |只看该用户
	回顶部

发送短消息 UID 6347951 帖子 8 精华 0 鲜花 25 朵 铜币 37 个 银币 12 个 性别 在线时间 0 注册时间 2019-04-06 最后登录 2024-08-17 查看公共资料 搜索主题 搜索帖子 fudingyu 组别小学一年级 UID6347951 帖子8 精华0 鲜花25 朵 铜币37 个 银币12 个 在线时间0 注册时间2019-04-06	11# 字体大小: t T 发表于 2023-05-28 14:53 | |只看该用户 需要需要，看看就好。
	回顶部

发送短消息 UID 4676648 帖子 93 精华 0 鲜花 32 朵 铜币 410 个 银币 47 个 性别 在线时间 1760 注册时间 2017-10-18 最后登录 2024-06-14 查看公共资料 搜索主题 搜索帖子 xhmm 组别小学五年级 UID4676648 帖子93 精华0 鲜花32 朵 铜币410 个 银币47 个 在线时间1760 注册时间2017-10-18 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	12# 字体大小: t T 发表于 2023-06-13 22:20 | |只看该用户
	回顶部

发送短消息 UID 5711840 帖子 4 精华 0 鲜花 2 朵 铜币 25 个 银币 2 个 性别 在线时间 0 注册时间 2018-10-19 最后登录 2023-11-14 查看公共资料 搜索主题 搜索帖子 q7557881 组别小学一年级 UID5711840 帖子4 精华0 鲜花2 朵 铜币25 个 银币2 个 在线时间0 注册时间2018-10-19	13# 字体大小: t T 发表于 2023-07-21 21:40 | |只看该用户 大佬我来看看
	回顶部

发送短消息 UID 8187241 帖子 20 精华 0 鲜花 18 朵 铜币 30 个 银币 20 个 性别 在线时间 0 注册时间 2021-03-02 最后登录 2023-08-27 查看公共资料 搜索主题 搜索帖子 esiilesz 组别小学一年级 UID8187241 帖子20 精华0 鲜花18 朵 铜币30 个 银币20 个 在线时间0 注册时间2021-03-02	14# 字体大小: t T 发表于 2023-08-23 23:42 | |只看该用户 很牛逼
	回顶部

发送短消息 UID 7882983 帖子 14 精华 0 鲜花 9 朵 铜币 24 个 银币 14 个 性别 在线时间 0 注册时间 2020-08-26 最后登录 2024-04-23 249463274 查看公共资料 搜索主题 搜索帖子 17683901366 17683901366 组别小学一年级 UID7882983 帖子14 精华0 鲜花9 朵 铜币24 个 银币14 个 在线时间0 注册时间2020-08-26	15# 字体大小: t T 发表于 2023-10-11 11:26 | |只看该用户 看一下啊看一下啊看一下啊看一下啊
	回顶部

发送短消息 UID 9102072 帖子 62 精华 0 鲜花 35 朵 铜币 62 个 银币 62 个 性别 在线时间 0 注册时间 2023-08-18 最后登录 2024-11-08 查看公共资料 搜索主题 搜索帖子 19913717855 组别小学三年级 UID9102072 帖子62 精华0 鲜花35 朵 铜币62 个 银币62 个 在线时间0 注册时间2023-08-18	16# 字体大小: t T 发表于 2023-10-16 11:59 | |只看该用户 sdgsd
	回顶部

发送短消息 UID 8508479 帖子 70 精华 0 鲜花 19 朵 铜币 65 个 银币 55 个 性别 在线时间 0 注册时间 2021-10-21 最后登录 2024-11-23 查看公共资料 搜索主题 搜索帖子 小鲨鱼1号 组别小学四年级 UID8508479 帖子70 精华0 鲜花19 朵 铜币65 个 银币55 个 在线时间0 注册时间2021-10-21	17# 字体大小: t T 发表于 2023-10-28 22:10 | |只看该用户 asdsdadddddddddddddddddddddddddd
	回顶部

发送短消息 UID 4118209 帖子 83 精华 0 鲜花 185 朵 铜币 195 个 银币 106 个 性别 在线时间 300 注册时间 2016-09-14 最后登录 2023-11-29 查看公共资料 搜索主题 搜索帖子 q5538193 组别小学四年级 UID4118209 帖子83 精华0 鲜花185 朵 铜币195 个 银币106 个 在线时间300 注册时间2016-09-14	18# 字体大小: t T 发表于 2023-11-10 03:58 | |只看该用户 感谢分享感谢分享
	回顶部

发送短消息 UID 8021258 帖子 2 精华 0 鲜花 1 朵 铜币 12 个 银币 2 个 性别 在线时间 0 注册时间 2020-11-17 最后登录 2024-11-09 928634498 查看公共资料 搜索主题 搜索帖子 乔不语 乔不语 组别幼儿园 UID8021258 帖子2 精华0 鲜花1 朵 铜币12 个 银币2 个 在线时间0 注册时间2020-11-17	19# 字体大小: t T 发表于 2023-11-27 15:43 | |只看该用户 学习学习
	回顶部

发送短消息 UID 2524696 帖子 41 精华 0 鲜花 28 朵 铜币 42 个 银币 34 个 性别 在线时间 0 注册时间 2014-05-16 最后登录 2024-11-07 578995432 查看公共资料 搜索主题 搜索帖子 578995432 578995432 组别小学二年级 UID2524696 帖子41 精华0 鲜花28 朵 铜币42 个 银币34 个 在线时间0 注册时间2014-05-16	20# 字体大小: t T 发表于 2023-11-28 11:09 | |只看该用户 学习学习
	回顶部