fungsi intersepsi string asp
'******************************************************* *********
'Fungsi: cutStr[str(strlen)]
'Parameter: str, string yang akan diproses, strlen, panjang yang dicegat
'Penulis: Mumu
'Tanggal: 2007/7/12
'Deskripsi: mencegat string dengan panjang tertentu
'Contoh: <%=cutStr("Selamat datang di Alixixi",5)%>
'******************************************************* *********
fungsi potongStr(str,strlen)
Jika str = "" Lalu
cutStr = "pengecualian fungsi cutStr: string kosong"
fungsi keluar
Akhiri Jika
'------------Pemeriksaan panjang sumber
Jika strlen = "" Lalu
cutStr = "pengecualian fungsi cutStr: panjang tidak ditentukan"
fungsi keluar
Akhiri Jika
Jika CInt(strlen) = 0 Maka
cutStr = "pengecualian fungsi cutStr: panjangnya 0"
fungsi keluar
Akhiri Jika
'----------Deteksi panjang karakter sumber
redup l,t,c,i
aku=len(str)
t=0
'----------Loop untuk mencegat karakter
untuk i=1 sampai l
c=Abs(Asc(Tengah(str,i,1)))
'------Tentukan apakah itu karakter Cina
jika c>255 maka
t=t+2
kalau tidak
t=t+1
akhirJika
'------Tentukan apakah panjang yang ditentukan tercapai
jika t>=strlen maka
cutStr=kiri(str,i)&".."
keluar untuk
kalau tidak
potongStr=str
berakhir jika
Berikutnya
cutStr=ganti(cutStr,chr(10),"")
fungsi akhir
''****************************************************** *********
'Fungsi: strlen[str]
'Parameter: str, string yang akan diproses
'Penulis: Mumu
'Tanggal: 2007/7/12
'Keterangan: Tentukan panjang string, panjang karakter Cina adalah 2
'Contoh: <%=strlen("Selamat datang di Alixixi")%>
'******************************************************* *********
Fungsi strlen(str)
redup p_len
p_len=0
strlen=0
jika trim(str)<>"" lalu
p_len=len(potong(str))
untuk xx=1 hingga p_len
jika asc(mid(str,xx,1))<0 maka
strlen=int(strlen) + 2
kalau tidak
strlen=int(strlen) + 1
berakhir jika
Berikutnya
berakhir jika
Fungsi Akhir
Cegat karakter n di sebelah kiri '****************************************** * ******************
'Fungsi: LeftTrue(str,n)
'Parameter: str, string yang akan diproses, n, panjang yang dicegat
'Penulis: Mumu
'Tanggal: 2007/7/12
'Deskripsi: Menampilkan fungsi n karakter di sebelah kiri (pengenalan otomatis karakter Cina).
'Contoh: <%=LeftTrue("Selamat datang di Alixixi",6)%>
'******************************************************* *********
Fungsi LeftTrue(str,n)
Jika len(str)<=n/2 Lalu
KiriBenar=str
Kalau tidak
Redupkan TStr
Redupkan l,t,c
Redupkan saya
aku=len(str)
t=l
TStr=""
t=0
untuk i=1 sampai l
c=asc(tengah(str,i,1))
Jika c<0 maka c=c+65536
Jika c>255 maka
t=t+2
Kalau tidak
t=t+1
Akhiri Jika
Jika t>n Kemudian keluar untuk
TStr=TStr&(tengah(str,i,1))
Berikutnya
Kiri Benar = TStr
Akhiri Jika
Fungsi Akhir
Artikel yang mungkin menarik bagi Anda: