作者MOONRAKER (肉白不白不用看正面,蠢蛋)
看板Visual_Basic
标题Re: [VB6 ] 写入档案的方式
时间Sat Sep 27 22:04:06 2008
※ 引述《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
--
BATCH 03 : 买张床 - 切达大侠 - 伐木人之歌 -
http://tinyurl.com/3zpyx5
[B4准备中]: 讴歌金钱(7/02) - 单车超人(7/23) -
http://tinyurl.com/66v6vq
[ 番外篇 ]: 包租婆也有过当罗莉的时候(7/17) -
http://tinyurl.com/6j4ale
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
■ 蒙帝派松正体中文计画 ■ Spam-a-lot and enjoy the pythonesque delight!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ https://www.youtube.com/user/JamesBondXD▄▄
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.198.222
1F：→ MOONRAKER:fso读取范例请见拙作 #18PUiADX 09/27 22:04
※ 编辑: MOONRAKER 来自: 59.115.206.170 (09/27 23:34)
※ 编辑: MOONRAKER 来自: 59.115.206.170 (09/27 23:35)
2F：推 GiBuSi:感谢~ 09/28 00:22
3F：推 timmy5519:喔~! 又上了一堂课^^ 09/28 13:22
4F：→ MOONRAKER:请配合仔细阅读VB6 MSDN的线上参考手册喔 09/28 14:39
5F：→ MOONRAKER:fso, textstream等物件都收在参考手册的「物件」项目下 09/28 14:41