1. 字符串函數: Len(str):取得字符串的長度 Instr(str1,str2):從字符串str1,尋找另一個字符串str2第一個出現的位置 Left(str,n):從字符串str左起取n個字符 Right(str,n):從字符串str右起取n個字符 Mid(str1,n1,n2):從字符串第n1個字符開始,取出n2個字符。 2.字符串函數應用: 1)通過字符函數設計出一個字符串長度控制函數: 防止超過行寬字符串換行: <% Function strleft(string,leng) Dim str1 Dim i,j,k j = Len(string) k = 0 For i = 1 To j str1 = Mid(string,i,1) If Asc(str1) > 0 Then k = k + 1 Else k = k + 2 End If If k > leng Then strLeft = Left(string,i) & "..." Exit For Else strLeft = string End If Next End Function %> 2)通過字符串函數檢測輸出是否為電子郵件地址: <% Function EMAIL(string) Dim str1 Dim i,j,k,l j = Len(string) k = 0 for i = 1 to j str1=Mid(string,i,1) if str1 = "@" then k = k + 1 l = i end if next str2 = Mid(string,l+1,1) if (k=1) And ((str2>="a") And (str2<="z")) or ((str2>="A") And (str2<="Z")) then EMAIL = string else EMAIL = "miss!" end if End Function %> 此檢測函數并不充分,并沒有檢測".",如有興趣請補充。
|