INFORMATIQUE

SPLIT : Traitement d'une chaîne de caractère	Aéronautique	Astronomie	Géologie	Météorologie	Végétaux
	Animaux	Biologie Santé	Informatique	Paléontologie
	Archéologie	Chimie	Mathématiques	Physique

Le mot clé split : Il vous permet de récupérer des mots dans une chaîne de caractères.

Split(Expression, Delimiter, Count, Compare) The Split function separates a string into substrings and creates a one-dimensional array where each substring is an element. There is one mandatory argument. Expression The Expression argument is a string expression. Code: <% mystring = "How now brown cow?" %> <% myarray = Split(mystring) %> <% =myarray(0) %> <% =myarray(1) %> <% =myarray(2) %> <% =myarray(3) %> Output: How now brown cow? There are three optional arguments. Delimiter The optional Delimiter argument specifies the characters (including blanks) you wish to use to separate the expression. The default is a single empty space, " ". Code: <% mystring = "How now brown cow?" %> <% myarray = Split(mystring, "ow") %> <% =myarray(0) %> <% =myarray(1) %> <% =myarray(2) %> <% =myarray(3) %> <% =myarray(4) %> Output: H n br n c ? Count The optional Count argument specifies the number of elements to return. Code: <% mystring = "How now brown cow?" %> <% myarray = Split(mystring, " ", 2) %> <% =myarray(0) %> <% =myarray(1) %> Output: How now brown cow? Compare The optional Compare argument must only use the constant or value of the COMPARISON CONSTANTS. CONSTANT VALUE DESCRIPTION VBBinaryCompare 0 Binary comparison VBTextCompare 1 Text Comparison VBDataBaseCompare 2 Compare information inside database In the example, by using VBTextCompare for the Compare argument, the split occurs at the b and ignores the upper case difference between the Delimiter argument "B". Code: <% mystring = "How now brown cow?" %> <% myarray = Split(mystring, "B", 2, 1) %> <% =myarray(0) %> <% =myarray(1) %> Output: How now rown cow? Code: <% mystring = "How now brown cow?" %> <% myarray = Split(mystring, "B", 2, VBTextCompare) %> <% =myarray(0) %> <% =myarray(1) %> Output: How now rown cow?

Exemple : Mettre une date au format américain

'la date est remise dans le format anglais
mystring = date_Fi
myarray = Split(mystring, "/")

dateF = myarray(1)&"/"&myarray(0)&"/"&myarray(2)

Exemple :

Récuperer les mots clés du champ description

if description <> "" then
myarray = Split(description)
NbTabIndice_description=UBound(myarray) Compter le nombre de mot c'est dire la dimension du tableau
end if

Construire la requette

If description <> "" Then
Mettre AND ( uniquement pour le premier tour)
Dim m_description, p_description
p_description = 0
m_description=0
For p_description=0 to NbTabIndice_description
if myarray(p_description)<>"" and m_description=0 then
whereStr = whereStr & "AND("
m_description=m_description+1
end if
NEXT

Construire la requette pour chaque mot clé

For p_description=0 to NbTabIndice_description
whereStr = whereStr & "p.description LIKE '%"& myarray(p_description)&"%' AND "
NEXT
if Mid (whereStr , Len(whereStr)-3,4) = "AND " then
whereStr = Mid (whereStr , 1 , Len(whereStr) -4)
end if

Construire le dernière parenthese

Dim q_description
q_description=0
for p_description=0 to NbTabIndice_description
if myarray(p_description) <> "" and q_description= 0 then
whereStr = whereStr & ")"
q_description=q_description+1
end if
next
End If

Résultat de la requette si les mots clé indiqué dans le champ de formulaire sont informatique ASP java

AND(p.description LIKE '%informatique%' AND p.description LIKE '%ASP%' AND p.description LIKE '%java%' )

Une variante :

Si vous désirez que l'internaute ait le choix entre des mots clés qui utilise AND ou OR ( et ; ou)
vous mettez dans votre formulaire un bouton radio avec AND value=1 et OR value = 2

Voici les modifs à faire au code précédent

For p_titre=0 to NbTabIndice_titre
if operateur_logique = 1 then
whereStr = whereStr & "p.title LIKE '%"& myarrayTitre(p_titre)&"%' AND "
else
whereStr = whereStr & "p.title LIKE '%"& myarrayTitre(p_titre)&"%' OR "
end if
NEXT
if operateur_logique = 1 then
   if Mid (whereStr , Len(whereStr)-3,4) = "AND " then
   whereStr = Mid (whereStr , 1 , Len(whereStr) -4)
   end if
else
   if Mid (whereStr , Len(whereStr)-2,3) = "OR " then
   whereStr = Mid (whereStr , 1 , Len(whereStr) -3)
   end if
end if

Stocker des données sur le Web

Rechercher sur le Web

Créer votre boîte aux lettres

Vous avez besoin d'un hébergeur gratuit pour votre site ?

Déclarer son site à la CNIL

Mon audience Xiti