作者albb0920 (albb)
看板EZsoft
标题Re: [请益] 如何删除文字档内文
时间Thu Dec 13 21:39:13 2007
※ 引述《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)
tmp = mid(text,i,1)
If Asc(tmp) > 0 then text2 = text2 & tmp
Next
Set ts = fso.CreateTextFile(path,true)
ts.Write(text2)
ts.close
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.64.26.28
※ 编辑: albb0920 来自: 203.64.26.28 (12/13 21:39)