Online Reference

Home

Microsoft Reference
Knowledge Developer Database Internet Resource Forum
VBA
Input / Output Function
ดาวน์โหลดคู่มือ

Write # Statement

VBA Statement, เขียนข้อมูลไปที่ไฟล์ Sequential

ไวยากรณ์

Write # filenumber, [outputlist]

ไวยากรณ์ประโยคคำสั่ง Write # มีรายละเอียดส่วนดังนี้

ส่วน รายละเอียด
filenumber บังคับ, เป็นหมายเลขไฟล์
outputlist ไม่บังคับ, เป็น 1 expression หรือมากกว่า ที่แบ่งด้วยเครื่องหมายจุลภาค ของ expression ตัวเลข หรือข้อความ

ลักษณะการประยุกต์

ข้อมูลที่เขียนด้วย Write # มักจะอ่านจากไฟล์ด้วย Input #

ถ้าละ outputlist และรวมเฉพาะรายการที่แยกหลัง filenumber และบรรทัดว่างได้รับการพิมพ์ไปที่ไฟล์ หลาย expression สามารถแยกด้วยช่องว่าง หรือ semicolon ช่องว่างมีผลเหมือนกับ semicolon

เมื่อใช้ Write # เขียนข้อมูลไปที่ไฟล์ มีหลายข้อสมมติสากล เพื่อทำให้ข้อมูลได้รับการอ่าน และแปลอย่างถูกต้อง ด้วยการใช้ Input # โดยไม่พิจารณา locale

  • ข้อมูลตัวเลข เขียนด้วยจุด ในฐานะตัวแบ่งทศนิยม
  • สำหรับข้อมูล Boolean ทั้ง True และ False ได้รับการพิมพ์ คีย์เวิร์ด True และ False ไม่มีการแปล
  • ข้อมูล Date ได้รับการเขียนด้วยการใช้รูปแบบมาตรฐาน short date ที่ระบบของเครื่องที่ใช้รู้จัก เมื่อส่วนวันที่หรือเวลาหายไปหรือเป็นศูนย์ ส่วนที่มีอยู่จะได้รับการเขียนลงสู่ไฟล์
  • ไม่มีการเขียนข้อมูลลงสู่ไฟล์ ถ้าข้อมูลของ outputlist ว่างเปล่า แต่ถ้าข้อมูลของ outputlist เป็น Null ค่า Null จะได้รับการเขียนลงสู่ไฟล์
  • สำหรับข้อมูล Error ที่มีผลลัพธ์ปรากฏเป็นรหัสความผิดพลาด คีย์เวิร์ด Error จะไม่มีการแปล

Write # แตกต่างจาก Print # คือ การแทรกเครื่องหมายจุลภาค แบ่งข้อมูล และเครื่องหมายคำพูดใช้กับข้อความ เมื่อเขียนลงสู่ไฟล์ ไม่ต้องมีการระบุตัวแบ่งรายการ Write # แทรกตัวอักษรบรรทัดใหม่ คือ carriage return – linefeed (Chr(13) + Chr(10)) หลังจากการเขียนตัวอักษรสุดท้ายใน outputlist ไปที่ไฟล์

ดูเพิ่มเติม

Input # Statement, Open Statement, Print # Statement

ตัวอย่าง

ตัวอย่างการใช้ประโยคคำสั่ง Write

' เปิดไฟล์สำหรับผลลัพธ์
Open "TESTFILE" For Output As #1
' เขียนข้อมูลด้วยเครื่องหมายจุลภาค
Write #1, "Hello World", 234
' พิมพ์แถวว่างในไฟล์
Write #1,

' กำหนดค่า boolean, date, null และ error
Dim MyBool, MyDate, MyNull, MyError

MyBool = False: MyDate = #February 12, 2002#: MyNull = Null
MyError = CVErr(32767)

' ข้อมูล Boolean ได้รับการเขียนเป็น #TRUE# หรือ #FALSE#
' Date จะได้รับการด้วยรูปแบบ สากล เช่น #1994-07-13# แสดงวันที่ 13 กรกฎาคม 2537
' ข้อมูล Error ได้รับการเขียนเป็น #Error รหัสความผิดพลาด#
Write #1, MyBool; " is a boolean value"
Write #1, MyDate; " is a date"
Write #1, MyNull; " is a null value"
Write #1, MyError; " is an error value"

' ปิดไฟล์
Close #1