ฟังก์ชัน Len

ส่งกลับ ยาว ที่มีจำนวนอักขระในสตริงหรือจำนวนไบต์ที่จำเป็นในการจัดเก็บตัวแปร

ไวยากรณ์

Len(string* | *varname)

ไวยากรณ์ของฟังก์ชัน Len มีอาร์กิวเมนต์ดังนี้

อาร์กิวเมนต์	คำอธิบาย
สตริง	นิพจน์สตริงที่ถูกต้องใดก็ได้ ถ้า สตริง มีค่า Null จะส่งกลับค่า Null
varname	ชื่อตัวแปรที่ถูกต้องใดๆ ถ้า varname มี Null จะส่งกลับค่า Null ถ้า varname เป็นตัวแปร Len จะถือว่าเป็นตัวแปรเช่นเดียวกับ สตริง และจะส่งกลับจํานวนอักขระที่มีอยู่เสมอ

ข้อสังเกต

ต้องระบุอาร์กิวเมนต์ที่เป็นไปได้หนึ่ง (และเพียงหนึ่ง) จากสองอาร์กิวเมนต์ที่เป็นไปได้ ด้วยชนิดที่ผู้ใช้กําหนด Len จะส่งกลับขนาดตามที่จะถูกเขียนลงในไฟล์

ตัวอย่างคิวรี

นิพจน์	ผลลัพธ์
SELECT ProductID, Len(ProductID) AS ProductLen FROM ProductSales;	ส่งกลับค่าจากเขตข้อมูล "ProductID" และความยาวของค่าเหล่านั้นในคอลัมน์ ProductLen

ตัวอย่าง VBA

ตัวอย่างแรกใช้ Len เพื่อส่งกลับจํานวนอักขระในสตริงหรือจํานวนไบต์ที่จําเป็นในการจัดเก็บตัวแปร ประเภท... การกําหนดบล็อก CustomerRecord End Type จะต้องนําหน้าด้วยคําสําคัญ Private ถ้าปรากฏในคลาสมอดูล ในมอดูลมาตรฐาน คําสั่ง Type สามารถเป็น Public ได้

Type CustomerRecord    ' Define user-defined type.
    ID As Integer    ' Place this definition in a 
    Name As String * 10    ' standard module.
    Address As String * 30
End Type
Dim Customer As CustomerRecord    ' Declare variables.
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World"    ' Initialize variable.
MyLen = Len(MyInt)    ' Returns 2.
MyLen = Len(Customer)    ' Returns 42.
MyLen = Len(MyString)    ' Returns 11.
MyLen = Len(MyCur)    ' Returns 8.

ตัวอย่างที่สองใช้ LenB และฟังก์ชันที่ผู้ใช้กําหนดเอง (LenMbcs) เพื่อคืนค่าจํานวนอักขระไบต์ในสตริง ถ้าใช้ ANSI แทนสตริง

Function LenMbcs (ByVal str as String)
    LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Dim MyString, MyLen
MyString = "ABc"
' Where "A" and "B" are DBCS and "c" is SBCS.
MyLen = Len(MyString)
' Returns 3 - 3 characters in the string.
MyLen = LenB(MyString)
' Returns 6 - 6 bytes used for Unicode.
MyLen = LenMbcs(MyString)
' Returns 5 - 5 bytes used for ANSI.

ฟังก์ชันสตริงและวิธีใช้