批处理之家 - Powered by Discuz! Board

@echo off||code by plp&title ascii 0x01~0xff 对照表
setlocal enabledelayedexpansion
2>nul call ascmap /437 $ ||call:getasc $
echo.
set p=&set lf=!$:~0x0A,1!
set hx=0 1 2 3 4 5 6 7 8 9 A B C D E F
for %%a in (%hx%)do for %%b in (%hx%)do set "$%%a%%b=!$:~0x%%a%%b,1!!$:~9,1!"
for %%a in (
"00=<NUL>" "07=<BEL>" "08=<BS>" "09=<TAB>" "0A=<LF>" "0D=<CR>" "20=<SP>"
)do set "$%%~a!$:~9,1!"
for %%a in (a b c d)do set "p=!p!^!d%%a^! 0x%%%%a%%z ^!$%%%%a%%z^!!$B3:~,1! "
for /f "tokens=1-4" %%a in ("0 2 4 6!lf!1 3 5 7!lf!8 A C E!lf!9 B D F")do (
(if %%a==8 echo.)&for %%z in (%hx%)do (
set/a da=0x%%a%%z,db=0x%%b%%z,dc=0x%%c%%z,dd=0x%%d%%z
for %%a in (a b c d)do set d%%a= !d%%a!&set d%%a=!d%%a:~-3!
echo %p:~0,-2%
)
)
if "%~0"=="%~f0" set/p=
goto:eof
:getasc <$|#|@|_|{|}|[|]> // 将0x01~0xff255个字符存放在%1变量内
chcp 936>nul
set %1gbk=币市布弄清分标圈唉上下同名后小成民怒易笔耕化吗战则刚猛夜思舞鸟简闹出读导能图绿
chcp 437>nul
Set %1=&cmd /u/c echo !%1gbk!>%tmp%\%1gbk.tmp&set/p %1gbk=<%tmp%\%1gbk.tmp
for /l %%a in (0,2,76)do Set %1=!%1!!%1gbk:~%%a,1!
set %1= !%1:~,31! ^^!"#$%%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^^_`abcdefghijklmnopqrstuvwxyz{|}~!%1:~-8,1!亗儎厗噲墛媽崕彁憭摂晼棙櫄洔潪煚、￥ウЖ┆辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉罩棕仝圮蒉哙徕沅彐玷殛腱眍镳耱篝貊鼬!%1:~-7!

复制代码

@echo off||生产ascmap.cmd 1.2
setlocal enabledelayedexpansion&chcp 936>nul
:: 生产首行ascii表
set gbk=币市布弄清分标圈唉上下同名后小成民怒易笔耕化吗战则刚猛夜思舞鸟简闹出读导能图绿
chcp 437>nul&cmd /u/c echo !gbk!>gbk.tmp
set/p gbk=<gbk.tmp
if exist ascmap.cmd del/f/a ascmap.cmd
Set s=&for /l %%a in (0,2,76)do Set s=!s!!gbk:~%%a,1!
set $= !s:~,31! ^^!"#$%%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^^_`abcdefghijklmnopqrstuvwxyz{|}~!s:~-8,1!亗儎厗噲墛媽崕彁憭摂晼棙櫄洔潪煚、￥ウЖ┆辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉罩棕仝圮蒉哙徕沅彐玷殛腱眍镳耱篝貊鼬!s:~-7!
echo :!$:~1,9!^^^^!$:~10,16!^^^^!$:~26,1!!$:~27!>ascmap.cmd
for /f "delims=:" %%a in ('findstr/nb :@: %~s0')do more +%%a<%~s0>>ascmap.cmd
:: 添加NUL字符到文件尾部
cmd/u/cecho.>gbk.tmp
findstr/vrc:$ gbk.tmp>$00.tmp
copy/b ascmap.cmd+$00.tmp ascmap.cmd>nul
attrib +R ascmap.cmd
ECHO File ascmap.cmd is created.
del gbk.tmp $00.tmp
if "%~0"=="%~f0" pause
:@:
:: get ascmap; version 1.2 ; code by plp
:: 请在 http://www.bathome.net/viewthread.php?tid=12347 下载完整版本获取帮助信息
@for /f "delims=/" %%a in ("%~1")do @if /%%a.==%1. chcp %%a>nul&&shift/1||exit/b 1
@if %1. neq . (
set/p %1=<"%~f0"
if !!.==. (set %1= !%1:~1,9!!%1:~11,16!!%1:~28!) ELSE (
setlocal enabledelayedexpansion&set tab=!%1:~9,1!
for /f "tokens=1-3" %%a in ("!%1:~1,8!!%1:~12,15!!%1:~28!")do @(
endlocal&set %1= %%a!%tab%^
%%b %%c
)
)
)
@if %2. neq . findstr/vrc:$ "%~f0" >"%~2"

