- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-3-16 08:50 ½s¿è
¦^´_ 1# sasho
ÅܼƦ³µ§»~
fileNum = FreeFile
Open "c:\users\desktop\test.txt" For Output As #filenub
Print #fileNum, , "20150313"
§A¦h¤F¤@Ó ,- Print #filenub, "20150313"
½Æ»s¥N½X Print # ³¯z¦¡½d¨Ò
¥»½d¨Ò¨Ï¥Î Print # ³¯z¦¡±N¸ê®Æ¼g¤J¤@ÓÀɮסC- Open "TESTFILE" For Output As #1 ' ¶}±Ò¿é¥XÀɮסC
- Print #1, "This is a test" ' ±N¤å¦r¸ê®Æ¼g¤JÀɮסC
- Print #1, ' ¼g¤JªÅ¥Õ¦æ¦ÜÀɮפ¤¡C
- Print #1, "Zone 1", Tab, "Zone 2" ' ¼g¤J¸ê®Æ¦Ü¨âÓ¼g¤J°Ï (print zones)¡C
- Print #1, "Hello", " ", "World" ' ¥HªÅ®æ¹j¶}¨âÓ¦r¦ê¡C
- Print #1, Spc(5), "5 leading spaces " ' ¦b¦r¦ê¤§«e¼g¤J¤ÓªÅ®æ¡C
- Print #1, Tab(10), "Hello" ' ±N¸ê®Æ¼g¦b²Ä¤QÓ¸ê®Æ¦æ¡C
- ' ³]©w Boolean¡BDate¡BNull ¤Î Error µ¥ÅܼƪºÈ¡C
- Dim MyBool, MyDate, MyNull, MyError
- MyBool = False: MyDate = #2/12/1969#: MyNull = Null
- MyError = CVErr(32767)
- ' True¡BFalse¡BNull¡A¤Î Error ·|¨Ì·Ó±zªº¹q¸£¨t²Îªº¦a°Ï³]©w
- ' ¨ÓÅã¥Ü¡C¤é´Áªí¥Üªk·|¥H¤@¯ë¡uµu¦¡¤é´Á¡vªº®æ¦¡Åã¥Ü¡C
- Print #1, MyBool, " is a Boolean value"
- Print #1, MyDate, " is a date"
- Print #1, MyNull, " is a null value"
- Print #1, MyError, " is an error value"
- Close #1 ' Ãö³¬ÀɮסC
½Æ»s¥N½X |
|