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
Partager