Il y a actuellement 201 visiteurs
Jeudi 18 Décembre 2025
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] La sauvegarde de windows ne s'est pas effectuée
Salut tout le monde j'ai essayé de faire une sauvegarde Windows et elle a échoué je pense à cause de deux fichiers de mon téléphone, je ne sais d'ailleurs pas pourquoi elles se trouvent avec? voir captures écran svp pour plus de clarté https://up2sha.re/file?f=VfV04mIhttps://up2sha.re/file?f=kabkYAt ...
Réponses: 5

Message [Résolu] imprimante brother win11
Bonjour,J'ai essayé les conseils lu sur le net pour installer mon imprimante brother dcp2520dw sur mon pc win11, mais "échec".J'ai utilisé un câble comme demandé.Cdt
Réponses: 16

Message [Résolu]probleme Ads by Images+
Depuis quelque jours avec mon moteur de recherche Google sur Firefox, c'est ajouté Ads by Images+merci
Réponses: 16

Message [Résolu]Ads by Images+
Bonjour depuis quelques jours, j'ai Ads by images dans mes recherches Google peut on enlevé ca merci
Réponses: 5

Message [Résolu] probleme ecran noir de 1 à 2 secondes
Salut tout le monde Décidément......... J'ai un problème sur mon pc qui n'est pas grave, mais qui est perturbant. Je m'explique lorsque je fais un clic droit sur un fichier ou dossier dans l'explorateur de fichier ou sur le bureau, j'ai un écran noir qui apparait brièvement et qui fait redémarrer t ...
Réponses: 42

Message [Résolu] Demarrage W10
Bonjour à tous,Depuis peu, mon PC démarre en affichant les documents stockés sur mon DD externe autrement que sur mon bureau. Seriez vous m'expliquer comment y remédier s'il vous plait ? Merci par avance A bientot
Réponses: 12


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


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