Re: [VB6 ] 寫入檔案的方式

看板Visual_Basic作者MOONRAKER (肉白不白不用看正面,蠢蛋)時間17年前 (2008/09/27 22:04)推噓2(2推 0噓 3→)

留言5則, 3人參與討論串2/3 (看更多)

※ 引述《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

09/27 22:04, , 1^F

09/27 22:04, 1^F

※ 編輯: MOONRAKER 來自: 59.115.206.170 (09/27 23:34) ※ 編輯: MOONRAKER 來自: 59.115.206.170 (09/27 23:35)

推

GiBuSi

09/28 00:22, , 2^F

09/28 00:22, 2^F

推

timmy5519

09/28 13:22, , 3^F