Saat menggunakan ASP untuk memproses teks. Fungsi deteksi panjang string yang disertakan dengan sistem terkadang tidak terlalu berguna. Misalnya, karakter Cina hanya akan dihitung sebagai satu byte. Jika semuanya adalah karakter Cina selama penyusunan huruf, mudah untuk mengatakan bahwa tidak ada perbedaan, namun jika string yang akan dimanipulasi berisi karakter Cina dan huruf Inggris, itu akan merepotkan. Tiga fungsi berikut dapat Menggantikan fungsi terkait yang disertakan dengan ASP.
Ada juga yang perlu diperhatikan, jika digunakan dalam sebuah loop, invarian i juga merupakan variabel yang biasa digunakan dalam loop. Ketika fungsi berikut dijalankan, nilai i akan berubah itu, akan muncul nilai yang tidak diketahui. Jika hasilnya ditemukan, silakan gunakan nama variabel lain.
Penggunaan berikut ini sama dengan len(), kiri(), kanan().
kode program
Copy kode kodenya sebagai berikut:
FungsiStrpanjang(Str)
Temp_Str=Len(Str)
Untuk I=1 Ke Temp_Str
Test_Str=(Pertengahan(Str,I,1))
Jika Asc(Test_Str)>0 Lalu
Panjang Str=Panjang Str+1
Kalau tidak
Panjang Str=Panjang Str+2
Akhiri Jika
Berikutnya
Fungsi Akhir
Fungsi Strkiri(Str,L)
Temp_Str=Len(Str)
Untuk I=1 Ke Temp_Str
Test_Str=(Pertengahan(Str,I,1))
Strkiri=Strkiri&Uji_Str
Jika Asc(Test_Str)>0 Lalu
lensa=lensa+1
Kalau tidak
lensa=lensa+2
Akhiri Jika
Jika lensa>=L Kemudian Keluar Untuk
Berikutnya
Fungsi Akhir
FungsiStrkanan(Str,L)
Temp_Str=Len(Str)
Untuk i = Temp_Str ke 1 langkah -1
Test_Str=(Pertengahan(Str,I,1))
Strkanan=Uji_Str&Strkanan
Jika Asc(Test_Str)>0 Lalu
lensa=lensa+1
Kalau tidak
lensa=lensa+2
Akhiri Jika
Jika lensa>=L Lalu Keluar Untuk
Berikutnya
Fungsi Akhir