ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¥H PRINT ¿é¥X¨ìÀɮתº¸ê®Æ¡A¬°¤°»ò«e­±¦³¤@¤j¬qªÅ¥Õ?

[µo°Ý] ¥H PRINT ¿é¥X¨ìÀɮתº¸ê®Æ¡A¬°¤°»ò«e­±¦³¤@¤j¬qªÅ¥Õ?

¥»©«³Ì«á¥Ñ sasho ©ó 2015-3-15 18:59 ½s¿è

¦U¦ì«e½ú±ß¤W¦n

¤£¾å±o¬°¤°»ò§Ú¥Î PRINT ªº¤è¦¡¿é¥X¸ê®Æ¡Aµ²ªG¸ê®Æ¤@¥´¶}¨Ó¬Ý¡A«e­±¥þ³¡³£¥X²{¤@ªø¦êªºªÅ¥Õ
½Ð°Ý¦³¿ìªk¸Ñ¨M¶Ü? ½d¨Ò¦p¤U"

sub test()
dim fileNum as integer

filenum = freefile

OPEN "c:\users\desktop\test.txt"  FOR OUTPUT  AS #filenub

          PRINT #filenub,,"20150313"

CLOSE #filenub

¿é¥Xªº¸ê®Æ¦p¤U

¥»©«³Ì«á¥Ñ 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¤@­Ó ,
  1. Print #filenub, "20150313"
½Æ»s¥N½X
Print # ³¯­z¦¡½d¨Ò
¥»½d¨Ò¨Ï¥Î Print # ³¯­z¦¡±N¸ê®Æ¼g¤J¤@­ÓÀɮסC
  1. Open "TESTFILE" For Output As #1    ' ¶}±Ò¿é¥XÀɮסC
  2. Print #1, "This is a test"    ' ±N¤å¦r¸ê®Æ¼g¤JÀɮסC
  3. Print #1,    ' ¼g¤JªÅ¥Õ¦æ¦ÜÀɮפ¤¡C
  4. Print #1, "Zone 1", Tab, "Zone 2"     ' ¼g¤J¸ê®Æ¦Ü¨â­Ó¼g¤J°Ï (print zones)¡C
  5. Print #1, "Hello", " ", "World"      ' ¥HªÅ®æ¹j¶}¨â­Ó¦r¦ê¡C
  6. Print #1, Spc(5), "5 leading spaces "     ' ¦b¦r¦ê¤§«e¼g¤J¤­­ÓªÅ®æ¡C
  7. Print #1, Tab(10), "Hello"     ' ±N¸ê®Æ¼g¦b²Ä¤Q­Ó¸ê®Æ¦æ¡C

  8. ' ³]©w Boolean¡BDate¡BNull ¤Î Error µ¥Åܼƪº­È¡C
  9. Dim MyBool, MyDate, MyNull, MyError
  10. MyBool = False: MyDate = #2/12/1969#: MyNull = Null
  11. MyError = CVErr(32767)
  12. ' True¡BFalse¡BNull¡A¤Î Error ·|¨Ì·Ó±zªº¹q¸£¨t²Îªº¦a°Ï³]©w
  13. ' ¨ÓÅã¥Ü¡C¤é´Áªí¥Üªk·|¥H¤@¯ë¡uµu¦¡¤é´Á¡vªº®æ¦¡Åã¥Ü¡C
  14. Print #1, MyBool, " is a Boolean value"
  15. Print #1, MyDate, " is a date"
  16. Print #1, MyNull, " is a null value"
  17. Print #1, MyError, " is an error value"
  18. Close #1    ' Ãö³¬ÀɮסC
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

PRINT #filenub,,"20150313"

¦h¤F¤@­Ó³rÂI, ®³±¼¤@­ÓÀ³¸Ó´N¦n¤F

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD