Ajouter element Array [Résolu]

Messages postés
158
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
25 juillet 2018
- - Dernière réponse :  Utilisateur anonyme - 21 févr. 2012 à 18:50
Bonjour, j'essai d'ajouter des valeurs que j'ai prédéfini à un tableau :

       Dim interdit("+", "-", "=", ":", "@", " ", "#", "?", ";", "!", ",", "'", "`", """", ")", "(", "}", "{", "*", ".", "~", "/", "", "%") As String

        ' Supression des caracteres interdits
        For a As Integer = 0 To interdit.Length - 1
            donnees = donnees.Replace(interdit(a), "")
        Next a



J'ai une erreur : "Le nombre d'index est inférieur au nombre de dimensions du tableau indexé."

J'ai vue dans les exemples que l'on déclarer son table du genre :
dim montableau(24) as string

puis on ajouté les éléments manuellement :
montableau(0) = "+"
montableau(1) = "-"
montableau(2) = "="
...

Ors moi je ne veut pas inscrire 24 lignes manuellement comment faire ?

Merci
Afficher la suite 

10 réponses

Meilleure réponse
3
Merci
Bonjour,
essaye:
 Dim Interdit As String = "[+\-=:@ #\?;!,'`\)\(}{\*\.~/\%]" & Chr(34)
        'on peux rajouter ce qu'on veux (chr(34) correspond à un ")
        For Each Caractère In Donnees
            If InStr(Interdit, Caractère) > 0 Then Donnees = Donnees.Replace(Caractère, "")
        Next
      


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 127 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
3
Merci
Salut renfield,

Je lui ai mis ce code, c'est parque j'ai cru comprendre qu'il était en VB.Net

Guill:
Un peu plus compréhensible:
Dim Interdit As String = "[+\-=:@ #\?;!,'`\)\(}{\*\.~/\%]" & Chr(34)
        'on peux rajouter ce qu'on veux (chr(34) correspond à un ")
        For Each JeanPierre As Char In Donnees
            If Interdit.Contains(JeanPierre) True Then Donnees Donnees.Replace(JeanPierre, "")
        Next



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 127 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
55
0
Merci
pas testé, mais je dirai :


With CreateObject("Vbscript.Regexp")
    .Global = True
    .Pattern = "[+\-=:@ #\?;!,'`""\)\(}{\*\.~/\%]"
    donnees = .Replace(donnees, vbNullString)
End With



Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Commenter la réponse de Renfield
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
0
Merci
Bonjour,
et intéresse-toi également (car je vois que tu l'ignore) à ce qu'est la borne Ubound d'un array.
Quant à cette ligne :
For a As Integer = 0 To interdit.Length - 1

Elle montre à elle seule que tu ne développes pas sous VB6 (la présente section du forum).
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
Messages postés
158
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
25 juillet 2018
3
0
Merci
Erf, a chaque fois je me trompe !

Sinon la solution de Renfield à l'air de marcher mais il y a t'il une autre solution que du VBS ?

merci
Commenter la réponse de Guillamue06
Messages postés
158
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
25 juillet 2018
3
0
Merci
Je ne sais pas si c'est mieux mais je pansé à ceci :

        Dim carac As String "[ + \ - : @ # \ ? ; ! , ' ` "" \ ) \ ( } { \ * \ . ~ / \ % ]"
        Dim interdit() As String = carac.Split(" ")

        For a As Integer = 0 To interdit.Count - 1
            donnees = donnees.Replace(interdit(a), "")
        Next a

        donnees = donnees.Replace(" ", "")
Commenter la réponse de Guillamue06
Messages postés
158
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
25 juillet 2018
3
0
Merci
Je ne connaisse pas la méthode "Caractère" pas mal ! Merci
Commenter la réponse de Guillamue06
0
Merci
Re:
T'aurais pu marquer JeanPierre ce serait la même chose

C'est une variable! tu l'appelles comme tu veux...


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
55
0
Merci
il y a t'il une autre solution que du VBS ?


les regexp existe dans le framework...
je t'ai conseillé du code VB6 car tu as posté dans cette catégorie...

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Commenter la réponse de Renfield
Messages postés
158
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
25 juillet 2018
3
0
Merci
acive ah mer** lol ! J'avais pas capté je vais l'appeler JeanPierre Alors =)

Renfield oui pardon, je me trompe à chaque fois que je poste u_u
Commenter la réponse de Guillamue06