推 GiBuSi:感謝~ 09/28 00:22
推 timmy5519:喔~! 又上了一堂課^^ 09/28 13:22
→ MOONRAKER:請配合仔細閱讀VB6 MSDN的線上參考手冊喔 09/28 14:39
→ MOONRAKER:fso, textstream等物件都收在參考手冊的「物件」項目下 09/28 14:41
※ 引述《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!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ http://www.youtube.com/user/JamesBondXD▄▄
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.115.198.222
※ 編輯: MOONRAKER 來自: 59.115.206.170 (09/27 23:34)
※ 編輯: MOONRAKER 來自: 59.115.206.170 (09/27 23:35)