คอลัมน์

คุณสมบัติคอลัมน์ของ'TextStream ส่งกลับตำแหน่งของอักขระที่ปัจจุบัน

หมายเหตุ : คุณสมบัตินี้ถือเป็นจุดเริ่มต้นของตัวอักษร 1 บรรทัดที่
เพื่อให้ได้จำนวนของตัวอักษรปัจจุบันในสายที่มีความจำเป็นในการปฏิบัติดำเนินการลบจาก -1 ถึงผลที่ผลิตโดยสถานที่ให้บริการตามธรรมชาตินี้

ลองมาตัวอย่างเช่น
สมมติว่าคุณมีแฟ้มข้อความ (C : \ test.txt) ที่มีเนื้อหาดังต่อไปนี้

 



 สวัสดีชื่อของคุณคืออะไร

 

 สลัว FS,, t, x, y









 'ฉันสร้างตัวอย่างของ FSO ที่







 การตั้งค่า FS = Server.CreateObject ("Scripting.FileSystemObject")

 







 'ฉันเปิดแฟ้มในโหมดอ่าน







 การตั้งค่า T = fs.OpenTextFile ("C : \ test.txt", 1, เท็จ)









 'ฉันสร้างห่วงที่จะหยุดที่จุดสิ้นสุดของแฟ้มที่







 ทำในขณะที่ t.AtEndOfStream <> จริง



  



 x = t.Read (1)



  



 y - 1 = t.Column







 ห่วง









 'ฉันปิดทุกอย่าง







 t.Close







 การตั้งค่า T = ไม่มีอะไร







 การตั้งค่า FS = ไม่มีอะไร









 'พิมพ์ไปยังวิดีโอ

 





 Output :

 
 



 ตัวอักษรตัวสุดท้ายในแฟ้มข้อความเป็น :?







 ตำแหน่งของอักขระ : 20