Discussion :

[vinceago]

Bonjour,

je souhaite lire un fichier pour identifier une balise et quand celle-ci est trouvé, de récupérer la ligne en dessous. Ce fichier est particulier car c'est le code source d'une page.
Le problème est qu'apparemment il ne lit pas entièrement le fichier.

Ce fichier contient des balises et diverses informations mais également des suites de caractèresspéciaux.
Voici le début :

00015E00 0
DC025E01 6
# [ ^
DC025E02 6
^ ] #
__][)(__
00012A00 1
DC020002 18
c a r r i e r e . g q l
8001001F 0
88082A01 1FFA
00000202 00001F74

Voici apparemment l'endroit ou il s'arrête :
è IUPH!
xœí˜ÏOAÇ¿Ûª¡£

Et voici les lignes justes après :
7ѤÔñGÓˆum‹4]i ñ l‰$ÝvÝ[ox0Æ�?Aÿ‰ý¼¯Õ¿À“ú�é®.Íz(Rèû�Ç›÷f¦»í¼™y3Ýq*X²æ.À"HÏê‘´¡Å€*ÿ§ÿ´SÚDId°s&7üŠ*úŸJ왌ÓýøÉg*�Å3¬`k”žà
„£„Œ¿ Œ.j·²‚r¸gt:�]:J&hgï©Ù¾—ô¬øž”¢#môo£öÅyÜÀæQáκ˜ô á2ÑßÂ&šp¸Smb/i×p÷°_Lr¢¹°’mì^_Œ˜ôC*Cç¨/�N˧ÑËûa›h}•ó+ Éã:ÿl¸Œia4™`œ\H:¬ ‚p¬Ùo ÷GçÀ|}Ra�¨¹gqny]ž1<ž/|d™›]cnæ0Cëy|ZM4XãÒöh+«Á~uÖøøFŽ"*Îþc[aÌxõãEEŠ*¿ÒQ‘ÅÆ…¯ýë,)Ï-ÜÄ*[(ß
£Ç=¸¯"Â`–3yMßLyxÍy]äì_×9Z�ÞÑØ ÔÝÇý4à»õV³•ÏMÖÚ5å�ß*„„÷,až×Q.FíÔ „ïXÀ,cI¯ã6G²Åq[¦¸Ö¶óÈa’#ÛFmp?›0tÈ)k´)ã1*¨RW±¨õz„Q#sØ/  eË,–Š•‡fµ`Zå‰é�³ïrÝÒ›Ï_o�?�~´§ÃÆΗ·W”Þ_ù>õá|û“e=˜3KÖ>-‚ ‚ ‚

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Do While Not EOF(CodeFichier)
 
    Line Input #CodeFichier, Ligne
 
        ' Recherche de la balise "DC020603"
         PositionRecherchee = InStr(Ligne, "DC020603")
 
        ' Lecture de la ligne suivante si la balise a été trouvée
        If PositionRecherchee > 0 Then
            Line Input #CodeFichier, Ligne
            ' La ligne lue contient le nom du fichier de connexion par défaut.
            RechercheNomFichierConnexion = Ligne
            Trace.AjouteTrace "W:\Q60\", "dq60adif.trc", "Nom du fichier de connexion associe au modele (version du modele BI V10.3.2) : " & Ligne
            Exit Do
        End If

[DAUDET78]

Tu ouvres comment ton fichier ? Il faut l'ouvrir en Binary

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "Mon_fichier" For Binary as #1

Et utiliser les instructions Get , FileLen

[vinceago]

Bonjour et merci pour la réponse

[DAUDET78]

Bonjour et merci pour la réponse

C'est la bonne solution ou pas ? Si ça marche bien, tu mets un pouce vert sur ma réponse .

[ProgElecT]

C'est la bonne solution ou pas ?......... .

et tu marques ta discussion en