Il y a actuellement 566 visiteurs
Mercredi 11 Novembre 2026
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

[Résolu]Pb vbscript

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

[Résolu]Pb vbscript

Message le 21 Déc 2006 15:22

Salut !

Je débute en asp/vbscript et j'essaye en vain de créer un formulaire où l'utilisateur puisse copier/coller 2 colonnes de Excel dans une textarea, puis que les valeurs soient rentrées dans un tableau associatif.

Par exemple l'utilisateur colle dans la textarea :
---------------
F001 12
F003 100
F012 3
---------------

Puis on obtient après traitement du formulaire, un tableau tab avec
tab("F001") = 12

Déjà, 1er probleme, je n'arrive pas à remplacer la "tabulation" (est-ce que c'en est vraiment une d'ailleurs ?) par 1 autre caractère.
Les replace(liste,"Vbtab;",";") ou replace(liste," ",";") ou replace(liste," ",";") ne fonctionnent pas...
Ensuite, je ne sais pas comment créer un tableau associatif en vbscript ...

Est-ce que vous pourriez m'aider ? paske là je deviens fou, et je ne trouve pas d'aide vraiment intéressante sur google...
Avatar de l'utilisateur
gael49
Expert(e)
Expert(e)
 
Messages: 1935
Inscription: 07 Sep 2004 20:11
Localisation: Les Mauges
 


Message le 21 Déc 2006 15:44

Bon j'ai 1 peu avancé tout seul, j'arrive, en partant de cette liste :

F001;12
F002;8
F003;102
F005;20
F006;10


à associer les références aux quantités:

ligne n°0 : F001 = 12
ligne n°1 : F002 = 8
ligne n°2 : F003 = 102
ligne n°3 : F005 = 20
ligne n°4 : F006 = 10


Le code pour l'instant :
<%
Dim dict,ref,qtestock,liste,i,j,size
Set dict=createObject("Scripting.Dictionary")
liste = request.form("liste")
liste = replace(liste,Vbcrlf,";")
tabliste = Split(liste,";")
size = Ubound(tabliste) -1

For i=0 to size
j=i+1
dict.Add tabliste(i), tabliste(j)
i=j
Next

ref=dict.Keys
qtestock=dict.Items

For i=0 to dict.Count-1
Response.Write "ligne n°" & i & " : " & ref(i) & " = " & qtestock(i) & "<br />"
Next



Mais la pseudo-tabulation qui se met quand on copie/colle depuis Excel, je ne sais pas comment la remplacer par des ";".



EDIT : Finalement après de nombreux essais je me suis rendu compte qu'un simple remplacement des espaces (replace(chaine," ",";") fonctionne :) J'avais déjà testé mais peut-être qu'un autre bug m'avais empeché de m'en rendre compte...
Avatar de l'utilisateur
gael49
Expert(e)
Expert(e)
 
Messages: 1935
Inscription: 07 Sep 2004 20:11
Localisation: Les Mauges
 

Message le 22 Déc 2006 17:47

Bonjour,

Ca me fait peur, je suis censé savoir tout ça et je ne sais RIEN. Je le sens mal le diplôme ...
ASP, c'est pas le truc que je suis censé faire pour les Tracedebug, et qui marche sur Windows Server 2003 ? J'ai pas encore installé le SE en fait :-?.
Avatar de l'utilisateur
blankoworld
PC-Infopraticien
PC-Infopraticien
 
Messages: 5993
Inscription: 21 Juin 2004 09:41
Localisation: Pala
 



Sujets similaires

Message [Résolu] routeur tplink
Bonjour,Oui il y a eu coupure de secteur pendant mon absence, j'ai re démarré le routeur, je vois le tydom (filaire) mais toujours le voyant orange, pas de blink.Cdt
Réponses: 115

Message [Résolu] yahoo mail
Intéressant, c'est un indice supplémentaire.Il me semble que tu n'as pas de VPN, si je me trompe, désactive-le.Sinon sur ton PC et sous Firefox, tu vas sur "Menu" (ou encore la touche "ALT" de ton clavier).Tu cliques ensuite sur "Outils" puis "Paramètres", une ...
Réponses: 13

Message [Résolu] Dossiers Mozilla et Thunderbird
Re,Merci pour le retour. Un modérateur s’occupera de marquer le sujet comme résolu.Bonne soirée
Réponses: 4

Message [Résolu] Petite vérification
Sujet passé en résolu.
Réponses: 31

Message [Résolu] pc infecté
FRST.txtAddition.txtBonjour,Depuis quelques jours lorsque j'ouvre mon pc il s'ouvre avec DAXON.Merci pour votre aide.Cdt
Réponses: 15

Message [Résolu] marques pages firefox
Bonjour,J'ai ce message:Le système de marque-pages et d’historique n’est pas opérationnel, car l’un des fichiers de Firefox est en cours d’utilisation par une autre application. Certains logiciels de sécurité peuvent provoquer ce problème.Que faire svp.Cdt
Réponses: 11


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


.: Nous contacter :: Flux RSS :: Données personnelles :.