batman

纯命令行的Chs2cht V1.1b版：

Dim InpStr, CgMode, Arr, Num, Ec, Qu
For Each Argument In WScript.Arguments
  InpStr = InpStr & Argument & vbCrLf
Next
Dim LoginInfo, Title
Title = "Chs2cht v1.1b made by BatMan from BatHome"
LoginInfo = "欢迎使用Chs2cht汉字繁简体转换工具，帮助信息如下：" & vbCrLf & vbCrLf _
  & "  注意:" & vbTab & "本版本仅支持命令行输入，自动辨别字符串和文本，支持批量转换" & vbCrLf & vbCrLf _
  & "  语法:" & vbtab & "chs2cht [/q] [/s|/t] [string] [drive:][path][filename]" & vbCrLf & vbCrLf _ 
  & "  /e:" & vbTab & "输出到命令行，默认是输出到提示框" & vbcrlf & vbCrLf _
  & "  "& vbTab & "仅适用于wscript脚本宿主启动字符转换模式" & vbCrLf & vbCrLf _
  & "  "& vbTab & "wscript /nologo ch2cht.vbs [/e] [/s|/t] [string]" & vbCrLf & vbCrLf _
  & "  /q:" & vbTab & "安静模式，关闭所有非错误提示" & vbCrLf & vbCrLf _
  & "  /s:" & vbTab & "启用繁体转简体模式" & vbCrLf & vbCrLf _ 
  & "  /t:" & vbTab & "启用简体转繁体模式" & vbCrLf & vbCrLf _
  & "  /?:" & vbTab & "查看帮助信息"
If InpStr = vbNullString Then Login(LoginInfo)
Arr = Split(InpStr, vbCrLf)
If Arr(0) = "/?" Then Login(LoginInfo)
Arr = Split(InpStr, vbCrLf) : InpStr = vbNullString
If Arr(0) = "/?" Then Login(LoginInfo)
For Each str In Arr
  Flag = vbNullString
  If StrComp(str, "/e", 1) = 0 Then Ec = True : Flag = "no"
  If StrComp(str, "/q", 1) = 0 Then Qu = True : Flag = "no"
  For Each var In Split("/t0,/s1,/?2", ",")
    If StrComp(str, Left(var, 2), 1) = 0 Then
      CgMode = Right(var, 1)
      If CgMode = 2 Then Login(LoginInfo)
      Flag = "no"
      Num = Num + 1
    End If
  Next
  If Flag = vbNullString Then InpStr = InpStr & str & vbCrLf
Next
If Num = 0 Then Login("#错误:" & vbTab & "没有发现可用参数！")
If Num > 1 Then Login("#错误:" & vbTab & "参数输入重复或参数过多！")
Dim ZK(1)
ZK(0) = "万与丑专业丛东丝丢两严丧个丬丰临为丽举么义乌乐乔习乡书买乱争于亏云亘亚产亩亲亵亸亿仅从仑仓仪们价众优伙会伛伞伟传伤伥伦伧伪伫体余佣佥侠侣侥侦侧侨侩侪侬俣俦俨俩俪俭债倾偬偻偾偿傥傧储傩儿兑兖党兰关兴兹养兽冁内冈册写军农冢冯冲决况冻净凄凉凌减凑凛几凤凫凭凯击凼凿刍划刘则刚创删别刬刭刽刿剀剂剐剑剥剧劝办务劢动励劲劳势勋勐勚匀匦匮区医华协单卖卢卤卧卫却卺厂厅历厉压厌厍厕厢厣厦厨厩厮县参叆叇双发变叙叠叶号叹叽吁后吓吕吗吣吨听启吴呒呓呕呖呗员呙呛呜咏咔咙咛咝咤咴咸哌响哑哒哓哔哕哗哙哜哝哟唛唝唠唡唢唣唤唿啧啬啭啮啰啴啸喷喽喾嗫呵嗳嘘嘤嘱噜噼嚣嚯团园囱围囵国图圆圣圹场坂坏块坚坛坜坝坞坟坠垄垅垆垒垦垧垩垫垭垯垱垲垴埘埙埚埝埯堑堕塆墙壮声壳壶壸处备复够头夸夹夺奁奂奋奖奥妆妇妈妩妪妫姗姜娄娅娆娇娈娱娲娴婳婴婵婶媪嫒嫔嫱嬷孙学孪宁宝实宠审宪宫宽宾寝对寻导寿将尔尘尧尴尸尽层屃屉届属屡屦屿岁岂岖岗岘岙岚岛岭岳岽岿峃峄峡峣峤峥峦崂崃崄崭嵘嵚嵛嵝嵴巅巩巯币帅师帏帐帘帜带帧帮帱帻帼幂幞干并广庄庆庐庑库应庙庞废庼廪开异弃张弥弪弯弹强归当录彟彦彻径徕御忆忏忧忾怀态怂怃怄怅怆怜总怼怿恋恳恶恸恹恺恻恼恽悦悫悬悭悯惊惧惨惩惫惬惭惮惯愍愠愤愦愿慑慭憷懑懒懔戆戋戏戗战戬户扎扑扦执扩扪扫扬扰抚抛抟抠抡抢护报担拟拢拣拥拦拧拨择挂挚挛挜挝挞挟挠挡挢挣挤挥挦捞损捡换捣据捻掳掴掷掸掺掼揸揽揿搀搁搂搅携摄摅摆摇摈摊撄撑撵撷撸撺擞攒敌敛数斋斓斗斩断无旧时旷旸昙昼昽显晋晒晓晔晕晖暂暧札术朴机杀杂权条来杨杩杰极构枞枢枣枥枧枨枪枫枭柜柠柽栀栅标栈栉栊栋栌栎栏树栖样栾桊桠桡桢档桤桥桦桧桨桩梦梼梾检棂椁椟椠椤椭楼榄榇榈榉槚槛槟槠横樯樱橥橱橹橼檐檩欢欤欧歼殁殇残殒殓殚殡殴毁毂毕毙毡毵氇气氢氩氲汇汉污汤汹沓沟没沣沤沥沦沧沨沩沪沵泞泪泶泷泸泺泻泼泽泾洁洒洼浃浅浆浇浈浉浊测浍济浏浐浑浒浓浔浕涂涌涛涝涞涟涠涡涢涣涤润涧涨涩淀渊渌渍渎渐渑渔渖渗温游湾湿溃溅溆溇滗滚滞滟滠满滢滤滥滦滨滩滪漤潆潇潋潍潜潴澜濑濒灏灭灯灵灾灿炀炉炖炜炝点炼炽烁烂烃烛烟烦烧烨烩烫烬热焕焖焘煅煳熘爱爷牍牦牵牺犊犟状犷犸犹狈狍狝狞独狭狮狯狰狱狲猃猎猕猡猪猫猬献獭玑玙玚玛玮环现玱玺珉珏珐珑珰珲琎琏琐琼瑶瑷璇璎瓒瓮瓯电画畅畲畴疖疗疟疠疡疬疮疯疱疴痈痉痒痖痨痪痫痴瘅瘆瘗瘘瘪瘫瘾瘿癞癣癫癯皑皱皲盏盐监盖盗盘眍眦眬着睁睐睑瞒瞩矫矶矾矿砀码砖砗砚砜砺砻砾础硁硅硕硖硗硙硚确硷碍碛碜碱碹磙礼祎祢祯祷祸禀禄禅离秃秆种积称秽秾稆税稣稳穑穷窃窍窑窜窝窥窦窭竖竞笃笋笔笕笺笼笾筑筚筛筜筝筹签简箓箦箧箨箩箪箫篑篓篮篱簖籁籴类籼粜粝粤粪粮糁糇紧絷纟纠纡红纣纤纥约级纨纩纪纫纬纭纮纯纰纱纲纳纴纵纶纷纸纹纺纻纼纽纾线绀绁绂练组绅细织终绉绊绋绌绍绎经绐绑绒结绔绕绖绗绘给绚绛络绝绞统绠绡绢绣绤绥绦继绨绩绪绫绬续绮绯绰绱绲绳维绵绶绷绸绹绺绻综绽绾绿缀缁缂缃缄缅缆缇缈缉缊缋缌缍缎缏缐缑缒缓缔缕编缗缘缙缚缛缜缝缞缟缠缡缢缣缤缥缦缧缨缩缪缫缬缭缮缯缰缱缲缳缴缵罂网罗罚罢罴羁羟羡翘翙翚耢耧耸耻聂聋职聍联聩聪肃肠肤肷肾肿胀胁胆胜胧胨胪胫胶脉脍脏脐脑脓脔脚脱脶脸腊腌腘腭腻腼腽腾膑臜舆舣舰舱舻艰艳艹艺节芈芗芜芦苁苇苈苋苌苍苎苏苘苹茎茏茑茔茕茧荆荐荙荚荛荜荞荟荠荡荣荤荥荦荧荨荩荪荫荬荭荮药莅莜莱莲莳莴莶获莸莹莺莼萚萝萤营萦萧萨葱蒇蒉蒋蒌蓝蓟蓠蓣蓥蓦蔷蔹蔺蔼蕲蕴薮藁藓虏虑虚虫虬虮虽虾虿蚀蚁蚂蚕蚝蚬蛊蛎蛏蛮蛰蛱蛲蛳蛴蜕蜗蜡蝇蝈蝉蝎蝼蝾螀螨蟏衅衔补衬衮袄袅袆袜袭袯装裆裈裢裣裤裥褛褴襁襕见观觃规觅视觇览觉觊觋觌觍觎觏觐觑觞触觯詟誉誊讠计订讣认讥讦讧讨让讪讫训议讯记讱讲讳讴讵讶讷许讹论讻讼讽设访诀证诂诃评诅识诇诈诉诊诋诌词诎诏诐译诒诓诔试诖诗诘诙诚诛诜话诞诟诠诡询诣诤该详诧诨诩诪诫诬语诮误诰诱诲诳说诵诶请诸诹诺读诼诽课诿谀谁谂调谄谅谆谇谈谊谋谌谍谎谏谐谑谒谓谔谕谖谗谘谙谚谛谜谝谞谟谠谡谢谣谤谥谦谧谨谩谪谫谬谭谮谯谰谱谲谳谴谵谶谷豮贝贞负贠贡财责贤败账货质贩贪贫贬购贮贯贰贱贲贳贴贵贶贷贸费贺贻贼贽贾贿赀赁赂赃资赅赆赇赈赉赊赋赌赍赎赏赐赑赒赓赔赕赖赗赘赙赚赛赜赝赞赟赠赡赢赣赪赵赶趋趱趸跃跄跖跞践跶跷跸跹跻踊踌踪踬踯蹑蹒蹰蹿躏躜躯车轧轨轩轪轫转轭轮软轰轱轲轳轴轵轶轷轸轹轺轻轼载轾轿辀辁辂较辄辅辆辇辈辉辊辋辌辍辎辏辐辑辒输辔辕辖辗辘辙辚辞辩辫边辽达迁过迈运还这进远违连迟迩迳迹适选逊递逦逻遗遥邓邝邬邮邹邺邻郁郄郏郐郑郓郦郧郸酝酦酱酽酾酿释里鉅鉴銮錾钆钇针钉钊钋钌钍钎钏钐钑钒钓钔钕钖钗钘钙钚钛钝钞钟钠钡钢钣钤钥钦钧钨钩钪钫钬钭钮钯钰钱钲钳钴钵钶钷钸钹钺钻钼钽钾钿铀铁铂铃铄铅铆铈铉铊铋铍铎铏铐铑铒铕铗铘铙铚铛铜铝铞铟铠铡铢铣铤铥铦铧铨铪铫铬铭铮铯铰铱铲铳铴铵银铷铸铹铺铻铼铽链铿销锁锂锃锄锅锆锇锈锉锊锋锌锍锎锏锐锑锒锓锔锕锖锗错锚锜锞锟锠锡锢锣锤锥锦锨锩锫锬锭键锯锰锱锲锳锴锵锶锷锸锹锺锻锼锽锾锿镀镁镂镃镆镇镈镉镊镌镍镎镏镐镑镒镕镖镗镙镚镛镜镝镞镟镠镡镢镣镤镥镦镧镨镩镪镫镬镭镮镯镰镱镲镳镴镶长门闩闪闫闬闭问闯闰闱闲闳间闵闶闷闸闹闺闻闼闽闾闿阀阁阂阃阄阅阆阇阈阉阊阋阌阍阎阏阐阑阒阓阔阕阖阗阘阙阚阛队阳阴阵阶际陆陇陈陉陕陧陨险随隐隶隽难雏雠雳雾霁霉霭靓静靥鞑鞒鞯鞴韦韧韨韩韪韫韬韵页顶顷顸项顺须顼顽顾顿颀颁颂颃预颅领颇颈颉颊颋颌颍颎颏颐频颒颓颔颕颖颗题颙颚颛颜额颞颟颠颡颢颣颤颥颦颧风飏飐飑飒飓飔飕飖飗飘飙飚飞飨餍饤饥饦饧饨饩饪饫饬饭饮饯饰饱饲饳饴饵饶饷饸饹饺饻饼饽饾饿馀馁馂馃馄馅馆馇馈馉馊馋馌馍馎馏馐馑馒馓馔馕马驭驮驯驰驱驲驳驴驵驶驷驸驹驺驻驼驽驾驿骀骁骂骃骄骅骆骇骈骉骊骋验骍骎骏骐骑骒骓骔骕骖骗骘骙骚骛骜骝骞骟骠骡骢骣骤骥骦骧髅髋髌鬓魇魉鱼鱽鱾鱿鲀鲁鲂鲄鲅鲆鲇鲈鲉鲊鲋鲌鲍鲎鲏鲐鲑鲒鲓鲔鲕鲖鲗鲘鲙鲚鲛鲜鲝鲞鲟鲠鲡鲢鲣鲤鲥鲦鲧鲨鲩鲪鲫鲬鲭鲮鲯鲰鲱鲲鲳鲴鲵鲶鲷鲸鲹鲺鲻鲼鲽鲾鲿鳀鳁鳂鳃鳄鳅鳆鳇鳈鳉鳊鳋鳌鳍鳎鳏鳐鳑鳒鳓鳔鳕鳖鳗鳘鳙鳛鳜鳝鳞鳟鳠鳡鳢鳣鸟鸠鸡鸢鸣鸤鸥鸦鸧鸨鸩鸪鸫鸬鸭鸮鸯鸰鸱鸲鸳鸴鸵鸶鸷鸸鸹鸺鸻鸼鸽鸾鸿鹀鹁鹂鹃鹄鹅鹆鹇鹈鹉鹊鹋鹌鹍鹎鹏鹐鹑鹒鹓鹔鹕鹖鹗鹘鹚鹛鹜鹝鹞鹟鹠鹡鹢鹣鹤鹥鹦鹧鹨鹩鹪鹫鹬鹭鹯鹰鹱鹲鹳鹴鹾麦麸黄黉黡黩黪黾鼋鼌鼍鼗鼹齄齐齑齿龀龁龂龃龄龅龆龇龈龉龊龋龌龙龚龛龟志制咨只里系范松没尝尝闹面准钟别闲干尽脏拼真"
ZK(1) = "萬與醜專業叢東絲丟兩嚴喪個爿豐臨為麗舉麼義烏樂喬習鄉書買亂爭於虧雲亙亞產畝親褻嚲億僅從侖倉儀們價眾優夥會傴傘偉傳傷倀倫傖偽佇體餘傭僉俠侶僥偵側僑儈儕儂俁儔儼倆儷儉債傾傯僂僨償儻儐儲儺兒兌兗黨蘭關興茲養獸囅內岡冊寫軍農塚馮衝決況凍淨淒涼淩減湊凜幾鳳鳧憑凱擊氹鑿芻劃劉則剛創刪別剗剄劊劌剴劑剮劍剝劇勸辦務勱動勵勁勞勢勳猛勩勻匭匱區醫華協單賣盧鹵臥衛卻巹廠廳曆厲壓厭厙廁廂厴廈廚廄廝縣參靉靆雙發變敘疊葉號歎嘰籲後嚇呂嗎唚噸聽啟吳嘸囈嘔嚦唄員咼嗆嗚詠哢嚨嚀噝吒噅鹹呱響啞噠嘵嗶噦嘩噲嚌噥喲嘜嗊嘮啢嗩唕喚呼嘖嗇囀齧囉嘽嘯噴嘍嚳囁嗬噯噓嚶囑嚕劈囂謔團園囪圍圇國圖圓聖壙場阪壞塊堅壇壢壩塢墳墜壟壟壚壘墾坰堊墊埡墶壋塏堖塒塤堝墊垵塹墮壪牆壯聲殼壺壼處備複夠頭誇夾奪奩奐奮獎奧妝婦媽嫵嫗媯姍薑婁婭嬈嬌孌娛媧嫻嫿嬰嬋嬸媼嬡嬪嬙嬤孫學孿寧寶實寵審憲宮寬賓寢對尋導壽將爾塵堯尷屍盡層屭屜屆屬屢屨嶼歲豈嶇崗峴嶴嵐島嶺嶽崠巋嶨嶧峽嶢嶠崢巒嶗崍嶮嶄嶸嶔崳嶁脊巔鞏巰幣帥師幃帳簾幟帶幀幫幬幘幗冪襆幹並廣莊慶廬廡庫應廟龐廢廎廩開異棄張彌弳彎彈強歸當錄彠彥徹徑徠禦憶懺憂愾懷態慫憮慪悵愴憐總懟懌戀懇惡慟懨愷惻惱惲悅愨懸慳憫驚懼慘懲憊愜慚憚慣湣慍憤憒願懾憖怵懣懶懍戇戔戲戧戰戩戶紮撲扡執擴捫掃揚擾撫拋摶摳掄搶護報擔擬攏揀擁攔擰撥擇掛摯攣掗撾撻挾撓擋撟掙擠揮撏撈損撿換搗據撚擄摑擲撣摻摜摣攬撳攙擱摟攪攜攝攄擺搖擯攤攖撐攆擷擼攛擻攢敵斂數齋斕鬥斬斷無舊時曠暘曇晝曨顯晉曬曉曄暈暉暫曖劄術樸機殺雜權條來楊榪傑極構樅樞棗櫪梘棖槍楓梟櫃檸檉梔柵標棧櫛櫳棟櫨櫟欄樹棲樣欒棬椏橈楨檔榿橋樺檜槳樁夢檮棶檢欞槨櫝槧欏橢樓欖櫬櫚櫸檟檻檳櫧橫檣櫻櫫櫥櫓櫞簷檁歡歟歐殲歿殤殘殞殮殫殯毆毀轂畢斃氈毿氌氣氫氬氳彙漢汙湯洶遝溝沒灃漚瀝淪滄渢溈滬濔濘淚澩瀧瀘濼瀉潑澤涇潔灑窪浹淺漿澆湞溮濁測澮濟瀏滻渾滸濃潯濜塗湧濤澇淶漣潿渦溳渙滌潤澗漲澀澱淵淥漬瀆漸澠漁瀋滲溫遊灣濕潰濺漵漊潷滾滯灩灄滿瀅濾濫灤濱灘澦濫瀠瀟瀲濰潛瀦瀾瀨瀕灝滅燈靈災燦煬爐燉煒熗點煉熾爍爛烴燭煙煩燒燁燴燙燼熱煥燜燾煆糊溜愛爺牘犛牽犧犢強狀獷獁猶狽麅獮獰獨狹獅獪猙獄猻獫獵獼玀豬貓蝟獻獺璣璵瑒瑪瑋環現瑲璽瑉玨琺瓏璫琿璡璉瑣瓊瑤璦璿瓔瓚甕甌電畫暢佘疇癤療瘧癘瘍鬁瘡瘋皰屙癰痙癢瘂癆瘓癇癡癉瘮瘞瘺癟癱癮癭癩癬癲臒皚皺皸盞鹽監蓋盜盤瞘眥矓著睜睞瞼瞞矚矯磯礬礦碭碼磚硨硯碸礪礱礫礎硜矽碩硤磽磑礄確鹼礙磧磣堿镟滾禮禕禰禎禱禍稟祿禪離禿稈種積稱穢穠穭稅穌穩穡窮竊竅窯竄窩窺竇窶豎競篤筍筆筧箋籠籩築篳篩簹箏籌簽簡籙簀篋籜籮簞簫簣簍籃籬籪籟糴類秈糶糲粵糞糧糝餱緊縶糸糾紆紅紂纖紇約級紈纊紀紉緯紜紘純紕紗綱納紝縱綸紛紙紋紡紵紖紐紓線紺絏紱練組紳細織終縐絆紼絀紹繹經紿綁絨結絝繞絰絎繪給絢絳絡絕絞統綆綃絹繡綌綏絛繼綈績緒綾緓續綺緋綽緔緄繩維綿綬繃綢綯綹綣綜綻綰綠綴緇緙緗緘緬纜緹緲緝縕繢緦綞緞緶線緱縋緩締縷編緡緣縉縛縟縝縫縗縞纏縭縊縑繽縹縵縲纓縮繆繅纈繚繕繒韁繾繰繯繳纘罌網羅罰罷羆羈羥羨翹翽翬耮耬聳恥聶聾職聹聯聵聰肅腸膚膁腎腫脹脅膽勝朧腖臚脛膠脈膾髒臍腦膿臠腳脫腡臉臘醃膕齶膩靦膃騰臏臢輿艤艦艙艫艱艷艸藝節羋薌蕪蘆蓯葦藶莧萇蒼苧蘇檾蘋莖蘢蔦塋煢繭荊薦薘莢蕘蓽蕎薈薺蕩榮葷滎犖熒蕁藎蓀蔭蕒葒葤藥蒞蓧萊蓮蒔萵薟獲蕕瑩鶯蓴蘀蘿螢營縈蕭薩蔥蕆蕢蔣蔞藍薊蘺蕷鎣驀薔蘞藺藹蘄蘊藪槁蘚虜慮虛蟲虯蟣雖蝦蠆蝕蟻螞蠶蠔蜆蠱蠣蟶蠻蟄蛺蟯螄蠐蛻蝸蠟蠅蟈蟬蠍螻蠑螿蟎蠨釁銜補襯袞襖嫋褘襪襲襏裝襠褌褳襝褲襇褸襤繈襴見觀覎規覓視覘覽覺覬覡覿覥覦覯覲覷觴觸觶讋譽謄訁計訂訃認譏訐訌討讓訕訖訓議訊記訒講諱謳詎訝訥許訛論訩訟諷設訪訣證詁訶評詛識詗詐訴診詆謅詞詘詔詖譯詒誆誄試詿詩詰詼誠誅詵話誕詬詮詭詢詣諍該詳詫諢詡譸誡誣語誚誤誥誘誨誑說誦誒請諸諏諾讀諑誹課諉諛誰諗調諂諒諄誶談誼謀諶諜謊諫諧謔謁謂諤諭諼讒諮諳諺諦謎諞諝謨讜謖謝謠謗諡謙謐謹謾謫譾謬譚譖譙讕譜譎讞譴譫讖穀豶貝貞負貟貢財責賢敗賬貨質販貪貧貶購貯貫貳賤賁貰貼貴貺貸貿費賀貽賊贄賈賄貲賃賂贓資賅贐賕賑賚賒賦賭齎贖賞賜贔賙賡賠賧賴賵贅賻賺賽賾贗讚贇贈贍贏贛赬趙趕趨趲躉躍蹌蹠躒踐躂蹺蹕躚躋踴躊蹤躓躑躡蹣躕躥躪躦軀車軋軌軒軑軔轉軛輪軟轟軲軻轤軸軹軼軤軫轢軺輕軾載輊轎輈輇輅較輒輔輛輦輩輝輥輞輬輟輜輳輻輯轀輸轡轅轄輾轆轍轔辭辯辮邊遼達遷過邁運還這進遠違連遲邇逕跡適選遜遞邐邏遺遙鄧鄺鄔郵鄒鄴鄰鬱郤郟鄶鄭鄆酈鄖鄲醞醱醬釅釃釀釋裏钜鑒鑾鏨釓釔針釘釗釙釕釷釺釧釤鈒釩釣鍆釹鍚釵鈃鈣鈈鈦鈍鈔鍾鈉鋇鋼鈑鈐鑰欽鈞鎢鉤鈧鈁鈥鈄鈕鈀鈺錢鉦鉗鈷缽鈳鉕鈽鈸鉞鑽鉬鉭鉀鈿鈾鐵鉑鈴鑠鉛鉚鈰鉉鉈鉍鈹鐸鉶銬銠鉺銪鋏鋣鐃銍鐺銅鋁銱銦鎧鍘銖銑鋌銩銛鏵銓鉿銚鉻銘錚銫鉸銥鏟銃鐋銨銀銣鑄鐒鋪鋙錸鋱鏈鏗銷鎖鋰鋥鋤鍋鋯鋨鏽銼鋝鋒鋅鋶鐦鐧銳銻鋃鋟鋦錒錆鍺錯錨錡錁錕錩錫錮鑼錘錐錦鍁錈錇錟錠鍵鋸錳錙鍥鍈鍇鏘鍶鍔鍤鍬鍾鍛鎪鍠鍰鎄鍍鎂鏤鎡鏌鎮鎛鎘鑷鐫鎳鎿鎦鎬鎊鎰鎔鏢鏜鏍鏰鏞鏡鏑鏃鏇鏐鐔钁鐐鏷鑥鐓鑭鐠鑹鏹鐙鑊鐳鐶鐲鐮鐿鑔鑣鑞鑲長門閂閃閆閈閉問闖閏闈閑閎間閔閌悶閘鬧閨聞闥閩閭闓閥閣閡閫鬮閱閬闍閾閹閶鬩閿閽閻閼闡闌闃闠闊闋闔闐闒闕闞闤隊陽陰陣階際陸隴陳陘陝隉隕險隨隱隸雋難雛讎靂霧霽黴靄靚靜靨韃鞽韉韝韋韌韍韓韙韞韜韻頁頂頃頇項順須頊頑顧頓頎頒頌頏預顱領頗頸頡頰頲頜潁熲頦頤頻頮頹頷頴穎顆題顒顎顓顏額顳顢顛顙顥纇顫顬顰顴風颺颭颮颯颶颸颼颻飀飄飆飆飛饗饜飣饑飥餳飩餼飪飫飭飯飲餞飾飽飼飿飴餌饒餉餄餎餃餏餅餑餖餓餘餒餕餜餛餡館餷饋餶餿饞饁饃餺餾饈饉饅饊饌饢馬馭馱馴馳驅馹駁驢駔駛駟駙駒騶駐駝駑駕驛駘驍罵駰驕驊駱駭駢驫驪騁驗騂駸駿騏騎騍騅騌驌驂騙騭騤騷騖驁騮騫騸驃騾驄驏驟驥驦驤髏髖髕鬢魘魎魚魛魢魷魨魯魴魺鮁鮃鯰鱸鮋鮓鮒鮊鮑鱟鮍鮐鮭鮚鮳鮪鮞鮦鰂鮜鱠鱭鮫鮮鮺鯗鱘鯁鱺鰱鰹鯉鰣鰷鯀鯊鯇鮶鯽鯒鯖鯪鯕鯫鯡鯤鯧鯝鯢鯰鯛鯨鯵鯴鯔鱝鰈鰏鱨鯷鰮鰃鰓鱷鰍鰒鰉鰁鱂鯿鰠鼇鰭鰨鰥鰩鰟鰜鰳鰾鱈鱉鰻鰵鱅鰼鱖鱔鱗鱒鱯鱤鱧鱣鳥鳩雞鳶鳴鳲鷗鴉鶬鴇鴆鴣鶇鸕鴨鴞鴦鴒鴟鴝鴛鴬鴕鷥鷙鴯鴰鵂鴴鵃鴿鸞鴻鵐鵓鸝鵑鵠鵝鵒鷳鵜鵡鵲鶓鵪鶤鵯鵬鵮鶉鶊鵷鷫鶘鶡鶚鶻鶿鶥鶩鷊鷂鶲鶹鶺鷁鶼鶴鷖鸚鷓鷚鷯鷦鷲鷸鷺鸇鷹鸌鸏鸛鸘鹺麥麩黃黌黶黷黲黽黿鼂鼉鞀鼴齇齊齏齒齔齕齗齟齡齙齠齜齦齬齪齲齷龍龔龕龜誌製谘隻裡係範鬆冇嚐嘗鬨麵準鐘彆閒乾儘臟拚眞"
Dim FSO, SHELL, fGet, vbStr, Arr1, OutStr, Path, Name, Ext
Set FSO = CreateObject("Scripting.FileSystemObject")
Arr = Split(InpStr, vbCrLf)
For Each str In Arr
  If str <> vbNullString Then
  Set SHELL = CreateObject("Wscript.Shell")
  OutStr = vbNullString 
    If FSO.FileExists(str) Then
      If Ec = True Then Login("#错误:" & vbTab & "/e参数仅适用于wscript脚本宿主启动字符转换模式！")
      Arr1 = Split(FSO.OpenTextFile(str).ReadAll(), vbCrLf)
      For Each vbStr In Arr1
        If vbStr <> vbNullString Then
          Juge vbStr
          OutStr = OutStr & vbCrLf
          Else
          OutStr = OutStr & vbCrLf
        End if     
      Next
      Set fGet = FSO.GetFile(str)      
      Path = fGet.ParentFolder & "\"
      Ext = FSO.GetExtensionName(str)
      If InStr("txt html bat vbs js wsf csv asp wsh", LCase(Ext)) = 0 Then Login("#错误:" & vbTab & "不是有效的文本文件！")
      Name = Replace(fGet.Name, "." & Ext, "")
      FSO.OpenTextFile(Path & Name & "_cg." & Ext, 2, True).Write OutStr
      Set fGet = Nothing
      If Qu = vbNullString Then SHELL.Popup str & "转换完成" & vbCrLf & vbCrLf & "转换后的文件为：" & Path & Name & "_cg." & Ext, 2, Title
      Else
      Juge str
      If Ec = vbNullString Then
        MsgBox "转换后的字符：" & OutStr, , Title
        Else
        On Error Resume Next 
        WScript.StdOut.Write OutStr
        If Err.Number <> 0 Then Login("#错误:" & vbTab & "/e参数仅适用于wscript脚本宿主启动字符转换模式！")
      End If
    End If
  End If
Next
Set FSO = Nothing
Set SHELL = Nothing

Function Juge(JgStr)
  For i = 1 to Len(JgStr)
    var = Mid(JgStr, i, 1)
    If Ascb(Midb(var, 2, 1)) <> 0 Then 
      OutStr = OutStr & Change(CgMode, var)
      Else
      OutStr = Outstr & var
    End If
  Next
End Function

Function Change(CgMode, CgStr)
  For i = 1 To Len(ZK(CgMode))
    If Mid(ZK(CgMode), i, 1) = Cgstr Then Change = Mid(ZK(CgMode Xor 1), i, 1) : OK = "ok"
  Next
  If OK = vbNullString Then Change = Change & Cgstr  
End Function

Function Login(LgIf)
  MsgBox LgIf, , Title
  WScript.Quit
End Function
复制代码

batman

以下字體為V1.1轉換：
完全做成命令行參數是可以的，
但這樣可能與批量拖入有衝突，
要不乾脆寫一個純命令行版本的。
word、excel本身就有轉換功能，
不需要再用本工具轉換哦。
生成log文件也冇有問題，
但不知道兄弟是想用字庫內置版本還是word版本？

pdanniel66

Hi Batman,
之前TXT我都是用 concmd，語法如下 (不支持 word )
簡繁體轉碼 ==> concmd /i:gbk /o:big5 /f:T demo.bat

