FORUM Tom's Hardware » Programmation » PHP & MySQL & ASP » [ASP] faire une recherche dans une variable
 

[ASP] faire une recherche dans une variable

1 utilisateur anonyme et 109 utilisateurs inconnus
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : [ASP] faire une recherche dans une variable
 
Plus d'informations

caramou a écrit :

Bonjour,
 
Je manipule un fichier contenant des infos de comptes utilisateurs, rangés par groupes et sous-groupes. Je veux en premier temps récupérer toutes les infos se trouvant entre crochets.
 
Je bloque au niveau de la recherche, j'avais essayé ca :

Code :
  1. if(ligne="["&[A-Za-z0-9]&"]" ) then


Je pense qu'il faut utiliser une balise objet, mais je patauge là :/
 
Voici le contenu de mon fichier :

Code :
  1. [ADMINMOD]
  2. ADMIN1=U:\\SERVEUR-NT4\ADMIN1$;NC:ADMIN1;LN:6;PN:admin1;RB:ADMINMOD
  3. ADMIN10=U:\\SERVEUR-NT4\ADMIN10$;NC:ADMIN10;LN:7;PN:admin10;RB:ADMINMOD
  4. ADMIN11=U:\\SERVEUR-NT4\ADMIN11$;NC:ADMIN11;LN:7;PN:admin11;RB:ADMINMOD
  5. ADMIN12=U:\\SERVEUR-NT4\ADMIN12$;NC:ADMIN12;LN:7;PN:admin12;RB:ADMINMOD
  6. ADMIN2=U:\\SERVEUR-NT4\ADMIN2$;NC:ADMIN2;LN:6;PN:admin2;RB:ADMINMOD
  7. ADMIN3=U:\\SERVEUR-NT4\ADMIN3$;NC:ADMIN3;LN:6;PN:admin3;RB:ADMINMOD
  8. ADMIN4=U:\\SERVEUR-NT4\ADMIN4$;NC:ADMIN4;LN:6;PN:admin4;RB:ADMINMOD
  9. ADMIN5=U:\\SERVEUR-NT4\ADMIN5$;NC:ADMIN5;LN:6;PN:admin5;RB:ADMINMOD
  10. ADMIN6=U:\\SERVEUR-NT4\ADMIN6$;NC:ADMIN6;LN:6;PN:admin6;RB:ADMINMOD
  11. ADMIN7=U:\\SERVEUR-NT4\ADMIN7$;NC:ADMIN7;LN:6;PN:admin7;RB:ADMINMOD
  12. ADMIN8=U:\\SERVEUR-NT4\ADMIN8$;NC:ADMIN8;LN:6;PN:admin8;RB:ADMINMOD
  13. ADMIN9=U:\\SERVEUR-NT4\ADMIN9$;NC:ADMIN9;LN:6;PN:admin9;RB:ADMINMOD
  14. [/]
  15. [APP]
  16. [sousgroupe01]
  17. DEMOBILLGA4=U:\\SERVEUR-NT4\DEMOBILLGA4$;NC:DEMO-BILLGATES6 pas de main;LN:15;PN:pasdemain.demobillgates6;RB:Asousgro
  18. [/]
  19. DEMOBILLGAP=U:\\SERVEUR-NT4\DEMOBILLGAP$;NC:DEMO-BILLGATES2 pas de main;LN:15;PN:pasdemain.demobillgates2;RB:APP
  20. DEMOBILLGA1=U:\\SERVEUR-NT4\DEMOBILLGA1$;NC:DEMO-BILLGATES3 pas de main;LN:15;PN:pasdemain.demobillgates3;RB:APP
  21. DEMOBILLGA2=U:\\SERVEUR-NT4\DEMOBILLGA2$;NC:DEMO-BILLGATES4 pas de main;LN:15;PN:pasdemain.demobillgates4;RB:APP
  22. DEMOBILLGA3=U:\\SERVEUR-NT4\DEMOBILLGA3$;NC:DEMO-BILLGATES5 pas de main;LN:15;PN:pasdemain.demobillgates5;RB:APP
  23. DEMOBILLGA5=U:\\SERVEUR-NT4\DEMOBILLGA5$;NC:DEMO-BILLGATES7 pas de main;LN:15;PN:pasdemain.demobillgates7;RB:APP
  24. DEMOBILLGA6=U:\\SERVEUR-NT4\DEMOBILLGA6$;NC:DEMO-BILLGATES8 pas de main;LN:15;PN:pasdemain.demobillgates8;RB:APP
  25. DEMOTEST11=U:\\SERVEUR-NT4\DEMOTEST11$;NC:DEMO-TEST1;LN:10;PN:demotest1;RB:APP
  26. TEST=U:\\SERVEUR-NT4\TEST$;NC:TEST;LN:4;PN:test;RB:APP
  27. [/]
  28. [CADRES]
  29. BONNOT=U:\\SERVEUR-NT4\BONNOT$;NC:BONNOT Jean;LN:6;PN:jean.bonnot;RB:CADRES
  30. DEMO51=U:\\SERVEUR-NT4\DEMO51$;NC:DEMO51 Unknown;LN:6;PN:unknown.demo51;RB:CADRES
  31. DUCHEF=U:\\SERVEUR-NT4\DUCHEF$;NC:DUCHEF Catherine;LN:6;PN:catherine.duchef;RB:CADRES
  32. FERE=U:\\SERVEUR-NT4\FERE$;NC:FERE Lucie;LN:4;PN:lucie.fere;RB:CADRES
  33. LATAN=U:\\SERVEUR-NT4\LATAN$;NC:LATAN Richard;LN:5;PN:richard.latan;RB:CADRES
  34. NENEZ=U:\\SERVEUR-NT4\NENEZ$;NC:NENEZ Edouard;LN:5;PN:edouard.nenez;RB:CADRES
  35. PATHAMOB=U:\\SERVEUR-NT4\PATHAMOB$;NC:PATHAMOB Adhémar;LN:8;PN:adhemar.pathamob;RB:CADRES
  36. [/]
  37. [EMPLOYES]
  38. [COMPTA]
  39. DEMOASP=U:\\SERVEUR-NT4\DEMOASP$;NC:DEMO-ASP prenom;LN:8;PN:prenom.demoasp;RB:ECOMPTA
  40. DEMOASP1=U:\\SERVEUR-NT4\DEMOASP1$;NC:DEMO-ASP1 prenom;LN:9;PN:prenom.demoasp1;RB:ECOMPTA
  41. DEMORENARD2=U:\\SERVEUR-NT4\DEMORENARD2$;NC:DEMO-RENARD2 goupil;LN:12;PN:goupil.demorenard2;RB:ECOMPTA
  42. DEMOTEST=U:\\SERVEUR-NT4\DEMOTEST$;NC:DEMO-TEST prenom;LN:9;PN:prenom.demotest;RB:ECOMPTA
  43. DEMOTEST1=U:\\SERVEUR-NT4\DEMOTEST1$;NC:DEMO-TEST1 prenom;LN:10;PN:prenom.demotest1;RB:ECOMPTA
  44. DEMOTEST2=U:\\SERVEUR-NT4\DEMOTEST2$;NC:DEMO-TEST2 prenom;LN:10;PN:prenom.demotest2;RB:ECOMPTA
  45. DEMOTEST5=U:\\SERVEUR-NT4\DEMOTEST5$;NC:DEMOTEST5 prenom;LN:9;PN:prenom.demotest5;RB:ECOMPTA
  46. [/]
  47. [compta]
  48. DEMORENARD=U:\\SERVEUR-NT4\DEMORENARD$;NC:DEMO-RENARD goupil;LN:11;PN:goupil.demorenard;RB:Ecompta
  49. [/]
  50. [/]
  51. [GROUPE]
  52. [CLASSE]
  53. DEMOASP5=U:\\SERVEUR-NT4\DEMOASP5$;NC:DEMO-ASP5 prenom;LN:9;PN:prenom.demoasp5;RB:GCLASSE
  54. DEMOASP6=U:\\SERVEUR-NT4\DEMOASP6$;NC:DEMO-ASP6 prenom;LN:9;PN:prenom.demoasp6;RB:GCLASSE
  55. DEMOASP7=U:\\SERVEUR-NT4\DEMOASP7$;NC:DEMO-ASP7 prenom;LN:9;PN:prenom.demoasp7;RB:GCLASSE
  56. DEMONOM01=U:\\SERVEUR-NT4\DEMONOM01$;NC:DEMO-NOM01 prenom;LN:10;PN:prenom.demonom01;RB:GCLASSE
  57. [/]
  58. [/]
  59. [GROUPE1]
  60. DEMOBILLGAT=U:\\SERVEUR-NT4\DEMOBILLGAT$;NC:DEMO-BILLGATES pas de main;LN:14;PN:pasdemain.demobillgates;RB:GROUPE1
  61. [/]
  62. [GROUPE2]
  63. [COMPTA]
  64. DEMORENARD3=U:\\SERVEUR-NT4\DEMORENARD3$;NC:DEMO-RENARD3 goupil;LN:12;PN:goupil.demorenard3;RB:GCOMPTA
  65. [/]
  66. DEMOHTML=U:\\SERVEUR-NT4\DEMOHTML$;NC:DEMO-HTML;LN:9;PN:demohtml;RB:GROUPE2
  67. [/]


 
 
