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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  lecture dans un fichier à accès random

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

lecture dans un fichier à accès random

n°2166877
dadex85
merci a tous
Posté le 05-12-2012 à 12:14:20  profilanswer
 

Bonjour à tous j'ai besoin de votre aide,
Je veux faire une lecture de fichier en vba d'un fichier TrameRx_IP.DAT. C'est un fichier à accès random et il contient 500 messages. Après 500 messages il supprime les messages précédents et faire une nouvelle sauvegarde . Moi je veux lire et faire une sauvegarde de tous les messages.  
j'ai essayé avec ce code mais ça ne marche pas quelqu'un pourrait t-il m'aider.  
 

Code :
  1. Function FileTrameInput(mode As Integer, Trame As String) As String
  5. Const NbMesRx = 500
  9. Dim FileNumber As Integer
  11. Dim BufFile As String * 800
  13.    
  15.     FileNumber = FreeFile
  17.     Open App.Path & "\TrameRx_IP.DAT" For Random As FileNumber Len = Len(BufFile)
  19.    
  21.     ' Lecture des pointeurs
  23.     Get #FileNumber, 1, BufFile
  25.     gintPtReTi = Val(Mid(BufFile, 1, 5))
  27.     gintPtWrTi = Val(Mid(BufFile, 6, 10))
  33.         ' Lecture trame
  35.        
  37.             ' Test des limites pointeur lecture
  39.             If gintPtReTi > NbMesRx Or gintPtReTi < 2 Then
  41.                 gintPtReTi = 2
  43.             Else
  45.                 gintPtReTi = gintPtReTi + 1
  47.             End If
  49.             BufFile = Format(gintPtReTi, "00000" ) _
  51.                            & Format(gintPtWrTi, "00000" )
  53.            
  55.             ' Mise à jour Pointeurs
  57.             Put #FileNumber, 1, BufFile
  59.        
  61.             ' Lecture de la trame
  63.             Get #FileNumber, gintPtReTi, BufFile
  65.             FileTrameInput = Trim(BufFile)
  67.            
  69.             ' Effacement de la trame
  71.             BufFile = ""
  73.             Put #FileNumber, gintPtReTi, BufFile
  75.      
  77.     Close #FileNumber
  81. End Function


Amicalement

mood
Publicité
Posté le 05-12-2012 à 12:14:20  profilanswer
 

n°2166979
Marc L
Posté le 05-12-2012 à 18:26:08  profilanswer
 

 
              Bonjour !   Un fichier à accès random ne veut pas dire grand-chose, quid de la structure de ce fichier ?
              Pas d'aide possible sans structure …
 
              De plus le code indiqué n'est qu'une fonction mal ficelée et pas vraiment en rapport avec ta problématique,
              en es-tu l'auteur ou ne serait encore une fois un mauvais copier/coller ?

Message cité 1 fois
Message édité par Marc L le 05-12-2012 à 18:32:04
n°2167060
dadex85
merci a tous
Posté le 06-12-2012 à 10:25:39  profilanswer
 

Bonjour à tous  
Je vous explique : Le transmetteur Vocalys-ip dès qu'il est connecté au serveur crée un fichier TrameRx-IP.DAT et envoie des évènements dans ce fichier. Mais le hic est qu'il efface le contenu du fichier après 500 évènements. Moi je souhaite faire une lecture de ce fichier 'TrameRx-IP.DAT' et faire une sauvegarde de tous les Evènements dans un autre fichier.  
je suis un débutant en VB et j'ai besoin de votre aide
 
COrdialement

n°2167066
Marc L
Posté le 06-12-2012 à 11:50:24  profilanswer
 

Marc L a écrit :

[…] Pas d'aide possible sans structure …


n°2167075
dadex85
merci a tous
Posté le 06-12-2012 à 12:21:07  profilanswer
 

Je suis un debutant en VB et j'ai besoin de votre aide svp
 je vous explique svp: la taille de mon fichier TrameRx-IP.DAT est définie à 500 messages(avant la rotation du pointeur).  
je vous explique par un exple  
j'ai le fichier TrameRx-IP.DAT qui reçoit:  
 
1MSG  
2MSG  
..MSG  
..MSG  
....  
500MSG  
 
Après 500MSG le transmetteur supprime le contenu du fichier TrameRx-IP.DAT c'est à dire supprime les 1MSG....500MSG et faire un nouvel enregistrement de MSG dans le fichier TrameRx-IP.DAT .  
Moi je souhaite lire dans TrameRx-IP.DAT et sauvegarder dans un autre fichier les 1MSG....500MSG et le nouvel enregistrement avant la suppression par le transmetteur

