作者HZYSoft (PCMan 2007)
看板EZsoft
标题Re: [请益] 如何删除文字档内文
时间Thu Dec 13 21:51:13 2007
※ 引述《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)
1F:推 albb0920:我的坏习惯 ( ̄□ ̄|||)a (我还会用回圈呼叫更大的XD) 12/13 21:57
2F:→ albb0920:双位元是我喜欢VB的地方XDDD 12/13 21:58