merci d'avance.


 
 
edit : j'au réussi en fesant autrement  
 

Code :
  1. '-------------lire le contenu du fichier :----------------
  2. Set fso = CreateObject("Scripting.FileSystemObject" )
  3. Set Out = fso.OpenTextFile(chemin_fichier, 1, FALSE, FALSE)
  4. '################ PROBLEME #####################
  5. While not Out.atEndOfStream
  6. ligne=Out.readline
  7. var01= left(ligne,1)
  8. var02= ""
  9. 'affichage uniquement des lignes commençant par un crochet
  10. if(var01="[" ) then
  11. 'supression des lignes contenant "[/]"
  12. ' if(ligne="[/]" ) then
  13. 'else
  14. groupes=groupes&";"&ligne             'enregistre dans la variable
  15. sousGroupes=sousGroupes&";"&ligne     'enregistre dans la variable
  16. Response.write("<b>précédent : " & var02 & "<br></b>" )         'affichage
  17. Response.write(ligne & "<br>" )                         'affichage
  18. ' end if
  19. end if
  20. Wend
  21. '######################################
  22. Response.write("Groupes : " & groupes)
  23. Response.write("<br><br>" )
  24. Response.write("Sous-groupes : " & sousGroupes)
  25. set fso=nothing


 
 
seulement pour faire mes regles j'aurai besoin de savoir ou d'avoir une bonne doc ( dur a trouver en asp comparé au php ), pour garder en mémoire les variables précédentes, et aussi les suivantes ( j'ai besoin de garder au max 2 suivantes et précédentes.

Message cité 1 fois
Message édité par dtom le 10-03-2006 à 11:51:32


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » PHP & MySQL & ASP » [ASP] faire une recherche dans une variable
 

Annonces Google
Publicité
Les ressources relatives