暗淡？MyLineStr？作為？線
MyStr？=?""
讀取原始文件信息
開放？" e:\1.txt "？為了什麽？輸入？作為？#1?以已讀方式打開文件。
做什麽？什麽時候？不是嗎？EOF(1)？？循環到文件結尾
線？輸入？#1,?MyLineStr？排成壹行讀
如果？左(MyLineStr，？2)?=?" TH "？然後
MyStr？=?MyStr？& amp？MyLineStr？& amp？vbCrLf
結束？如果
環
接近？#1?？關閉文件。
寫文件
開放？“e:\2.txt”？為了什麽？輸出？作為？#1?將文件作為輸出打開。
打印？#1,?MyStr
接近？#1?？關閉文件。