Kelas penting kedua adalah untuk konversi tipe. Nama kelasnya adalah Con_Convert, yang dipakai di awal kode halaman. Nama objeknya adalah Konversi, yang meminjam nama objek konversi tipe .net konversi tipe. Penggunaan fungsi konversi tipe secara langsung akan menyebabkan program melaporkan kesalahan karena variabel kosong atau formatnya salah, dan kesalahan ini diperbolehkan dalam banyak kasus, misalnya jika Anda ingin mengonversi variabel string menjadi a nomor, jika variabelnya kosong, Anda biasanya perlu Mengembalikan 0 secara otomatis.
Fungsi penting lainnya adalah untuk merangkum operasi pemformatan variabel, yang dapat menjaga keseragaman format keluaran seluruh situs web, seperti format waktu, format mata uang, dll. Saat memformat tanggal dan mata uang, sangat mudah untuk menemukan kesalahan karena nilai nol. Secara umum, saya harus menulis logika untuk menilai terlebih dahulu nilai nol dan kemudian memformat variabel. Setelah menggunakan kelas ini untuk bertanggung jawab atas konversi tipe dan keluaran yang diformat, saya tidak perlu khawatir tentang detail sepele ini, yang bisa sangat signifikan. meningkatkan mood pemrograman saya.
Ada juga fungsi pemformatan lain yang ditambahkan, seperti Convert.ToPer() digunakan untuk mengubah angka menjadi persentase, Convert.FirstUppercase() digunakan untuk menggunakan huruf besar pada huruf pertama... Bisa sesuai kebutuhan sendiri, Feel bebas untuk memperpanjang kelas ini dan jangan lupa untuk membagikannya kepada semua orang.
Beberapa fungsi dasar dapat digunakan dengan santai jika ditulis dengan santai, tetapi ketika menghadapi keadaan khusus, fungsi tersebut perlu ditulis ulang. Misalnya, metode Convert.ToInt() yang saya tulis mengubah variabel menjadi Integer kosong. Jika tidak, gunakan saja Cint(). Tetapi ketika suatu variabel melebihi rentang, Anda harus menentukan apakah variabel tersebut berada dalam rentang Integer, jadi saya menulis metode pribadi IsOverflowInteger() untuk menentukan apakah nilai variabel adalah angka dalam rentang tertentu. Setelah pemrosesan tersebut, saya yakin itu pada dasarnya dapat menangani semua situasi.
Jadi menurut saya masih banyak metode yang ada di kelas Convert yang perlu diperbaiki. Jika Anda memiliki fungsi yang lebih baik dan lebih lengkap, silakan bagikan agar bisa menjadi kelas pemrosesan variabel paling standar di ASP dan tidak perlu lagi. bergantung pada mereka.Fungsi-fungsi terbatas di ASP.
Beberapa metode yang lebih penting tercantum di bawah ini. Silakan lihat kode untuk detail spesifiknya.
Ketik penilaian:
Convert.IsInteger(ByVal Value) menentukan apakah itu bilangan bulat, hanya tanda 0~9 dan - yang diperbolehkan
Convert.IsInt(ByVal Value) menentukan apakah itu bertipe int. Ini mirip dengan yang berikut ini dan tidak perlu dijelaskan.
Konversi.IsLng(Nilai ByVal)
Konversi.IsDesimal (Nilai ByVal)
Konversi.IsSng(Nilai ByVal)
Konversi.IsDbl(Nilai ByVal)
Konversi.IsCur(Nilai ByVal)
Konversi.IsBln(Nilai ByVal)
Konversi.IsDat(Nilai ByVal)
Konversi.IsArr(Nilai ByVal)
Ketik konversi:
Konversi.ToStr(Nilai ByVal)
Konversi.ToInt(Nilai ByVal)
Konversi.ToLng(Nilai ByVal)
Konversi.ToSng(Nilai ByVal)
Konversi.ToDbl(Nilai ByVal)
Konversi.ToBln(Nilai ByVal)
Konversi.ToCur(Nilai ByVal)
Konversi.ToDat(Nilai ByVal)
format:
Konversi format tanggal.FormatDat(Nilai ByVal, ByVal vStyle).
Konversikan.FormatCur(Nilai ByVal,ByVal vDecimal) format mata uang
Konversi.FormatNum(Nilai ByVal,ByVal vDecimal) Pemformatan angka
Pemformatan lainnya:
Convert.ToPer(nilai Byval,Nilai byval0) Persentase, dengan %
Convert.FirstUppercase(ByVal value) Gunakan huruf besar pada huruf pertama
Convert.SafeSql (nilai ByVal) menggantikan 'untuk' di sql
Kodenya adalah sebagai berikut: (Saya tidak tahu cara memasukkan kode, dan saya tidak tahu cara kerja CSDN. Saat Anda mengklik untuk memasukkan kode, itu adalah <textarea>, bukan gaya pelipatan kode. Silakan bertanya teman yang mengetahuinya untuk meminta nasihat.)
Copy kode kodenya sebagai berikut:
Kelas Con_Convert
'******pesan global
pribadi i,j,nilai0,nilai1,nilai2
Sub Kelas Pribadi_Inisialisasi
Akhiri Sub
Sub Kelas Pribadi_Terminate
Akhiri Sub
' ===== ==============
' Periksa Jenis, Kembalikan benar/salah
' ===== ==============
Fungsi Publik IsStr(Nilai ByVal)
IsStr=benar
Fungsi Akhir
'****** periksa string apakah Integer
Fungsi Publik IsInteger (Nilai ByVal)
jika Trim(Nilai)= atau IsNull(Nilai) atau IsEmpty(Nilai) maka
IsInteger=salah
kalau tidak
IsInteger = Benar
nilai0=Potong(Nilai)
Untuk i = 1 Ke len(nilai0)
Jika Asc(Mid(nilai0, i, 1))>= Asc(0) dan Asc(Mid(nilai0, i, 1)) <= Asc(9) Maka
Kalau tidak
jika Asc(Mid(nilai0, i, 1))= Asc(-) dan i=1 maka
kalau tidak
IsInteger = salah
Keluar Untuk
berakhir jika
Akhiri Jika
Berikutnya
berakhir jika
Fungsi Akhir
'****** periksa apakah Nilai berada dalam kisaran bilangan bulat
'Hanya gunakan di kelas ini
' Nilai:
' vBound : maks
Fungsi Pribadi IsOverflowInteger (Nilai ByVal, ByVal vBound)
jika IsInteger(Nilai) dan IsInteger(vBound) maka
IsOverflowInteger=salah
nilai0=trim(nilai)
nilai1=trim(vBound)
jika IsOverflowInteger=salah maka
'hapus 0 dari kiri
lakukan sambil ( kiri(nilai0,1)=0 atau kiri(nilai0,1)=- )
nilai0=kanan(nilai0,len(nilai0)-1)
lingkaran
lakukan sambil ( kiri(nilai1,1)=0 atau kiri(nilai1,1)=- )
nilai1=kanan(nilai1,len(nilai1)-1)
lingkaran
jika len(nilai0)=len(nilai1) maka
untuk i=1 hingga len(nilai0)
jika Asc(mid(nilai0,i,1)) > Asc(mid(nilai1,i,1)) atau Asc(mid(nilai0,i,1)) > Asc(9) atau Asc(mid(nilai0,i, 1)) < Asc(0) lalu
IsOverflowInteger=benar
keluar untuk
berakhir jika
Berikutnya
kalau tidak
jika len(nilai0)>len(nilai1) maka
IsOverflowInteger=benar
berakhir jika
berakhir jika
berakhir jika
kalau tidak
IsOverflowInteger=benar
berakhir jika
Fungsi Akhir
Fungsi Publik IsInt (Nilai ByVal)
IsInt=benar
jika kiri(trim(nilai),1)=- maka
jika IsOverflowInteger(trim(nilai),-32768) lalu
IsInt=salah
berakhir jika
kalau tidak
jika IsOverflowInteger(trim(nilai),32767) lalu
IsInt=salah
berakhir jika
berakhir jika
fungsi akhir
Fungsi Publik IsLng (Nilai ByVal)
IsLng=benar
jika kiri(trim(nilai),1)=- maka
jika IsOverflowInteger(trim(nilai),-2147483648) maka
IsLng=salah
berakhir jika
kalau tidak
jika IsOverflowInteger(trim(nilai),2147483647) maka
IsLng=salah
berakhir jika
berakhir jika
Fungsi Akhir
'*********************************************
'Desimal
'*********************************************
'****** periksa string apakah Desimal
Fungsi Pribadi IsDesimal (Nilai ByVal)
redupkan intDecimalCount
intJumlah Desimal=0
jika Trim(Nilai)= atau IsNull(Nilai) atau IsEmpty(Nilai) maka
IsDesimal=salah
kalau tidak
IsDesimal = Benar
nilai0=Potong(Nilai)
Untuk i = 1 Ke len(nilai0)
Jika Asc(Mid(nilai0, i, 1))>= Asc(0) dan Asc(Mid(nilai0, i, 1)) <= Asc(9) Maka
Kalau tidak
pilih kasus Asc(Mid(nilai0, i, 1))
kasus Asc(-)
jika i=1 maka
kalau tidak
IsDesimal = salah
Keluar Untuk
berakhir jika
kasus Asc(.)
jika intDecimalCount<2 maka
intDecimalCount=intDecimalCount + 1
kalau tidak
IsDesimal = salah
Keluar Untuk
berakhir jika
kasus lain
IsDesimal = salah
Keluar Untuk
akhir pilih
Akhiri Jika
Berikutnya
berakhir jika
Fungsi Akhir
'****** periksa apakah Nilai berada dalam kisaran Desimal
'Hanya gunakan di kelas ini
' Nilai:
'terikat:
Fungsi Pribadi IsOverflowDecimal (Nilai ByVal, ByVal vBound)
jika Trim(Value)= atau IsNull(Value) atau IsEmpty(Value) atau Trim(vBound)= atau IsNull(vBound) atau IsEmpty(vBound) maka
IsOverflowDecimal=benar
kalau tidak
berakhir jika
Fungsi Akhir
Fungsi Publik IsSng (Nilai ByVal)
IsSng=IsDesimal(nilai)
' -340282300000000000000000000000000000000 ~ -0,00000000000000000000000000000000000000000000001401298
' 0,000000000000000000000000000000000000000000001401298 ~ 340282300000000000000000000000000000000
' -3.402823 E38 ~ -1.401298 E-45
' 1.401298 E-45 ~ 3.402823 E38
Fungsi Akhir
Fungsi Publik IsDbl (Nilai ByVal)
IsDbl=IsDesimal(nilai)
' -1.79769313486232 E308 ~ -4.94065645841247 E-324
' 4.94065645841247 E-324 ~ 1.7976931348623 E308
Fungsi Akhir
Fungsi Publik IsCur (Nilai ByVal)
IsCur=IsDesimal(nilai)
'-922337203685477.5808 ~ 922337203685477.5807
Fungsi Akhir
Fungsi Publik IsBln(Nilai ByVal)
jika Nilai=benar atau Nilai=salah atau trim(Nilai)=1 atau trim(Nilai)=0 maka
IsBln=benar
kalau tidak
IsBln=salah
berakhir jika
Fungsi Akhir
Fungsi Publik IsDat (Nilai ByVal)
jika Trim(Nilai)= atau IsNull(Nilai) atau IsEmpty(Nilai) maka
IsDat=salah
kalau tidak
IsDat=IsDate(Nilai)
berakhir jika
Fungsi Akhir
Fungsi Publik IsArr(Nilai ByVal)
jika Trim(Nilai)= atau IsNull(Nilai) atau IsEmpty(Nilai) maka
IsArr=salah
kalau tidak
IsArr=IsArray(Nilai)
berakhir jika
Fungsi Akhir
' ===== ==============
'Jenis Konversi, Nilai kembalian/nilai awal
' ===== ==============
Fungsi Publik ToStr (Nilai ByVal)
ToStr=trim(Nilai)
Fungsi Akhir
Fungsi Publik ToInt (Nilai ByVal)
jika IsInt(Nilai) maka
ToInt=Cint(Nilai)
kalau tidak
KeInt=0
berakhir jika
Fungsi Akhir
Fungsi Publik ToLng (Nilai ByVal)
jika IsLng(Nilai) maka
ToLng=clng(Nilai)
kalau tidak
ToLng=0
berakhir jika
Fungsi Akhir
Fungsi Publik ToSng (Nilai ByVal)
jika IsSng(Nilai) maka
ToSng=cSng(Nilai)
kalau tidak
KeSng=0
berakhir jika
Fungsi Akhir
Fungsi Publik ToDbl (Nilai ByVal)
jika IsDbl(Nilai) maka
ToDbl=cDbl(Nilai)
kalau tidak
KeDbl=0
berakhir jika
Fungsi Akhir
Fungsi Publik ToBln(Nilai ByVal)
jika IsBln(Nilai) maka
ToBln=cbool(Nilai)
kalau tidak
ToBln=salah
berakhir jika
Fungsi Akhir
'****** vDecimal : jumlah tempat desimal
Fungsi Publik ToCur (Nilai ByVal)
jika IsCur(Nilai) maka
ToCur=tjadi(Nilai)
kalau tidak
KeCur=0
berakhir jika
Fungsi Akhir
'****** vType: format tanggal
Fungsi Publik ToDat (Nilai ByVal)
jika IsDat(Nilai) maka
ToDat=tanggal c(nilai)
kalau tidak
Hari ini=
berakhir jika
Fungsi Akhir
' ===== ==============
'Format
' ===== ==============
'******************************************************* ***
'FormatDat
'vtanggal
'vStyle 0:2008-1-30 1:2008/1/30 2:1/30/2008 3:30/1/2008 4:30-JAN-2008
' 10:2008-1 11:2008/1 12:1/2008
'22:JAN-2008
'30:2008-1-30 11:20:20
'40:09-01-2008
FormatDat Fungsi Publik (Nilai ByVal, ByVal vStyle)
redupkan tanggalIni,intStyle
dateThis=ToDat(Nilai)
intStyle=KeInt(vStyle)
jika tanggalIni= atau isnull(tanggalIni) maka
FormatDat =
kalau tidak
Redupkan arrMonthArray(12)
arrMonthArray(1)=JAN
arrMonthArray(2)=FEB
arrMonthArray(3)=MAR
arrMonthArray(4)=APR
arrMonthArray(5)=MEI
arrMonthArray(6)=JUN
arrMonthArray(7)=JUL
arrMonthArray(8)=AUG
arrMonthArray(9)=SEP
arrMonthArray(10)=OKT
arrMonthArray(11)=NOV
arrMonthArray(12)=DES
pilih kasus intStyle
kasus 1
FormatDat=cstr(tahun(tanggalIni)) &/& cstr(bulan(tanggalIni)) &/& cstr(hari(tanggalIni))
kasus 2
FormatDat= cstr(bulan(tanggalIni)) &/& cstr(hari(tanggalIni)) &/& cstr(tahun(tanggalIni))
kasus 3
FormatDat= cstr(hari(tanggalIni)) &/& cstr(bulan(tanggalIni)) &/& cstr(tahun(tanggalIni))
kasus 4
FormatDat= cstr(hari(tanggalIni)) &-& arrMonthArray(bulan(tanggalIni)) &-& cstr(tahun(tanggalIni))
kasus 10
FormatDat=cstr(tahun(tanggalIni)) &-& cstr(bulan(tanggalIni))
kasus 11
FormatDat=cstr(tahun(tanggalIni)) &/& cstr(bulan(tanggalIni))
kasus 12
FormatDat= cstr(bulan(tanggalIni)) &/& cstr(tahun(tanggalIni))
kasus 22
FormatDat= arrMonthArray(bulan(tanggalIni)) &-& cstr(tahun(tanggalIni))
kasus 30
FormatDat= cstr(tahun(tanggalIni)) &-& cstr(bulan(tanggalIni)) &-& cstr(hari(tanggalIni)) & & jam(tanggalIni) &:& menit(tanggalIni) &:& detik(tanggalIni)
kasus 40
FormatDat=cstr(tahun(tanggalIni)) &-& ZeroPad(cstr(bulan(tanggalIni)),2) &-& ZeroPad(cstr(hari(tanggalIni)),2)
kasus lain
FormatDat=cstr(tahun(tanggalIni)) &-& cstr(bulan(tanggalIni)) &-& cstr(hari(tanggalIni))
akhir pilih
berakhir jika
Fungsi Akhir
'******************
'Format Cur
'******************
FormatCur Fungsi Publik (Nilai ByVal, ByVal vDecimal)
FormatCur=Formatmata uang(ToCur(Nilai),ToInt(vDesimal))
Fungsi Akhir
FormatNum Fungsi Publik (Nilai ByVal, ByVal vDecimal)
FormatNum=FormatNumber(ToDbl(Nilai),ToInt(vDesimal))
Fungsi Akhir
' ===== ==============
'format lain
' ===== ==============
Fungsi Publik ToPer (nilai Byval, nilai Byval0)
jika Convert.ToDbl(nilai0)<>0 lalu
ToPer = me.FormatNum( Convert.ToDbl(nilai) / Convert.ToDbl(nilai0) * 100,2 ) & %
kalau tidak
ToPer = 0,00%
berakhir jika
Fungsi Akhir
'****** value -> Nilai kode pertama diubah menjadi huruf besar
Fungsi Publik FirstUppercase (nilai ByVal)
nilai0 = potong(nilai)
jika len(nilai0)=0 maka
Huruf Besar Pertama=
kalau tidak
Huruf Besar Pertama = UCase(kiri(nilai0,1)) & kanan(nilai0,len(nilai0)-1)
berakhir jika
Fungsi Akhir
SafeSql Fungsi Publik (nilai ByVal)
SafeSql = ganti(nilai,','')
Fungsi Akhir
Kelas Akhir