Recupérer données TXT par VB ? Résolu

Question

Bonjour, voila le probleme que je pose sur ce site :
Pour ma part, je suis en BTS Informatique de Gestion en 1ere année... Je doit faire une action pro dans une entreprise, je l'ai donc commencé je suis allé voir le patron, qui veut que je crée un espece de programme qui lui permetrait d'entrer des adresses de maisons et de les imprimer directement, sans passer par word et tout, sur des enveloppes...Il veut pouvoir mettre des commentaires pour chaques maison...
Je pensais utiliser une base de donnée mais je ne saurais pas l'utiliser apres... a part en php et html... Donc je suis parti sur l'idée de créer un fichier .txt avec VB qui stockerais les données des maisons (je suis entrain d'etudié ca en ce moment en cours c'est pour ca que j'ai eu l'idée :-)...) Seulement voila je bloc, a ce moment je ne sais pas comment recuperer les données que j'ai rentré dans le fichier .txt...
Voila je vais arreter pour les questions et les explications (c'est tout de même a moi de faire le programme ;-)...) 
Si vous pouvez au moins me mettre sur la voix, me dire si je fais bien de passer par VB ou si il y a mieux a faire avec une base de donnée...Me diriger vers un tuto pour recuperer des donnée dans un fichier .txt ou bien m'envoyer un bout de code...
Merci beaucoup a tout ceux qui repondrons et merci quand meme a ceux qui ne ferons que passer par ce topic....
Arthur

Utilisateur anonyme · Answer

Bon maintenant j'ai un niveau suffisant pour réussir à faire un programme comme celui que j'ai décrit... personne ne m'a répondu c'est bien dommage...

Utilisateur anonyme · Answer

Bonjour,

Vous pouvez utiliser les objets de scripting sous VB pour lire/écrire
dans un fichier texte.

Puisque VBS est un sous ensemble de VB, VB reconnait les instructions
"VBS".

Exemple pour lire écrire :


' Fichier Lire.vbs

  Const ctePourLecture = 1
  Const ctePourEcrire = 2
  Const ctePourAjouter = 8
  Const cteRapport = "Rapport.txt"

  Dim objFSO, objFichier, varNomFic, Texte, Message

  Set objFSO = CreateObject("Scripting.FileSystemObject")

  ' Localisation du script et du fichier à lire
  varNomFic = WScript.ScriptFullName
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))
  varNomFic = varNomFic & cteRapport

  If ( objFSO.FileExists(varNomFic) ) Then
    Set objFichier = objFSO.OpenTextFile(varNomFic,ctePourAjouter)
  Else
    Set objFichier = objFSO.CreateTextFile(varNomFic,ctePourEcrire)
  End If

  While Not objFichier .AtEndOfStream
        Texte = objFichier .ReadLine
        Message = Message & vbCrLf & Texte
  Wend
  objFichier.Close

  Set objFichier = Nothing
  Set objFSO = Nothing

  WScript.Echo Message

WScript.Quit(0)
'
'----------------------------------------------------------------------------------------------------------------------------------------------
' Fichier Ecrire.vbs

  Const ctePourLecture = 1
  Const ctePourEcrire = 2
  Const ctePourAjouter = 8
  Const cteRapport = "Rapport.txt"

  Dim objFSO, objFichier, varNomFic

  Set objFSO = CreateObject("Scripting.FileSystemObject")

' Localisation du fichier à écrire
  varNomFic = WScript.ScriptFullName
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))
  varNomFic = varNomFic & cteRapport

 ' Valide si fichier existe 
  If ( objFSO.FileExists(varNomFic) ) Then
    Set objFichier = objFSO.OpenTextFile(varNomFic,ctePourAjouter)
  Else
    Set objFichier = objFSO.CreateTextFile(varNomFic,ctePourEcrire)
  End If

  ' Écrire dans fichier
  objFichier.WriteLine "Bonjour le monde"
  objFichier.Close

  Set objFichier = Nothing
  Set objFSO = Nothing

WScript.Quit(0)
'----------------------------------------------------------------------------------------------------------------------------------------------

'


En VB, ça donne quelque chose comme :


