- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
改改第11行的檔名:- Sub Read_text_File()
- Dim oFSO
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- Dim itemCount As Long
- Dim lumSum As Long
- Dim filename As String
- filename = "c:\temp\readfile.txt"
- Set oFS = oFSO.OpenTextFile(filename)
- Do Until oFS.AtEndOfStream
- sText = oFS.ReadLine
- itemCount = UBound(Split(sText, ","))
- lumSum = lumSum + Int(Split(sText, ",")(itemCount))
- Loop
- oFS.Close
- Set oFS = oFSO.OpenTextFile(filename, 8, , 0)
- oFS.WriteLine
- oFS.Write String(itemCount, ",") & Trim(Str(lumSum))
- oFS.Close
- oFSO = Null
- End Sub
|
|
發表於 2010-7-22 22:12
| 