ฟังก์ชัน 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 ในโมดูลมาตรฐาน คําสั่ง Type อาจเป็น สาธารณะ

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.

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