lecture dans un fichier à accès random

lecture dans un fichier à accès random - VB/VBA/VBS - Programmation

Marsh Posté le 05-12-2012 à 12:14:20    

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

Reply

Marsh Posté le 05-12-2012 à 12:14:20   

Reply

Marsh Posté le 05-12-2012 à 18:26:08    

 
              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
Reply

Marsh Posté le 06-12-2012 à 10:25:39    

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

Reply

Marsh Posté le 06-12-2012 à 11:50:24    

Marc L a écrit :

[…] Pas d'aide possible sans structure …


Reply

Marsh Posté le 06-12-2012 à 12:21:07    

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

Reply

Marsh Posté le 06-12-2012 à 13:41:31    


             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é ?  
 

Reply

Marsh Posté le 06-12-2012 à 15:26:55    

-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

Reply

Marsh Posté le 06-12-2012 à 16:20:28    

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

Reply

Marsh Posté le 06-12-2012 à 17:10:02    

 
              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 ? …
 

Reply

Marsh Posté le 07-12-2012 à 10:44:15    

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

Reply

Marsh Posté le 07-12-2012 à 10:44:15   

Reply

Marsh Posté le 08-12-2012 à 09:43:42    

Reply

Marsh Posté le 08-12-2012 à 11:44:07    

 
              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
Reply

Marsh Posté le 10-12-2012 à 11:14:08    

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

Reply

Sujets relatifs:

Leave a Replay

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