½Ð°Ý,¤å¦rÀɤw¦s¦b,¦ý¬O¦pn«·sÂмg¦p¦ó¼g?
- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
|
½Ð°Ý,¤å¦rÀɤw¦s¦b,¦ý¬O¦pn«·sÂмg¦p¦ó¼g?
§Úªº¤å¦r¤w¦s¦b(per_f),¦ý¬O¨C¦¸n°õ¦æµ{¦¡®É,³£¥²¶·«·sÂмg,½Ð°Ý¦p¦ó¶}±Ò³oÓÀÉ®×,§Ú¹Á¸Õ¤F³\¦h¤è¦¡³£没¿ìªk,½Ð¦U¦ì«e½ú«üÂI,ÁÂÁÂ!!
fs = File.Create(per_f)
fs.Close()
Using outf_sw As StreamWriter = New StreamWriter(per_f, FileMode.Create)
End Using
¦p¤W¬O§Ú¹Á¸Õ¥Îªº¤è¦¡,¦ý¬O³£¥u¯à append ¦bÀɮ׫á±. |
|
V98
|
|
|
|
|
¡@¼ÊºÙ: ¤p»x ¡@ÀY»Î: ´¿¸g¤]¬O¤ô¹q¤u
ºÞ²zû
- ©«¤l
- 1190
- ¥DÃD
- 394
- ºëµØ
- 113
- ¿n¤À
- 1747
- ÂI¦W
- 1
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 200
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-11-23
|
¶}±Ò«ü©wÀɮסA¨Ã¶Ç¦^ TextStream ª«¥ó¡A¥H¥Î¨ÓŪ¨ú¡B©Îªþ¥[¨ì¸ÓÀÉ¡C
object.OpenTextFile(filename[, iomode[, create[, format]]])¥H¤Uªºµ{¦¡½X»¡©ú¦p¦ó¨Ï¥Î OpenTextFile ¤èªk¨Ó¶}±ÒÀɮרêþ¥[¤å¦r¸ê®Æ¡G- Sub OpenTextFileTest
- Const ForReading = 1, ForWriting = 2, ForAppending = 8
- Dim fs, f
- Set fs = CreateObject("Scripting.FileSystemObject")
- Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,True)
- f.Write "Hello world!"
- f.Close
- End Sub
½Æ»s¥N½X ª`·N:Const ForReading = 1, ForWriting = 2, ForAppending = 8 |
|
¤ß¦w¡A¥¦w
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!
|
|
|
|
|