作者ckai1983 ( )
看板Visual_Basic
标题Re: [VB6 ] 写入档案的方式
时间Mon Dec 19 14:30:21 2011
请问大大
假如在win7的系统下的IE8下
启用受保护模式(网际网路选项->安全性)
Set fshandle = CreateObject("scripting.filesystemobject")
Set outTS = fshandle.createTextFile("C:\1.txt", True)
上面第二行的语法就会被禁止使用
请问除了手动去关闭受保护模式之外
有其他方法可以做同样的功能吗?(写入TXT档)
谢谢
※ 引述《MOONRAKER (肉白不白不用看正面,蠢蛋)》之铭言:
: ※ 引述《GiBuSi (....... NN I》之铭言:
: : 不知道有什麽方式输出能不要有空格且输出字串时不会有""产生?
: 还有一个办法,用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)