Lecture d'un fichier ASCIIRésolu

Question

Bonjour,

Je voulais savoir comment faire pour lire un fichier contenant de l'ASCII. 
Je voudrais recuperer tout le contenu du fichier mais lorsque le programme rencontre ce caractère "&#x0;1A;" il arrete alors la lecture .

Voici mon code : 

hFile = FreeFile()
Open txt_nomfichier For Input As #hFile
While Not EOF(hFile)
   Input #hFile, T
   Trim (T)
   text = text + T + Chr$(13) + Chr$(10)
Wend

Ex de contenu du fichier : 

papx{&#x0;13;&#x0;B;&#x0;12;&#x0;1B;p_VC[PP\&#x0;13;bFR_VRCV&#x0;13;r]WT&#x0;12;U^@&#x0;13;x\U^@^PFZ^\&#x0;13;x\GT@PYS]VW&#x0;13;&#x0;18;&#x0;12;}^@^T&#x0;12;W&#x0;16;W]R]WPUV&#x0;11;[]W]A\SGXCFT&#x0;12;WTA&#x0;13;RSAPQGÙ@VB&#x0;12;R]B[P\F\ÛAXCFTA&#x0;13;UW&#x0;13;]&#x0;15;R]B[PPVE&#x0;12;_PFZ_&#x0;1C;&#x0;13;}S&#x0;13;_]A\W&#x0;13;papx{&#x0;13;&#x0;19;]]&#x0;11;BA^\_QV&#x0;11;UÚ_ÛAP^V\W]E&#x0;12;&#x0;11;PAXX&#x0;10;&#x0;1A;&#x0;11;ÛGPP_XF&#x0;13;D\V&#x0;11;Q\C@VBB\_VR_QV&#x0;11;W]E@V&#x0;11;G]T&#x0;12;ATBAØAV_FRE[\_&#x0;12;QX\RX@V&#x0;11;VVB&#x0;12;PP@RRFÛCW@&#x0;11;VV&#x0;11;^&#x0;14;P^CYSQTF&#x0;13;]SGX\&#x0;13;TF&#x0;13;]W@&#x0;11;AJ\P\]W@&#x0;1D;&#x0;12;_TA&#x0;13;B[T_W@&#x0;1D;&#x0;12;BD[&#x0;13;R]]BFZEGV_F&#x0;13;RWG&#x0;11;S_AZRSWG&#x0;1F;&#x0;12;cP@&#x0;13;TJV\B_T&#x0;1E;&#x0;13;]W&#x0;13;RSAPQGÙ@V&#x0;11;&#x0;10;R&#x0;13;&#x0;12;VBF&#x0;13;PA@^QZØ&#x0;12;Ó&#x0;11;&#x0;10;&#x0;3;1&#x0;3;&#x0;3;&#x0;1;&#x0;2;&#x0;3;1&#x0;10;&#x0;13;TF&#x0;13;&#x0;13;s&#x0;11;&#x0;11;Ò&#x0;13;&#x0;13;&#x0;2;&#x0;2;&#x0;1;&#x0;2;&#x0;3;&#x0;1;&#x0;2;&#x0;2;&#x0;13;&#x0;1C;>;?9}S&#x0;13;_]A\W&#x0;13;papx{&#x0;13;AWA\WG&#x0;11;SZ_AZ&#x0;11;Ò&#x0;13;E]FEW@&#x0;11;A\CFVB&#x0;12;WT&#x0;12;^PQ[X\VB&#x0;12;WT&#x0;12;@E]PZWA&#x0;1D;&#x0;12;R_S_HAVC&#x0;12;VE&#x0;12;P^_^D\Z@GVC&#x0;12;WT&#x0;12;_&#x0;16;[]W]A\SGX]]&#x0;11;FVIFFT^_T&#x0;1C;&#x0;13;t\&#x0;13;ASAE[PD^ZT@&#x0;1F;&#x0;11;^R&#x0;11;CFPAZ&#x0;11;F\ES_XFÚ&#x0;11;VVB&#x0;12;\CVZ_SGTGAB&#x0;12;CT@@^\]T^@&#x0;11;WG&#x0;11;VVB&#x0;12;@ESGX]]B&#x0;12;WT&#x0;12;GCSEP[_&#x0;11;GGX^ZBW]E&#x0;12;_&#x0;16;W]R]WPUV&#x0;11;s`r{z&#x0;1F;

Merci d'avance

Renfield · Accepted Answer

MPi +1

ouvre en mode Binary et stockes le tout dans un tableau :

Dim hFile As Integer
Dim xData() As Byte
    hFile = FreeFile()
    Open txt_nomfichier.Text For Binary Access Read As #hFile
        ReDim xData(LOF(hFile))
        Get #hFile, , xData
    Close hFile

ensuite, tu n'a qu'a parcourir ton tableau xData pour anlyser chaque caractère comme tu le souhaites


NB: Wend est à OUBLIER

cs_MPi · Answer

Ça ne peut pas se faire facilement.
En fait, ça n'est pas de l'ASCII, ce que je vois...
Si ton fichier est crypté, tu dois connaître la clé (ou solution) du cryptage.

Dans certains cas, les fichiers sont écrits en binaire (illisible dans Notepad, disons). Il faut alors l'ouvrir en mode "Binary",
mais le fichier dont tu parles, ce n'est pas le cas, à ce que je peux voir ...

Pour lecture/écriture de caractères ASCII, si besoin est, regarde du côté de ASC, CHR, MID, ...

MPi

titi77200 · Answer

Merci !! ca marche !

Lecture d'un fichier ASCII

3 réponses

Votre réponse

Discussions similaires