ฟังก์ชันความยาวข้อความสกัดกั้นรองรับ UTF-8 ซึ่งสามารถตอบสนองเพื่อนส่วนใหญ่ที่สกัดกั้นสตริงได้ คัดลอกรหัสรหัสดังต่อไปนี้:
-
'ฟังก์ชั่นตัดความยาวข้อความรองรับ UTF-8
'พารามิเตอร์อินพุต:
' 1. เนื้อหาข้อความ
' 2. ความยาวข้อความสูงสุด
-
ฟังก์ชั่นสาธารณะ Cut_Title (ชื่อเรื่อง, TLen)
ดิม k,i,d,c
ไอบี
สลัว ForTotal
ถ้า CDbl(TLen) > 0 แล้ว
เค=0
d=StrLen(หัวเรื่อง)
iStr=
ForTotal = Len(หัวเรื่อง)
สำหรับ i=1 ถึง ForTotal
c=Abs(AscW(กลาง(หัวข้อ,i,1)))
ถ้า c>255 แล้ว
เค=เค+2
อื่น
เค=เค+1
สิ้นสุดถ้า
iStr=iStr&Mid(หัวเรื่อง,i,1)
ถ้า CLng(k)>CLng(TLen) แล้ว
iStr=ไอสเตร..
ออกเพื่อ
สิ้นสุดถ้า
ต่อไป
Cut_Title=iStr
อื่น
Cut_Title=
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ฟังก์ชั่นตรวจจับความยาวข้อความรองรับ UTF-8
'พารามิเตอร์อินพุต:
' 1. เนื้อหาข้อความ
-
ฟังก์ชั่นสาธารณะ StrLen(strText)
ดิม เค,ไอ,ซี
สลัว ForTotal
เค=0
ForTotal = Len(strText)
สำหรับ i=1 ถึง ForTotal
c=Abs(AscW(กลาง(strText,i,1)))
ถ้า c>255 แล้ว
เค=เค+2
อื่น
เค=เค+1
สิ้นสุดถ้า
ต่อไป
StrLen=k
ฟังก์ชันสิ้นสุด