作者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)