Manipulation des chaines de caracteres

black-out · 27/01/2007, 18h40

Bonjour a tous,

C'est vraiment une question de débutant que je vais poser là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
contenu = "&blablabla&123456"

Je voudrais enlever le "&" au debut de la chaine et supprimer le &123456 à la fin de la chaine. La variable contenu contiendrais donc au final "blablabla"

J'ai cherché sur google pour lé manipulation de chaine en asp (utilisation de la fonction mid()) mais sans succès donc si vous pouviez m'aider ca serait cool.

Merci d'avance

pc75 · 29/01/2007, 08h34

Bonjour,

Voilà quelques fonctions qui pourront t'aider :

Citation:

InStr()
InStrRev()
Left()
Right()
Mid()

Replace()

newbiegeek · 08/08/2007, 15h15

tu peux essayer ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function a_gauche_du_amp(chaine)
dim temp, n
temp= Cstr(chaine) 'on copie la chaine
do
n=inStr(temp,"&")
if n=0 then exit do
temp=Left(temp, Len(temp)-n)
loop
a_gauche_du_amp=temp
end function
 
chaine="&blablabla&123456"
chaine=Right(chaine, Len(chaine)-1)
chaine=a_gauche_du_amp(chaine)

normalement, de cette façon tu obtiendra bien le "blablabla" que tu voulais...
par contre, il faut que tu sois sur que ton premier caractère sera bien un "&"

j'espère que cela t'aidera

LineLe · 12/08/2007, 15h11

Sinon tu peux aussi utiliser les expressions régulières dans le cas où les chaînes que tu veux supprimer ne sont pas identiques d'un cas à l'autre, mais de même type. Voici un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
<html>
  <body>
    <%
      Dim texte, resultat
 
      Function recherche(modele, chaine)
        Dim objet
        Dim correspondance
        Dim collection
 
        Set objet = New RegExp
        objet.Pattern = modele
        objet.IgnoreCase = True
        objet.Global = True
        Set collection = objet.Execute(chaine)
 
        For Each correspondance in collection
          resultat = resultat & "<tr><td>" & correspondance.FirstIndex _
                      & "</td><td>" & correspondance.Value & "</td></tr>"
        Next
        recherche = resultat
      End Function
 
      texte = "Le chercheur d'opale a trouvé une belle pierre dans " _
               & "une galerie sinistre, pour le plus grand bonheur de " _
               & "la population occidentale qui pourtant se désolerait " _
               & " de travailler dans de telles conditions inhumaines."
 
      resultat = recherche(_
                     "\b[a-zA-Zàâäéèêëïîôöùûç]*le[a-zA-Zàâäéèêëïîôöùûç]*\b",_
                                                                                       texte)
      Response.Write "<h3>Liste des mots contenant la " _
                          & "chaîne de caractères <I>le</I></h3>" _
                          & "<h4>Texte</h4><p>" & texte & "</p>" _
                          & "<table border='1' cellpadding='3'>" _
                          & "<tr><th>Position</th><th>Mot</th></tr>" _
                          & resultat & "</table>"
    %>
  </body>
</html>

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email