ฟังก์ชั่นการสกัดกั้นสตริง asp
'************************************************ * *********
'ฟังก์ชัน: cutStr[str(strlen)]
'พารามิเตอร์: str, สตริงที่จะประมวลผล, strlen, ความยาวที่สกัดกั้น
'ผู้เขียน: มูมู
วันที่: 7/2007/2550
'คำอธิบาย: ตัดสตริงที่มีความยาวที่ระบุ
'ตัวอย่าง: <%=cutStr("ยินดีต้อนรับสู่ Alixixi",5)%>
'************************************************ * *********
ฟังก์ชั่น cutStr (str, strlen)
ถ้า str = "" แล้ว
cutStr = "ข้อยกเว้นฟังก์ชัน cutStr: สตริงว่างเปล่า"
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
'------------ การตรวจสอบความยาวแหล่งที่มา
ถ้า strlen = "" แล้ว
cutStr = "ข้อยกเว้นฟังก์ชัน cutStr: ไม่ได้ระบุความยาว"
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
ถ้า CInt(strlen) = 0 แล้ว
cutStr = "ข้อยกเว้นฟังก์ชัน cutStr: ความยาวคือ 0"
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
'----------ตรวจสอบความยาวอักขระต้นฉบับ
สลัว l,t,c,i
l=เลน(str)
เสื้อ=0
'----------วนซ้ำเพื่อสกัดกั้นอักขระ
สำหรับ i=1 ถึง l
c=Abs(Asc(กลาง(str,i,1)))
'------ ตรวจสอบว่าเป็นตัวอักษรจีนหรือไม่
ถ้า c>255 แล้ว
เสื้อ=t+2
อื่น
เสื้อ=t+1
สิ้นสุดถ้า
'------ ตรวจสอบว่าถึงความยาวที่ระบุหรือไม่
ถ้า t>=strlen แล้ว
cutStr=ซ้าย(str,i)&".."
ออกเพื่อ
อื่น
ตัดStr=str
สิ้นสุดถ้า
ต่อไป
cutStr=แทนที่(cutStr,chr(10),"")
ฟังก์ชั่นสิ้นสุด
''************************************************ *********
'ฟังก์ชัน: strlen[str]
'พารามิเตอร์: str, สตริงที่จะประมวลผล'
'ผู้เขียน: มูมู
วันที่: 7/2007/2550
'คำอธิบาย: กำหนดความยาวของสตริง ความยาวของตัวอักษรจีนคือ 2'
'ตัวอย่าง: <%=strlen("ยินดีต้อนรับสู่ Alixixi")%>
'************************************************ * *********
ฟังก์ชัน strlen(str)
p_len สลัว
p_len=0
สเตรน=0
ถ้า trim(str)<>"" แล้ว
p_len=len(ตัดแต่ง(str))
สำหรับ xx=1 ถึง p_len
ถ้า asc(mid(str,xx,1))<0 แล้ว
strlen=int(strlen) + 2
อื่น
strlen=int(strlen) + 1
สิ้นสุดถ้า
ต่อไป
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
ตัดอักขระ n ทางด้านซ้าย '****************************************** * ******************
'ฟังก์ชัน: LeftTrue(str,n)
'พารามิเตอร์: str, สตริงที่จะประมวลผล, n, ความยาวที่สกัดกั้น
'ผู้เขียน: มูมู
วันที่: 7/2007/2550
'คำอธิบาย: แสดงฟังก์ชัน n ตัวอักษรทางด้านซ้าย (การจดจำตัวอักษรจีนอัตโนมัติ)
'ตัวอย่าง: <%=LeftTrue("ยินดีต้อนรับสู่ Alixixi",6)%>
'************************************************ * *********
ฟังก์ชัน LeftTrue(str,n)
ถ้า len(str)<=n/2 แล้ว
ซ้ายจริง=str
อื่น
ติ่ม TTR
สลัว l,t,c
ดิม ไอ
l=เลน(str)
เสื้อ=ล
TStr=""
เสื้อ=0
สำหรับ i=1 ถึง l
c=asc(กลาง(str,i,1))
ถ้า c<0 แล้ว c=c+65536
ถ้า c>255 แล้ว
เสื้อ=t+2
อื่น
เสื้อ=t+1
สิ้นสุดถ้า
ถ้า t>n ให้ออกเพื่อ
TStr=TStr&(กลาง(str,i,1))
ต่อไป
ซ้ายจริง = TStr
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
บทความที่คุณอาจสนใจ: