国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

如何用Split將字符串轉換為數組并獲取數組下標值_ASP教程

2024-07-21 02:05:01
字體:
來源:轉載
供稿:網友

推薦:Asp生成13位隨機字符串
html title /title body % Functiongen_key(digits) ’定義并初始化數組 dimchar_array(80) ’初始化數字 Fori=0To9 char_array(i)=CStr(i) Next ’初始化大寫字母 Fori=10To35 char_array(i)=Chr(i+55) Next ’初始化小寫字母 Fori=36To61 char_array(i)=Chr

將數據使用間隔字符串存儲可以減少少寫幾個數據庫字段,也方便以后對擴展數據。

比如:在論壇中用戶的性格有多重性格、樂天達觀、成熟穩重、幼稚調皮、溫柔體貼等等,他們分別對應的值為0、1、2、3、4,在存儲這些數據時使用間隔字符串,將數據存儲到一個文本字段中。數據存儲格式為:0|2|3|4|。

而在使用間隔字符串分隔各項數據時,0|2|3|4|與0|2|3|4在使用Split函數對其進行分隔的時候產生的數組最大下標值是不同的,往往在不注意的時候會在最右側多寫一個間隔字符。這樣在輸出的時候就會多遍歷一個數據,為了避免這種情況的發生,就要對字符串進行檢測。

思路:

1.檢測右側是否存在間隔字符串,如果存在則需要將數組最大下標值減一

2.如果不存在則直接返回原數組最大下標

代碼:

Dim TempStr,TempArr,TempItem
TempStr="第一項1|第二項1|第三項|"
TempArr=Split(TempStr,"|")
Response.Write TempStr&"<br />"
For TempItem=0 To UBoundStrToArr(TempStr,UBound(TempArr),"|")
Response.Write TempArr(TempItem)&"<br />"
Next
’*************************
’函數:UBoundStrToArr
’作用:檢測原字符串轉換為數組的最大下標值
’參數:cCheckStr(需要檢測的字符串)
’ cUBoundArr(生成數組的最大下標值)
’ cSpaceStr(間隔字符串)
’返回:數組的最大下標值
’************************
Public Function UBoundStrToArr(ByVal cCheckStr,ByVal cUBoundArr,ByVal cSpaceStr)
If Instr(cCheckStr,cSpaceStr)=0 Then
UBoundStrToArr=cUBoundArr
Exit Function
End If
Dim TempSpaceStr,UBoundValue
TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1) ’獲取字符串右側間隔字符
If TempSpaceStr=cSpaceStr Then ’如果字符串最右側存在間隔字符,則下標值需要-1
UBoundValue=cUBoundArr-1
Else
UBoundValue=cUBoundArr
End If
UBoundStrToArr=UBoundValue
End Function


分享:ASP+AJAX做類似google的搜索提示
主要要文件有: Index.html實現功能,一個文本框,輸入內容并實現提示 search.asp查詢功能,讓文本框輸入的內容在數據庫中查詢,然后返回給客戶端 conn.asp數據庫連接功能,實現與數據庫相連 xmlhttp.jsAJAX核心部分,用來把客戶端的數據傳給服務端,再把服務端的數據

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 巧家县| 肇庆市| 彭阳县| 迭部县| 大安市| 三都| 寻乌县| 中卫市| 南部县| 巧家县| 白水县| 平遥县| 武冈市| 灵川县| 建始县| 广州市| 衡阳市| 隆安县| 南乐县| 榆社县| 高唐县| 湘阴县| 弥勒县| 西丰县| 新竹县| 仙桃市| 白朗县| 开鲁县| 扶沟县| 崇阳县| 聊城市| 金坛市| 阿坝县| 英超| 临海市| 丰原市| 孝感市| 海伦市| 会宁县| 宝兴县| 丰都县|