此 VBS 可否完全用 參數command,使用者不需按3個視窗，任何錯誤或預設參數，寫到 log file，使用者自己看log看結果 ! Thanks

pdanniel66

Hi batman,

My OS version is XP SP3 ( CHT)

V2.0 test result as below:
(1) txt : CHT to CHS : successful
(2) word : CHT to CHS : failed
      Error message


---------------------------
Windows Script Host
---------------------------
Script:        D:\test123\script\cht-2-chs\cht-2-chs.vbs
行:        45
字元 :        7
錯誤:        程序呼叫或引數不正確
程式碼:        800A0005
來源:         Microsoft VBScript 執行階段錯誤

---------------------------
確定   
---------------------------

batman

5# Demon
多谢“挑刺”，开始没想到用word，下面给出Chs2cht v2.0版本：

Dim InpStr, CgMode
For Each Argument In WScript.Arguments
  InpStr = InpStr & Argument & vbCrLf
Next
If InpStr = vbNullString Then
  InpStr = InputBox("请输入要转换的文件路径或字符串：")
  If InpStr = vbNullString Then WScript.Quit
  Else
End If
CgMode = InputBox("请选择转换的模式，默认为简体转繁体：" & vbCrLf & "0:简体转繁体" & vbCrLf & "1:繁体转简体")
If CgMode <> "0" And CgMode <> "1" Then CgMode = 0
Dim FSO, fGet, Arr, vbStr, Path, Name, Ext
Set FSO = CreateObject("Scripting.FileSystemObject")
Arr = Split(InpStr, vbCrLf)
For Each str In Arr
  If str <> vbNullString Then
    If FSO.FileExists(str) Then 
      vbStr = FSO.OpenTextFile(str).ReadAll()
      Set fGet = FSO.GetFile(str)
      Path = fGet.ParentFolder & "\"
      Ext = FSO.GetExtensionName(str)
      Name = Replace(fGet.Name, "." & Ext, "")
      FSO.OpenTextFile(Path & Name & "_cg." & Ext, 2, True).Write Change(CgMode, vbStr)
      Set fGet = Nothing
      MsgBox str & "转换完成，转换后的文件为：" & Path & Name & "_cg." & Ext
      Else
      MsgBox "转换后的字符：" & Change(CgMode, str)
    End If
  End If
Next
Set FSO = Nothing
CreateObject("Wscript.Shell").Popup "转换全部完成!", 2

Function Change(CgMode, CgStr)
  Dim WORD, Doc
  Set WORD = CreateObject("Word.Application")
  WORD.Visible = False
  Set Doc = WORD.Documents.Add()
  WORD.Selection.TypeText CgStr
  Doc.Range.TCSCConverter CgMode, False, True
  Change = Replace(Doc.Range.Text, vbCr, vbCrLf)
  Doc.Saved = True
  Doc.Close
  WORD.Quit
  Set WORD = Nothing
End Function
复制代码

Demon

写代码我不会，挑毛病倒是挺在行。

不是你没找到，是根本就没有算法。

有些字并不是一一对应的，比如“我干妹妹的故事”可以转成“我幹妹妹的故事”，也可以转成“我乾妹妹的故事”；“我下面给你吃”可以转换成“我下麵给你吃”，也可以不转直接“我下面给你吃”。但是意思差了十万八千里。

有些概念简体和繁体的称谓不同，比如简体说“程序”，繁体说“程式”；简体说“面向对象”，繁体说“物件導向”，等等。

这些都不是靠简单的映射表就能实现的，退一步讲，就算用查表法，用哈希表（VBS中的Dictionary对象）应该比数组好点吧，这样只用把需要转换的汉字写到代码中。

最后，直接在Word里面转换不就行了，何必自找麻烦。

Don't Reinvent the Wheel

zz100001

http://www.bathome.net/include/js/language.js

batman

楼上可以说明下测试的环境吗？
我这里实现成功转换(xp-sp3)：
前言：
    因為論罈中有不少來自港、澳、颱的會員，而他們平常都是在繁體閱讀糢式下，看簡體的資料可能相當費勁。所以，本人萌生了寫一箇簡繁互換的工具的念頭（雖然网上有不少轉換工具，但總覺得自己寫得來得踏實）。於是，便有了下麵這箇VBS工具的齣現。

    本來想用算法來實現的，但查遍資料也沒找到成熟的算法（可能是本人沒找到吧），大家基本都是采用的查錶法來進行轉換的。於是，不得已沿用了這種查錶法，同時將字符錶寫入了代碼以提高轉換速度。因此導致了代碼體積很大（達到76kb），所以源碼是不可能貼上來了，隻好請大家下載附件壓縮包。

    同時說明一下:

    1、支持字符轉換和文件轉換雙糢式（自動分辨）；
    2、支持批量拖拽文件，會分彆轉換每箇文件并另存在以原文件名+_cg的格式命令的新文件（每箇文件都有提示）；
    3、支持命令行，如CMD下輸入簡繁互換1.0.vbs "我是一箇兵 來自老百姓" "d:\test\a.txt"，會分彆進行字符轉換和文件轉換；
    4、支持輸入框輸入，如輸入非有效路逕和文件，將進行字符轉換，如是有效路逕和文件，則進行文件轉換；

    代碼有待優化，有時間再更新，大家帮測試并多提寶貴意見哈！

pdanniel66

簡轉繁失敗，如下所示 :
123_cg.txt :
因为论坛中有不少来自港、澳、颱的会员，而他们平常都是在繁体阅读糢式下，看简体的资料可能相当费劲。所以，
本人萌生了写一个简繁互换的工具的念头（虽然网上有不少转换工具，但总觉得自己写得来得踏实）。于是，

便有了下麵这个VBS工具的齣现。
    本来想用算法来实现的，但查遍资料也没找到成熟的算法（可能是本人没找到吧），大家基本都是采用的查錶法来进行转换的。    于是，不得已沿用了这种查錶法，同时将字符錶写入了代码以提高转换速度。因此导致了代码体积很大（达到76kb），所以源码是不可能贴上来了
隻好请大家下载附件压缩皰。