n°2167081
Marc L
Posté le 06-12-2012 à 13:41:31  profilanswer
 


             En dehors du fait de l'absence de la structure du fichier je ne pourrais apporter aucune aide,
             il faudrait aussi exposer clairement et précisément le besoin, car là, c'est pas vraiment clair.
 
             Par exemple, on pourrait croire que tu veux juste faire une sauvegarde du fichier,
             une simple copie du fichier dans un dossier de sauvegarde et voilà !
             A quoi bon s'embêter en VBA ?   Quelle en est l'utilité ?  
 

n°2167111
dadex85
merci a tous
Posté le 06-12-2012 à 15:26:55  profilanswer
 

-Créer un fichier Backup qui sera relier en permanence au fichier TrameRx_IP.DAT  
 
-Lire le contenu du fichier TrameRx_IP.DAT et le mettre dans notre fichier Backup  
 
- Le fichier Backup doit récupérer tout nouvel enregistrement de message dans TrameRx_IP.DAT de sorte qu'on ne perde pas de données même si le transmetteur efface tous les premiers messages du fichier TrameRx_IP.DAT.  
 
 
Cordialement

n°2167119
dadex85
merci a tous
Posté le 06-12-2012 à 16:20:28  profilanswer
 

je viens d'essayer avec ce code après avoir lu quelques cours ça ne marche pas et ma machine se plante
 

Code :
  1. option explicit
  3. Private Sub lire()
  5. Dim intfic As Integer
  6. Dim strligne As String
  7. intfic = FreeFile
  8. Const NbMesrx = 500
  9. Dim gintPtReti As integer
  10. Dim gintPtWrti As integer
  11. Dim FileTrameInput  as string
  13. Dim bufFile As String * 800
  15. Path = App.path & "\TrameRx_IP.DAT"
  17. Open path For Random As intfic len =len(bufFile)
  20. Do while Not EOF (1) = True
  22. Get #intfic, 1, bufFile
  24.     gintPtReti = Val(Mid(bufFile, 1, 5))
  26.     gintPtWrti = Val(Mid(bufFile, 6, 10))
  28.     ' Lecture trame
  29.     ' Test des limites pointeur lecture
  31.             If gintPtReti > NbMesrx Or gintPtReti < 2 Then
  33.                 gintPtReti = 2
  35.             Else
  37.                 gintPtReti = gintPtReti + 1
  39.             End If
  41.             bufFile = Format(gintPtReti, "00000" ) & Format(gintPtWrti, "00000" )
  44.             Get #intfic, gintPtReti, bufFile
  46.             FileTrameInput = Trim(bufFile)
  47.          
  49.       loop
  51.     Close #intfic
  53. End Sub


 
 
Voici un exemple de contenu de mon fichier TrameRx_IP.DAT  
30/11/2012 10:51:3312340000002138008003  
30/11/2012 10:53:1412340000002138008003  
30/11/2012 10:54:5912340000002138008003  
30/11/2012 10:56:4412340000002138008003  
30/11/2012 10:58:3012340000002138008003  
30/11/2012 11:00:1312340000002138008003  
30/11/2012 11:01:5512340000002138008003  
30/11/2012 11:03:3812340000002138008003  
30/11/2012 11:05:2112340000002138008003  
30/11/2012 11:07:0712340000002138008003  
30/11/2012 11:08:5212340000002138008003  
30/11/2012 11:10:3812340000002138008003

n°2167127
Marc L
Posté le 06-12-2012 à 17:10:02  profilanswer
 

 
              Pas étonnant, le code est toujours aussi …  "décalé" ...
 
              Toujours pas de fichier en sortie !   Bref …
 
              Le fichier .DAT ne serait qu'un simple fichier texte composé de lignes fixes de n caractères ?   (n à calculer)
              Et quel est le caractère de changement de ligne ?
 
              Un deuxième fichier en sortie devrait être défini, y récupérer la date de la dernière ligne pour éviter les doublons
              puis le réouvrir en mode Append par exemple (voir l'aide en ligne de VBA de l'instruction Open)
              afin d'y ajouter les nouveaux messages, ceux postérieurs à la date récupérée ? …
 

n°2167175
dadex85
merci a tous
Posté le 07-12-2012 à 10:44:15  profilanswer
 

Bonjour
 s'il vous plait est-ce que vous pouvez m'aider à compléter mon code
 