复制代码

:: 依此原理可以:
:: 判断一个gbk编码下的字符串含有宽字符的个数
:: 求计算字符串的字节数（没有临时文件实用）
@ECHO off&chcp 437>nul
Set c12=你好
setlocal EnableDelayedExpansion
for /l %%a in (0 1 3)do Set #%%a=!c12:~%%a,1!
ECHO !c12! -^> !#0!!#3!!#2!!#1!>$.txt
start notepad $.txt

复制代码

:: 获取文件结束符0x1A
copy nul+nul sub.txt
:: 获取“退格符”, 变量b_b的值为：退格符空格退格符(0x08 0x20 0x08)
for /F %%a in ('"prompt $h&for %%b in (1) do rem"')do Set b_b=%%a
:: 脚本中获取回车符 0x0d
for /f %%a in ('copy/z %~s0 nul')do set $0d=%%a
:: 脚本中获取换行符 0x0a, ^字符后空两行；
set $0a=^
::脚本中获取换页符 0x0c,
for /f %%a in ('cls')do set $0c=%%a
:: 936(中文)代码页下 cmd/u法获取制表符 0x09 （0x01~0x1F皆可用此法获取）
for /f "delims=U" %%a in ('cmd/u/cecho 唉')do set $09=%%a
:: cmd/u法获取unicode文件头0xfffe（0x80后的字符要切换代码页）
chcp 936
Set gbk=绿图
chcp 437
for /f "tokens=1-2delims=~V" %%a in ('cmd/u/cecho %gbk%')do set Un=%%a%%b
:: 代码页切换法获取制表符
chcp 936
set $07=〇
chcp 437
set $07 >tab.txt

复制代码

:: 响铃符0x07 --> 标
:: 退格符0x08 --> 圈
:: 制表符0x09 --> 唉
:: 换行符0x0a --> 上
:: 回车符0x0d --> 名
:: 比如单行获取换行符：for %%a in (上:)do set $=%%~da&set $0a=!$:~,1!
@echo off&setlocal enabledelayedexpansion
for %%a in (
币市布, 弄清分标圈
唉, 上下同名, 后小成
民怒, 易笔耕化吗
战则刚猛,夜思舞鸟
)do set/a n+=1&for %%b in (%%a:)do echo %%a -!n!- %%~db
pause

复制代码

@ECHO OFF
TITLE 代码页切换法获取0X00~0X1F之间的控制字符（未完）
CHCP 936
Set $00=NUL{}
Set $01=SOH{}
Set $02=STX{}
Set $03=ETX{}
Set $04=EOT{}
Set $05=ENQ{}
Set $06=ACK{}
Set $07=BEL{}
Set $08=BS{}
Set $09=TAB{〇}
Set $0a=LF{}
Set $0b=VT{♂}
Set $0c=FF{♀}
Set $0d=CR{}
Set $0e=SO{}
Set $0f=SI{¤}
Set $10=dle{}
Set $11=DC1{}
Set $12=DC2{}
Set $13=DC3{}
Set $14=DC4{}
Set $15=NAK{§}
Set $16=SYN{}
Set $17=ETB{}
Set $18=CAN{↑}
Set $19=EM{↓}
Set $1A=SUB{→}
Set $1B=ESC{←}
Set $1C=FS{∟}
Set $1D=GS{}
Set $1E=RS{▲}
Set $1F=US{▼}
CHCP 437
Set $
set $>$.txt
start $.txt
Pause

