請問大大
假如在win7的系統下的IE8下
啟用受保護模式(網際網路選項->安全性)
Set fshandle = CreateObject("scripting.filesystemobject")
Set outTS = fshandle.createTextFile("C:\1.txt", True)
上面第二行的語法就會被禁止使用
請問除了手動去關閉受保護模式之外
有其他方法可以做同樣的功能嗎?(寫入TXT檔)
謝謝
※ 引述《MOONRAKER (肉白不白不用看正面,蠢蛋)》之銘言：
: ※ 引述《GiBuSi (....... NN Ｉ》之銘言：
: : 不知道有什麼方式輸出能不要有空格且輸出字串時不會有""產生?
: 還有一個辦法，用format()把數字格式設定好再輸出，就可以避免空格
: 但是釜底抽薪之計是不要再用老扣扣的print, write了
: 都21世紀了，學一下fileSystemObject，將來寫到.NET或ASP會輕鬆很多
: 以下是寫入的範例
: 讀取的範例請…舊文要找一下
: Sub fsoDemo()
: Set fshandle = CreateObject("scripting.filesystemobject")
: Set outTS = fshandle.createTextFile("C:\1.txt", True)
: For k = 1 To 25
: s = ""
: For ssq = 1 To 4
: s = s + Chr(Int(Rnd(8) * 26) + 65)
: Next ssq
: outTS.write s
: outTS.write ","
: outTS.write Chr(Int(Rnd(8) * 26) + 65)
: outTS.write ","
: For nsq = 1 To 7
: n = Int(Rnd(8) * 20)
: outTS.write n
: outTS.write ","
: Next nsq
: For fsq = 1 To 3
: f = Rnd(8) * 10
: outTS.write Format(f, "0.0")
: outTS.write ","
: Next fsq
: outTS.write Int(Rnd(8) * 9.9)
: outTS.write Chr(Int(Rnd(8) * 26) + 65)
: outTS.write vbCrLf
: Next k
: outTS.Close
: End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.221.102.2
※ 編輯: ckai1983 來自: 61.221.102.2 (12/19 15:01)
※ 編輯: ckai1983 來自: 61.221.102.2 (12/19 15:12)