Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1545 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Récupérer variable dans fichier texte

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Récupérer variable dans fichier texte

n°888952
kmeleon1
Ubuntu Forweeeeever
Posté le 02-11-2004 à 22:09:46  profilanswer
 

Salut à tous,
voilà je voudrai savoir comment récupérer une variable contenue dans un fichier texte en vbs...
sachant que le fichier texte contiendra une seule ligne... la variable
 
merci d'avance
 
kmeleon

mood
Publicité
Posté le 02-11-2004 à 22:09:46  profilanswer
 

n°889970
tigrou lib​re
Posté le 04-11-2004 à 08:34:43  profilanswer
 

open fichier for Input as #1
do while EOF(1)
input #1,variable
loop
close #1
' marche aussi pour plusieurs lignes.... mais tu dois sauvegarder 'variable'

n°890047
Arjuna
Aircraft Ident.: F-MBSD
Posté le 04-11-2004 à 11:04:36  profilanswer
 

Une petite astuce : si tu crées ton fichier depuis VB, alors fait un "put" en passant en paramètre le type que tu veux utiliser (integer par exemple).
 
Ensuite, tu pourras relire le fichier en utilisant directement une variable typée dans ton get, sans erreur d'interprétation.
 
PS: par contre, attention, dans le cas d'un integer par exemple, le fichier généré ne sera pas lisible (écrit en binnaire)
 
Et le summum...
 
Imagine que tu veux enregistrer et relire une fiche client :
- Nom (30 caractères)
- Prénom (30 caractères)
- Chiffre d'affaire (float)
- Date anniversaire (date)
 
Bah tu fais une struct :
 
Struct client
  nom as string(30)
  prenom as string(30)
  ca as float
  anniv as date
End Struct
 
Dim monClient as client
monClient.nom = "Magic"
monClient.prenom = "Buzz"
monClient.ca = 486.50
monClient.anniv = #12/05/1952#
 
Puis un joli put monClient :
 
Put #ifichier, , monClient
 
Et quand tu veux recharger le client, tu fait un bête :
 
Dim monClient as client
get #ifichier, , monClient
 
PS: le paramètre non spécifié les deux fois (pour le put et le get) est en fait le "numéro d'enreistrement". Si tu décides par exemple de stocker 800 000 fiches client dans un même fichier, au lieu de parcourir tout le fichier 1 à 1 pour aller au 799858°, fais un simple "get #file, 799858, monClient" pour le lire (ou un put pour le mettre à jour)

n°890555
kmeleon1
Ubuntu Forweeeeever
Posté le 04-11-2004 à 19:49:07  profilanswer
 

Oulà là j'ai un big problem
 
voici la source
 

Code :
  1. 'Déclaration des variables
  2. dim choice
  3. dim server
  4. dim login
  5. dim pass
  6. dim file_g
  7. dim file_p
  8. dim dir_p
  9. dim dir_quest
  10. dim save
  12. 'Création du fichier de commandes ftp
  13. Set FSys = CreateObject("Scripting.FileSystemObject" )
  14. Set Cmd = FSys.CreateTextFile("C:\Program Files\QuickFTP\cmd.qftp" )
  15. Set Serverl = FSys.CreateTextFile("C:\Program Files\QuickFTP\server.qftp" )
  16. Set Loginl = FSys.CreateTextFile("C:\Program Files\QuickFTP\login.qftp" )
  17. Set Passl = FSys.CreateTextFile("C:\Program Files\QuickFTP\pass.qftp" )
  19. '########################################### Log existant #####################################
  21. if (Fsys.fileExists(Serverl)) then
  23.         'Ouvre server
  24.         open server.qftp for Input as #1
  25.         do while EOF(1)
  26.         input #1,server
  27.         loop
  28.         close #1
  30.         'Ouvre login
  31.         open login.qftp for Input as #1
  32.         do while EOF(1)
  33.         input #1,login
  34.         loop
  35.         close #1
  37.         'Ouvre pass
  38.         open pass.qftp for Input as #1
  39.         do while EOF(1)
  40.         input #1,pass
  41.         loop
  42.         close #1
  45.         choice = InputBox ("Quel type de transfert souhaitez-vous effectuer ?" & vbCrLf & "    1- Envoyer un fichier" & vbCrLf & "    2- Recevoir un fichier","Choix du type de transfert" )
  47. With Cmd
  49.         'Choix n°2 :: Recevoir
  50.         If choice = 2 Then
  51.                 file_g = inputbox ("Entrez le nom du fichier à télécharger, extension inclue, en mettant le nom de dossier sous la forme ' dossier\fichier.extension ' si nécessaire","Chemin du fichier" )
  52.                 .writeline "open "&server&""
  53.                 .writeline ""&login&""
  54.                 .writeline ""&pass&""
  55.                 .writeline "get "&file_g&""
  56.                 .writeline "quit"
  57.         End If
  60.         'Choix n°1 :: Envoyer
  61.         If choice = 1 Then
  62.                 file_p = inputbox ("Entrez le chemin et le nom du fichier à envoyer sous la forme ' C:\dossier\fichier.extension ' .","Fichier à envoyer" )
  63.                 dir_quest = msgbox ("Souhaitez-vous que le fichier soit envoyé vers un dossier spécifique sur le serveur distant ?", vbyesno)
  65.                 If dir_quest = vbyes Then
  66.                         dir_p = inputbox ("Entrez le nom du dossier sur le serveur distant","Dossier sur le serveur" )
  67.                         .writeline "open "&server&""
  68.                         .writeline ""&login&""
  69.                         .writeline ""&pass&""
  70.                         .writeline "cd "&dir_p&""
  71.                         .writeline "put "&file_p&""
  72.                         .writeline "quit"
  73.                 End if
  74.        
  75.                 If dir_quest = vbno Then
  76.                         .writeline "open "&server&""
  77.                         .writeline ""&login&""
  78.                         .writeline ""&pass&""
  79.                         .writeline "put "&file_p&""
  80.                         .writeline "quit"
  81.                 End if
  82.    
  83.         End If
  84. End With
  85. end if
  87. '###################################### Pas de log ##########################################
  89. else
  91.         'Récupération des informations sur les variables
  92.         server = InputBox ("Entrez l'adresse exacte du serveur FTP, ne pas mettre ftp:\\","Serveur FTP" )
  93.         login = InputBox ("Entrez le nom d'utilisateur","Nom d'utilisateur" )
  94.         pass = InputBox ("Entrez le mot de passe" & vbCrLf & "ATTENTION => Le mot de passe ne sera pas remplacé par des guillemets, attention aux yeux indiscrets !","Mot de passe" )
  95.         save = msgbox ("voulez vous sauvegarder ces paramètres:" & vbCrLf & "Serveur : "&server&" & vbCrLf & "Login : "&login&" & vbCrLf & "Mot de passe : "&pass&", vbyesno)
  96.         if save = vbyes then
  97.        
  98.                 With Serverl
  99.                 .writeline &server&
  100.                 end with
  101.                 With Loginl
  102.                 .writeline &login&
  103.                 end with
  104.                 With Passl
  105.                 .writeline &pass&
  106.                 end if
  107.                 end with
  108.         end if
  110.         choice = InputBox ("Quel type de transfert souhaitez-vous effectuer ?" & vbCrLf & "    1- Envoyer un fichier" & vbCrLf & "    2- Recevoir un fichier","Choix du type de transfert" )
  111.         With Cmd
  112.         'Choix n°2 :: Recevoir
  113.         If choice = 2 Then
  114.                 file_g = inputbox ("Entrez le nom du fichier à télécharger, extension inclue, en mettant le nom de dossier sous la forme ' dossier\fichier.extension ' si nécessaire","Chemin du fichier" )
  115.                 .writeline "open "&server&""
  116.                 .writeline ""&login&""
  117.                 .writeline ""&pass&""
  118.                 .writeline "get "&file_g&""
  119.                 .writeline "quit"
  120.         End If
  123.         'Choix n°1 :: Envoyer
  124.         If choice = 1 Then
  125.                 file_p = inputbox ("Entrez le chemin et le nom du fichier à envoyer sous la forme ' C:\dossier\fichier.extension ' .","Fichier à envoyer" )
  126.                 dir_quest = msgbox ("Souhaitez-vous que le fichier soit envoyé vers un dossier spécifique sur le serveur distant ?", vbyesno)
  128.                 If dir_quest = vbyes Then
  129.                         dir_p = inputbox ("Entrez le nom du dossier sur le serveur distant","Dossier sur le serveur" )
  130.                         .writeline "open "&server&""
  131.                         .writeline ""&login&""
  132.                         .writeline ""&pass&""
  133.                         .writeline "cd "&dir_p&""
  134.                         .writeline "put "&file_p&""
  135.                         .writeline "quit"
  136.                 End if
  138.                 If dir_quest = vbno Then
  139.                         .writeline "open "&server&""
  140.                         .writeline ""&login&""
  141.                         .writeline ""&pass&""
  142.                         .writeline "put "&file_p&""
  143.                         .writeline "quit"
  144.                 End if
  146. End If
  147. End With


 
Voilà ca me met une ereur comme quoi y'a pas d'instruction...
 
HELP ME !!!
 
Kmeleon


---------------
.:: Kmeleon ::.
n°890597
Arjuna
Aircraft Ident.: F-MBSD
Posté le 04-11-2004 à 20:41:53  profilanswer
 

Où l'erreur ?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Récupérer variable dans fichier texte

 

Sujets relatifs
Passer des variables entre fichier ?[ASP] tester si un fichier qui vient d'etre créé existe
[PHP] Récupérer le dernier tableau d'un fichier HTMLPlusieurs valeurs pour une variable
parsage de fichier - boucle sur un repertoireCentrer du texte dans un calque
Exporter un formulaire Access et le récupérer sous VBComment crée un fichier .exe???????
[BATCH] fichier txt et variablerecuperer une variable "x" et lecrire dans un fichier texte??!!
Plus de sujets relatifs à : Récupérer variable dans fichier texte

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.123 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR