Re: [請益] 如何刪除文字檔內文
※ 引述《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)
推
12/13 21:57, , 1F
12/13 21:57, 1F
→
12/13 21:58, , 2F
12/13 21:58, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
EZsoft 近期熱門文章
PTT數位生活區 即時熱門文章
-2
10