复制代码

::获取控制符的gbk2unicode方案
::以回车符为例演示如下（“名”--unicode编码为540d）
@ECHO off&setlocal EnableDelayedExpansion
for /f %%a in ('cmd/u/cecho 名')do set un=%%a
:: 获取回车符0x0D并存放在变量$0d中
Set $0d=!un:~0,1!
Set test=abcd!$0d!##
ECHO !test!
set test>$0d.txt
start $0d.txt
pause

复制代码

::获取unicode文件头的gbk2unicode方案及其测试代码：
@ECHO off&setlocal EnableDelayedExpansion
Set gbk=绿图
chcp 437>nul
for /f %%a in ('cmd/u/cecho !gbk!')do set un=%%a
::获取unicode文件头字符0xFF 0xFE，并存放在变量head中
Set head=!un:~0,1!!un:~2,1!
Set head
set/p=!head!`O}Y<nul>$tmp.txt
::"你好" 对应的unicode编码为4f60 597d
start $tmp.txt
pause

复制代码

plp_00=刀阀怀开攀退稀销需言耀一匀最
plp_01=币持愁丁封搁阁洁老码企省谁送锁态威
plp_02=昂蜂挂搂茂漂适市堂异脂
plp_03=布吃调范考七弃球刃逃娃
plp_04=锄处各弄茄射萄
plp_05=包锅搅舅谅茅清帅椅阅者
plp_06=爆匆脆堆帆分将昆理逆漆圆
plp_07=备标崇唇娇切万震指
plp_08=合圈师谈锈愈月丈
plp_09=唉按吉嘉脉霉眉三选有愉
plp_0a=弊吊脊刊上谊尊
plp_0b=程栋锋看谋朋笋下洋
plp_0c=昌而萌砌舌同希
plp_0d=倍不服复砍名萍稍舍耍伍植
plp_0e=缎后谎茎挎猎明税与怎
plp_0f=搏伏昏栏漏式氏踏透戏夏小意脏
plp_10=餐成伐渐耐锐唐吐帐逐
plp_11=丑蔑民脑少树挑我向笑刑休
plp_12=倒递划椒戒怒洒舒
plp_13=弓鼓缓吓易专蜓
plp_14=笔阔气且途研演渔
plp_15=耕怕夕引
plp_16=编脖怖化或尖世帖挖外崖砖
plp_17=北逗耗朗栗列吗渗洗众
plp_18=尘甘帘刘娘丘倘优缘战蜘
plp_19=鄙丙匙错候伙则
plp_1a=多刚会脚戚尚甚通业倚愚
plp_1b=创丛笛君猛望
plp_1c=猜东怜谜蜜霜搜甜夜帜
plp_1d=贝尝朝初帝缝萝逝思丝
plp_1e=洞搞伞吞舞霞贞
plp_1f=弟队负感够借鸟期生速土伟星真舟
plp_20=缠稠传怠匠眠漠挠欠渠删鼠素映造张
plp_21=堡倡次挡渡贡鸡蜡模锡校
plp_22=财蠢丢逢欢索踢谢
plp_23=锣鸣圣欣谣责渣挣
plp_24=锤堤愤唤挤两判伤贤尤
plp_25=败春挥急津严营
plp_26=带否符焦锦倦谦瘦弦鸦
plp_27=吧大货货茧紧愧欧丧性氧
plp_28=挨笨吨谨木用怨在眨质昨
plp_29=踩贩吩利甩缩天温
plp_2a=匪个怪航横洪截堪挪太贪伪未株猪爪踪
plp_2b=别夫含漫茫猫末贫紫
plp_2c=搬般本第爬蔬听
plp_2d=搭购席鸭崭中
plp_2e=帮逮刮键售献央
plp_2f=伯港贯锯累眯启是术弯唯振支
plp_30=到地丰估舰田焰
plp_31=爱舱唱贱就谱弱失脱樱由娱朱嘱
plp_32=串防甲露欲洲
plp_33=耳申稳阳
plp_34=伴戴猴缴渴临破朴琴水贴头吴阴嘴
plp_35=吵电堵朵贵阵
plp_36=茶父阶伶然收制
plp_37=谷户男刷样爷
plp_38=霸爸常缸核夸脸贸券伸尸丸吸永游
plp_39=船吹丹弹爹费改根夹匹锹
plp_3a=场尺刺夺贺机欺强区缺示挺为携债
plp_3b=鼻耻稻锻攻画活刻医主总阻蜻
plp_3c=逼格鬼吼稼礼笼尼似眼贼值昼
plp_3d=蔽耽鸽尽丽落帽洽爽挽朽栽
plp_3e=放猾圾举款派脾倾社尾显
plp_3f=阿儿房稿贿尿愿政
plp_40=础局杀所血呀址着
plp_41=扁繁流十允睁汁
plp_42=层桂魂剂求杂
plp_43=晃乃千权桃剃元
plp_44=附魄摄蹄兄啄资
plp_45=畅充鹅幅故际久居浅
plp_46=摆呆但豆杆浆框捆陆婆商兆
plp_47=汇假浇均片奇扇升艇歇摇蝇遇镇
plp_48=案版陈呈慈蹈么屈午先效
plp_49=草等奉光汉蕉歉义捉
plp_4a=啊半坊告届腊鹊摊削浊
plp_4b=测奋筋晋克恋聋手屋之
plp_4c=敌赌歌灌慌煌界牌晌塌乌行职桌
plp_4d=遍才籍降免配前位
plp_4e=低乎虎华济煎李捎慎扎
plp_4f=乏坏虏敏捏偏赏畏协杏住奏
plp_50=材腐罐荐捐恐筐乐齐桐限子坐
plp_51=村浑剑救坑虑扑桑塑网屑筑
plp_52=扒归恒荒酒乒青晒筒
plp_53=打当道浓乓体晓
plp_54=奔答孔联魔赔腔乔扔摔塔兔衔
plp_55=捕单何录幕慕陕晕孕展
plp_56=策乖湖奖赖卖剖祖
plp_57=汗街块罗南穗套遗著字
plp_58=乘存艘塘托员摘橘
plp_59=教静留孙牙乙余浙
plp_5a=博楚党罚婚坚聚晚虚赚做
plp_5b=佛葛睛扛牛赛筛坛
plp_5c=卜杜镜潜停呜畜作
plp_5d=坝九孝祝筝
plp_5e=敞非捞乞瑞塞神属赞
plp_5f=坟江孟束损也
plp_60=池杠靠你屠习赠占
plp_61=荡陡衡捡卡屡坡葡睡条污乡橡象
plp_62=罢敢换恢牢慢面呢形赢院止
plp_63=档董督季扣遣荣散衣佣正
plp_64=赤除此孤煤汤
plp_65=奥剥补步饥健来略桥入祥腥遥
plp_66=蹦车警啦书坦武学
plp_67=摧慧剧牧捧卧轧照执
plp_68=表晨轨恨桨慨票器全杨周
plp_69=彩恩革孩浩扩摩佩剩物险罩
plp_6a=聪番豪剪浪陪歪汪罪
plp_6b=八虫火扫衫填卫
plp_6c=睬衬酬公敬马扬硬葬转
plp_6d=饭恭六灭扭遭
plp_6e=扮潮浮据轮普确絮饮遮置煮
plp_6f=杯扯灯副景良软屯息药
plp_70=驰轰灰艰杰兰镰买恰扰饰数衰慰腰印鹰走
plp_71=饱葱共酱乱驱山危影
plp_72=蹲干割敲色牲饲
plp_73=驳关即佳恳米女平乳味艳
plp_74=赴蝴鉴驴年奴晴却兴穴浴整
plp_75=兵葵灵陵卵牵页赵遵
plp_76=并蝶顶恶扶赶晶究奶偶其饶婶驶陶桶灶
plp_77=海荷捷具卷酷起顷穷偷陷
plp_78=典祸奸浸摸酸卸幸
plp_79=筹腹虹批她特项役
plp_7a=饺空顺牺艺智
plp_7b=彻登幻类轻死须养驻
plp_7c=彼饼呼歼兼楼恼驼幼鱼
plp_7d=白好命汽兽虽顽载
plp_7e=百顾驾签松腾湾虾灾找
plp_7f=板避灿长偿承齿穿顿饿广轿鹿酿湿使腿西屿
plp_80=膀技简蚀往掀邀
plp_81=趁极禁犁梁鲁宁岁突要蚁躁征
plp_82=厂垂概节蚂骂岂如颂涂喂暂皂
plp_83=较境垃璃窃肃它沃殃
plp_84=袄薄抄的构骄径龄垄悄善妄熄预窄侄庄
plp_85=超待辅傅梅内厅馅宅
plp_86=覆馆疆皆历辆了领隆骆庆肆榆
plp_87=妇皇喇率撇文宇
plp_88=辈冈很颈妈劈沈守授消予针
plp_89=安沉掉钉粉溉喉辉厉炉肉涉悉玉誉争醉
plp_8a=把膊床炊喊殊蚊熊羊越
plp_8b=残馋醋袋例律趋事宋王鞋型压
plp_8c=册二和肌碌貌完厌验涌掌
plp_8d=碍傍袍融侍再
plp_8e=美碎瞎炎于
plp_8f=福膏宏亏疏随掏序咏
plp_90=咐析徐隐源
plp_91=斑碑撑骑暑窑疑云
plp_92=炒互垒粒瞒馒芒冒排撒徒醒
plp_93=钓库墓誓输抓
plp_94=岔隔悔熔五应
plp_95=蚕厕底井炕撕投枕
plp_96=抖暖首袖妖殖
plp_97=暗窗粗得店斗岗抗颗疗林骗算碗宗
plp_98=喘官掘厘题粘折
plp_99=料龙蒙庙妙墙沙隙香写宙
plp_9a=定肚抚厚亚
plp_9b=岛供军力抛膛涛些辛
plp_9c=榜窜府辜果溜膜农蒜袜喜鲜斜颜宜障
plp_9d=宝额肝喝涝劝窝膝依芝枝
plp_9e=办钞辞实羞增撞
plp_9f=辟废功沟龟熟趟悟原钟
plp_a0=肠颠冠加纠鞠掠悠
plp_a1=股管计骡没审亡务羡御澡
plp_a2=订钢红客抢梢探肢
plp_a3=患辣劣那趣宣枣
plp_a4=疤颤撤肤护交斤群认室纤冤骤
plp_a5=报斥肥接妥钥粥
plp_a6=度垦芦麦梦润厦亦约悦侦
plp_a7=碧侧产斧级控瞧座
plp_a8=辨厨储动妨骨梨墨您膨侨讨推榨涨
plp_a9=辩钩肩箩亩让玩岩掩斩助
plp_aa=粪纪努枪溪宪邪薪循
plp_ab=被辫垫宫劫莫沫披身享疫
plp_ac=催冬芬躬京犬抬悬咬
plp_ad=鞭播断箭岭炭亭庭袭训
plp_ae=疮垮粮亮暮炮皮微侮议邮
plp_af=纯犯疯环肯枯薯斯梯讯
plp_b0=冰辰记碰现械新宰
plp_b1=抱花励粱钱辱纱箱咱皱
plp_b2=傲悲冲躲纲讲劲莲疲亲液育
plp_b3=芳害河决咳劳纳钳梳足
plp_b4=暴榴趴宴
plp_b5=抵段况侵宵纵
plp_b6=家架隶冶状
plp_b7=德纷获康冷喷嚷
plp_b8=岸沸咸许庸炸蒸纸
plp_b9=边点方妹抹芹容纹犹油
plp_ba=纺肺论螺人躺
plp_bb=玻冻离邻麻妻去傻治钻
plp_bc=悼嚼炼疼押
plp_bd=抽讽宽辽纽禽施芽咽羽
plp_be=宾达禾疾精难设肾沾
plp_bf=便殿访势宿县线沿亿肿
plp_c0=哀激检净雀什秀胀
plp_c1=壁裁磁毁嫁见旁品迁仁私铁翁胁雁证
plp_c2=臂参懂观狂烂裂嫂
plp_c3=促练铃燃秃胃心跃
plp_c4=柄规哄黄寄评泄雄蓄组
plp_c5=必病翅担仅旅铅情迅雅毅装
plp_c6=拆胆秆集密盆仆识视细忆准
plp_c7=采仇过寇篇蛇勇症织
plp_c8=哈览烈迈盈又终
plp_c9=叉觉拉廉凉棉勉泉揉诉
plp_ca=泊糊及郊今惊菊俊廊囊释益诊
plp_cb=蛋介立淋埋棋秋始旋友滋
plp_cc=拌背跌富忌菌里双嫌
plp_cd=苍操词反棍母拍忍仍绍响珍种重
plp_ce=城从风郎黎野迎
plp_cf=柏藏减经量每描苏像盏族
plp_d0=拐狐槐姐某提盐运
plp_d1=绑凑发姑黑滑惑监金近科跑哑译郑
plp_d2=棒插毒寒盒角拒懒勒秒绒痒
plp_d3=仓结染嗓姓
plp_d4=拔比返柔叔滔委仔
plp_d5=毕雕法糕痕绕试惕燕裕棕
plp_d6=盖胖取竖他糖拖
plp_d7=盗狗哗苗旗诗受俗仗志
plp_d8=变俘付高烘还绘拘秘默盘飘淘忘
plp_d9=毙给忙裙蛙仙叙站这
plp_da=诚滚僚棚
plp_db=泛进毛矛叛盛四痛招蛛烛
plp_dc=拜菜瓜柜姜络胜铜惜远
plp_dd=保川话距绝蓝凝违
plp_de=胞诞飞回绞竞连州
plp_df=察迟跟竟盟食统烟域糟租
plp_e0=菠翠叠狠惠几糠无因章忠珠
plp_e1=淡凡胡狡满泡握峡信巡
plp_e2=波既绢拢团询
plp_e3=瓣臣代拣解口绣
plp_e4=秤凤古烤裤令滤勤壤
plp_e5=查该哥工句滥姥泥日若童以拥燥知
plp_e6=擦触旦烦苦拦另瓦详左
plp_e7=继旧惧巧烧秧忧
plp_e8=滨拨部惨巨跨门磨哨姨雨寨旨注叨
plp_e9=惩巩绩矩俩嫩滩早择秩
plp_ea=跪揪泪哪闪绪雪仪只自
plp_eb=毫叫快迫士烫
plp_ec=独括们蓬旬召
plp_ed=班闭惭臭短俭揭竭哭凭热狭续语园
plp_ee=矮差叮篮蛮目森狮问修壮
plp_ef=闯盯端俯惯积凯可路毯误
plp_f0=称惰峰困声述台泰痰仰
plp_f1=旱己俱深英诱狱柱
plp_f2=铲盲曲史闲已哲
plp_f3=凳胳壳柳拳裳绳石跳想音泳右至
plp_f4=巴柴滴更间拴说围维援直致
plp_f5=践僵棵绵念诵韵
plp_f6=壶件胶零瓶时凶延叶银
plp_f7=号混价旷雷闷迷请巷
plp_f8=绸寸狸司相胸闸诸铸
plp_f9=雹对裹迹闹培苹惹叹淹竹
plp_fa=出固基建铺勺寺旺
plp_fb=读翻击僻任添闻系泻寻移姻
plp_fc=导叼狼盼拼泼翼
plp_fd=槽都份国忽能嗽泽追
plp_fe=盾蛾勾巾课链拾图雾曾
plp_ff=仿竿矿绿拿柿寿替勿姿

复制代码

@echo off&setlocal enabledelayedexpansion
chcp 437
call ascmap $
(for /l %%a in (32 1 126) do (
set /a "n=%%a+128"
for /f "eol= delims=" %%b in ("!n!") do (
echo [!$:~%%a,1!=!$:~163,1!!$:~%%b,1!]
)
))>全角字符.txt
pause

复制代码