mood
Publicité
Posté le 07-12-2012 à 10:44:15  profilanswer
 

n°2167289
kiki29
Posté le 08-12-2012 à 09:43:42  profilanswer
 
n°2167298
Marc L
Posté le 08-12-2012 à 11:44:07  profilanswer
 

 
              Attention, utiliser FSO en VBA peut allonger les temps de traitement et je ne suis pas sûr que ce soit à la portée d'un débutant !
              D'autant que les instructions internes à VBA suffisent amplement pour la problématique en question …
 
              @dadex85 :  oublies le code précédent, je parie qu'il n'est pas de toi sinon tu aurais déjà trouvé par toi-même ‼
 
              Ecris-toi un scénario de ce que tu dois faire pour y arriver (donc en langage courant, pas informatique)
              et consultes l'aide de VBA sur OPEN notamment puis commence à écrire ton code …
 
              Dire "cela ne marche pas" n'est pas suffisant, il faut être précis sur ce qui ne fonctionne pas.
 
              Maintenant pourquoi avoir choisi VBA vu qu'il n'y a pas d'alimentation de données dans une feuille Excel par exemple ?
 
              Ensuite, si l'on te pose des questions, prends  "la peine"  d'y répondre sinon nous ne pourrons t'aider ...
 
              Sur ce, bon week-end ‼


Message édité par Marc L le 08-12-2012 à 11:45:55
n°2167423
dadex85
merci a tous
Posté le 10-12-2012 à 11:14:08  profilanswer
 

Bonjour a tous  
J'ai pu trouver une solution à mon problème:  
je mets le code au cas où ça interresserait quelqu'un  
 

Code :
  1. Option Explicit
  3. Dim Arret As Boolean
  5. Sub Depart()
  6.   Application.OnTime Now + TimeValue("00:16:39" ), "LectureFichier"
  7. End Sub
  9. Sub ArretLecture()
  10.   Arret = True
  11. End Sub
  13. Sub LectureFichier()
  14. Dim Nom As String
  15. Dim Canal As Integer
  16. Dim InputData As String
  17. Dim Ligne As Long
  18. Dim J As Long
  19. Dim Indice As Integer
  21.   If Arret = True Then Exit Sub
  22.   Application.ScreenUpdating = False
  23.   Nom = ThisWorkbook.Path & "\TrameRx_IP.DAT"
  24.   ' Création de la feuille
  25.   'Indice = 1
  26.   On Error Resume Next
  27.   Do
  28.     'Err.Clear
  29.     Indice = Indice + 1
  30.     Sheets("Enreg " & Indice).Visible = True
  31.   Loop Until Err.Number > 0
  32.   On Error GoTo 0
  33.   Sheets.Add after:=Sheets(Sheets.Count)
  34.   ActiveSheet.Name = "Enreg " & Indice
  35.   Range("A1" ) = Now
  36.   Ligne = 1
  37.  
  38.   ' Récupération du fichier
  39.   Canal = FreeFile()
  40.   Open Nom For Input As #Canal
  41.   Do While Not EOF(Canal)                   ' Vérifie si la fin du fichier est atteinte.
  42.     Line Input #Canal, InputData            ' Lit les lignes de données (normalement 1 ligne)
  43.     For J = 1 To Len(InputData) Step 800
  44.       Ligne = Ligne + 1
  45.       Range("A" & Ligne) = Trim(Mid(InputData, J, 800))
  46.     Next J
  47.   Loop
  48.   Close #Canal    ' Ferme le fichier.
  49.   Columns("A" ).AutoFit
  50.   ThisWorkbook.Save
  51.   Application.OnTime Now + TimeValue("00:16:39" ), "LectureFichier"
  52. End Sub


 
 
TimeValue("00:16:39" ) est le temps que met le transmetteur pour faire un enregistrement de 500 evenements  
 
Amicalement


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

  lecture dans un fichier à accès random

 

Sujets relatifs
Fichier texte trop volumineux/ extraire certaines données vers excelcalculer en rexx taille fichier ibm
Un template à partir d'un fichier xls ?comment connaitre la fin d'un fichier avec des fonctions de bas niveau
récuperer un caractère dans un fichier avec readDéclenchement Macro à l'ouverture du fichier
lecture d'un istringstream , recuperer l'erreurenvoi direct de fichier postcript a une imprimante reseau sans drivers
Accès fichier sur réseau local netbios 
Plus de sujets relatifs à : lecture dans un fichier à accès random

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

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