Récupérer variable dans fichier texte

Récupérer variable dans fichier texte - VB/VBA/VBS - Programmation

Marsh Posté le 02-11-2004 à 22:09:46    

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

Reply

Marsh Posté le 02-11-2004 à 22:09:46   

Reply

Marsh Posté le 04-11-2004 à 08:34:43    

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'

Reply

Marsh Posté le 04-11-2004 à 11:04:36    

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)

Reply

Marsh Posté le 04-11-2004 à 19:49:07    

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 ::.
Reply

Marsh Posté le 04-11-2004 à 20:41:53    

Où l'erreur ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed