※ 引述《albb0920 (albb)》之铭言： : ※ 引述《Mirmo (牛後~~牛後~~牛後後)》之铭言： : : 文字档里面参杂中文跟英文 : : 我想删除所有中文 : : 保留英文 : : 请问有什麽软体可以一次弄好 : : 谢谢 : 用VB Script 做吧 :) : 用记事本贴上，存成 xxx.vbs : Dim fso,ts : Set fso = CreateObject("Scripting.FileSystemObject") : path = InputBox("请输入档案路径") : Set ts = fso.OpenTextFile(path) : text = ts.ReadAll : ts.close : For i = 1 to len(text) 这是不好的写法，回圈每执行一次都要呼叫一次 len(text) 最好是先把 len 存到变数，可以少掉重复呼叫函数 : tmp = mid(text,i,1) : If Asc(tmp) > 0 then text2 = text2 & tmp 这部分就是 vb/vbscript 好用的地方了 vb 不管中文英文，都视为一个字元 没有单双位元组的问题要考虑 :) 用 C 的话这样写保证不能用 : Next : Set ts = fso.CreateTextFile(path,true) : ts.Write(text2) : ts.close -- 个人网页： http://pcman.sayya.org/ 上面有自画像及各种联络资讯 Blog: http://pcman.sayya.org/blog.php?id=pcman PCMan 全系列 BBS 连线软体 http://pcman.ptt.cc/ http://pcmanx.csie.net/ 新酷音输入法 for Windows http://chewing.csie.net/ IE Tab Firefox plugin/extension http://ietab.mozdev.org/ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 220.228.253.114 ※ 编辑: HZYSoft 来自: 220.228.253.114 (12/13 21:51)