Option Explicit

Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8
Const cteRapport = "Rapport.txt"
'

Sub LireFichier()

  Dim objFSO As Object, objFichier As Object
  Dim varNomFic As String, Texte As String, Message As String

  Set objFSO = CreateObject("Scripting.FileSystemObject")

  ' Localisation du script et du fichier à lire
  varNomFic = Application.Path
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))
  varNomFic = varNomFic & cteRapport

  If (objFSO.FileExists(varNomFic)) Then
    Set objFichier = objFSO.OpenTextFile(varNomFic, ctePourAjouter)
  Else
    Set objFichier = objFSO.CreateTextFile(varNomFic, ctePourEcrire)
  End If

  While Not objFichier.AtEndOfStream
        Texte = objFichier.ReadLine
        Message = Message & vbCrLf & Texte
  Wend
  objFichier.Close

  Set objFichier = Nothing
  Set objFSO = Nothing


End Sub
'

Sub Ecrire()

  Dim objFSO As Object, objFichier As Object, varNomFic As String

  Set objFSO = CreateObject("Scripting.FileSystemObject")

' Localisation du fichier à écrire
  varNomFic = Application.Path
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))
  varNomFic = varNomFic & cteRapport

 ' Valide si fichier existe
  If (objFSO.FileExists(varNomFic)) Then
    Set objFichier = objFSO.OpenTextFile(varNomFic, ctePourAjouter)
  Else
    Set objFichier = objFSO.CreateTextFile(varNomFic, ctePourEcrire)
  End If

  ' Écrire dans fichier
  objFichier.WriteLine "Bonjour le monde"
  objFichier.Close

  Set objFichier = Nothing
  Set objFSO = Nothing

End Sub
'


Cdt

Lupin

alexandretlse · Answer

bonjour Lupin,

Tt d'abord merci pour ton aide.
J'ai encore besoin de tes services. J'ai compilé le code que tu m'as envoyé pour lire un fichier en VB. Je n'ai pas recopié le code pour la solution écrire puisque je n'écrit pas dans le fichier txt. Mais ca servira pour d'autre.

Pour le code lire il me dit que j'ai deux erreurs:

'Path' n'est pas un membre de 'System.windows.forms.application
'Public Property Left() As integer' n'a aucun paramètre et son type de retour ne peut pas etre indexé.

As tu une idée a tt ca? J'ai cherché mais sans succes!!!
Merci

Utilisateur anonyme · Answer

re: 

1er Point : 

L'instruction [ Application.Path ] vient du VBA, j'aurais du me souvenir 
que la syntaxe était différente sous VB. 

Je ne sais s'il s'agit de VB6 ou VB.NET ... 

Sous VB.NET, l'instruction se lit : 
Chemin = Application.ExecutablePath 

Sous VB6, l'instruction se lit : 
Chemin = App.Path 

2è Point : 
L'instruction [Left] dans : 
varNomFic = Left(varNomFic, InStrRev(varNomFic, "\")) 

Essai avec la syntaxe suivante : 
varNomFic = Left$(varNomFic, InStrRev(varNomFic, "\")) 

sinon : 

Le groupe d'instruction  : 
' Localisation du script et du fichier à lire 
  varNomFic = Application.Path 
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\")) 
  varNomFic = varNomFic & cteRapport 

devrait pouvoir être écrite ainsi sous VB6: 

  varNomFic = App.Path 
  varNomFic = varNomFic & "\" & cteRapport 

Vérifie le chemin avec l'instruction pour ne pas avoir 2 [ \ ] dans le chemin: 

MsgBox varNomFic 

Cdt 

Lupin

Utilisateur anonyme · Answer

re:

Tiens, voilà un exemple complet que j'ai codé sous VB6.

Tu y trouveras 2 boutons pour lire, et 2 boutons pour écrire.

Méthode avec les objets de scripting (Natif sous WindowsXP)
Méthode VB6 avec la librairie RunTime de VB6.

http://membre.oricom.ca/lupin/xfr/chemin.zip

Cdt

Lupin

Recupérer données TXT par VB ?

5 réponses

Discussions similaires

Newsletters