Fungsi panjang teks intersepsi mendukung UTF-8, yang dapat memuaskan sebagian besar teman yang mencegat string. Copy kode kodenya sebagai berikut:
'***************************************
'Mencegat fungsi panjang teks, mendukung UTF-8
'Parameter masukan:
' 1. Isi teks
' 2. Panjang teks maksimum
'***************************************
Fungsi Publik Cut_Title(Judul,TLen)
Redupkan k,i,d,c
ikB
Redupkan Untuk Total
Jika CDbl(TLen) > 0 Maka
k=0
d=StrLen(Judul)
iStr=
ForTotal = Len(Judul)
Untuk i=1 Ke UntukTotal
c=Abs(AscW(Mid(Judul,i,1)))
Jika c>255 Maka
k=k+2
Kalau tidak
k=k+1
Akhiri Jika
iStr=iStr&Pertengahan(Judul,i,1)
Jika CLng(k)>CLng(TLen) Lalu
iStr=iStr..
Keluar Untuk
Akhiri Jika
Berikutnya
Potong_Judul=iStr
Kalau tidak
Potong_Judul=
Akhiri Jika
Fungsi Akhir
'******************************
'Deteksi fungsi panjang teks, mendukung UTF-8
'Parameter masukan:
' 1. Isi teks
'******************************
Fungsi Publik StrLen(strTeks)
Redupkan k,i,c
Redupkan Untuk Total
k=0
UntukTotal = Len(strTeks)
Untuk i=1 Ke UntukTotal
c=Abs(AscW(Tengah(strTeks,i,1)))
Jika c>255 Maka
k=k+2
Kalau tidak
k=k+1
Akhiri Jika
Berikutnya
StrLen=k
Fungsi Akhir