Comment utiliser Split pour convertir une chaîne en tableau et obtenir le didacticiel value_ASP de l'indice du tableau

Recommandé : Asp génère une chaîne aléatoire de 13 chiffres
html title /title body % Functiongen_key(digits) 'Définir et initialiser le tableau dimchar_array(80) 'Initialiser les nombres Fori=0To9 char_array(i)=CStr(i) Next 'Initialiser les lettres majuscules Fori=10To35 char_array(i)= Chr(i +55) Next 'Initialiser les lettres minuscules Fori=36To61 char_array(i)=Chr

Par exemple : dans le forum, la personnalité de l'utilisateur a plusieurs personnalités, optimiste, mature, naïve, coquine, douce et prévenante, etc. Leurs valeurs correspondantes sont respectivement 0, 1, 2, 3, 4. Utilisez des caractères d'espacement lors du stockage. ces données. Chaîne pour stocker les données dans un champ de texte. Le format de stockage des données est : 0|2|3|4|.

Lorsque vous utilisez des chaînes d'intervalle pour séparer diverses données, la valeur d'indice maximale du tableau généré lorsque 0|2|3|4| et 0|2|3|4 sont séparés à l'aide de la fonction Split est souvent différente si vous ne payez pas. attention, un espace supplémentaire sera inscrit à l'extrême droite. De cette façon, une donnée supplémentaire sera parcourue lors de la sortie. Afin d'éviter cette situation, la chaîne doit être détectée.

Idée:

1. Vérifiez s'il y a une chaîne d'espacement sur le côté droit. Si elle existe, vous devez réduire la valeur d'indice maximale du tableau de un.

2. S'il n'existe pas, renvoyez directement l'indice maximum du tableau d'origine.

Code:

DimTempStr, TempArr, TempItem

TempStr=Premier élément 1|Deuxième élément 1|Troisième élément|

TempArr=Split(TempStr,|)

Réponse.WriteTempStr&<br/>

ForTempItem=0ToUBoundStrToArr(TempStr,UBound(TempArr),|)

Réponse.WriteTempArr(TempItem)&<br/>

Suivant

'************************

'Fonction :UBoundStrToArr

'Fonction : détecte la valeur d'indice maximale de la chaîne d'origine convertie en tableau

'Paramètre : cCheckStr (chaîne à détecter)

'cUBoundArr (génère la valeur d'indice maximale du tableau)

'cSpaceStr (chaîne d'espacement)

'Return : la valeur d'indice maximale du tableau

'************************

PublicFunctionUBoundStrToArr(ByValcCheckStr,ByValcUBoundArr,ByValcSpaceStr)

IfInstr(cCheckStr,cSpaceStr)=0Alors

UBoundStrToArr=cUBoundArr

Fonction de sortie

FinSi

DimTempSpaceStr,UBoundValue

TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1)' Obtenez le caractère espace sur le côté droit de la chaîne

IfTempSpaceStr=cSpaceStrThen'S'il y a un espace à l'extrême droite de la chaîne, la valeur de l'indice doit être -1

UBoundValue=cUBoundArr-1

Autre

UBoundValue=cUBoundArr

FinSi

UBoundStrToArr=UBoundValue

FinFonction

Partager : ASP+AJAX crée des invites de recherche similaires à celles de Google
Les fichiers principaux sont : Index.html implémente la fonction, une zone de texte, saisit le contenu et implémente la fonction de requête prompt search.asp, permet au contenu saisi dans la zone de texte d'être interrogé dans la base de données, puis le renvoie au client. Fonction de connexion à la base de données conn.asp à implémenter La partie centrale de xmlhttp.jsAJAX est connectée à la base de données et est utilisée pour transférer les données client vers le serveur, puis transférer les données du serveur vers le serveur.