Macro sous excel et fichier txt

anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008 - 19 déc. 2008 à 09:01
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008 - 24 déc. 2008 à 11:18
Bonjour
Je suis en train de créer un petit code sur excel pour aller chercher un mot dans un fichier txt.

Explications:
Je souhaiterai mettre dans une cellule (A2) le mot que je recherche puis appuyer sur un bouton et lancer cette recherche.
La recherche ce fait dans un fichier texte ou il y a des caractères spéciaux.

Le probleme est que ce fichier en question comporte dans ligne très longue et certain caractéres qui me fond stopper mon programme avant d'arriver a la fin du fichier.

19 réponses

anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
19 déc. 2008 à 09:02
Voici le code
Sub Fichiertxt()
    'Declaration des variables
    Dim F1, NbreTag As Integer
    Dim sourcefile As String 'variables pour fichier original et fichier de copie
    Dim SearchText As String, ReplaceText As String 'variables pour remplacer le texte
    Dim p As Variant
    Dim a As Variant
    Dim TextLigne
    Dim PosDebut As String
   
sourcefile = Worksheets(1).Range("E3").Value + Worksheets(1).Range("E4").Value
F1 = FreeFile
Open sourcefile For Binary Access Read Write As #1

Do Until a = 1000
On Error GoTo fin
        numligne = 2
        TextLigne = ""
Line Input #1, TextLigne 'Lecture de la ligne courante dans fichier original
            SearchText = Worksheets(1).Cells(2, 1).Value
            Worksheets(1).Cells(2, 2).Value = TextLigne
            p = InStr(p + 1, UCase(TextLigne), UCase(SearchText))
If (p > 0) Then NbreTag = NbreTag + 1
    a = a + 1
fin:
PosDebut = Seek(1)
Seek 1, PosDebut - 1
Print #1, Chr(13)
Loop
Close #1
MsgBox NbreTag & "," & a & "," & PosDebut
End Sub
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
19 déc. 2008 à 09:04
Par contre comment faire pour vous mettre le fichier txt???
Car il est très long!!!!

Merci d'avance de vos réponse.
Bon courage;
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
19 déc. 2008 à 11:09
Bonjour

Normalement dans un fichier texte il n'y a pas tant de caractères spéciaux .

Je veux dire aucun caractère binaire de fin de fichier par exemple sinon le fichier est un faux fichier texte donc apparenté à un fichier binaire.

Il me semble que tu dois avoir des doutes.Puisque tu ouvres le fichier en mode Binary. Qui plus est, je ne comprend pas pourquoi avec un Access Write avec une commande print 13 pour ajouter un saut de ligne.

Pour verifier le fichier utilise un editeur hexadécimal exemple : Notepad++.
Notepad++ au passage compte le nombre d'occurence trouvé dans un fichier dans la fenetre Rechercher/Remplacer : pratique non.
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
19 déc. 2008 à 11:28
Voici un bout du fichier txt.
Si je cherche BUTTON18 il ne me le trouve pas!!!

Ï�11;à
DeltaVÿÿÿ
ÿÿÿ
ÿDeltaVÿÿÿ

      (     �1; �3;      ™�F;          �F;      8 _ _ S R P _ 0                                                   �10; �2;�1;�3;   �6;   ÿÿÿÿ                                    �7;   ‚.      _ _ S R P _ 1                                                   �10; �2;�1;ÿÿÿÿÿÿÿÿÿÿÿÿ                                    �14;   Ý�7;      _ _ S R P _ 2                                                   �10; �2; �5;   �8;   ÿÿÿÿ                                    #   �18;�17;      _ _ S R P _ 3                                                   �10; �2; ÿÿÿÿÿÿÿÿÿÿÿÿ                                    4   »�8;      “K*m�1; �10;   ÿÿ    �1; �2; ÿÿ    �1; �5; �7; �5; �5; �5; �5; �5; �5; �5; �5; �5; �5; �5; �5;   rU€�B;   �1;  €   €   �4;  ~�5;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�1;  ~�5;  ~�5;  ~�1;  ~�5;  ~�1;  ~�1;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�2;  �5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~�5;  ~O      �15;            �1; �8;       É       ÁAFÄõa$CŒð·Žd¢´ê�1;     �4;  �C;�4;  ä�4;      �1; ÿÿÿÿ�1; ƒ
  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ù       �8; ¹�1;                      ±�2;                      ‘�3;                      ‘�4;                      a�6;                      q�8;               
       I
                      )#                      �1;  �2;    �5;  �2;�10;   Project_Arco2rg1�3;  �2;�8;   Arco2rg1�4;  �3;ï�4;�2;     À      F�C;  �2;/   C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL�1;  �2;�3;   VBA
 
�19;�1;      ÿÿÿÿ�4;          A�1;      ©�1;      `             �4;  �3;…üa$N�1D;Ñ�11;£M  $ÍÕå      �2;"   C:\DeltaV\iFix\FixScriptGlobal.tlb�4;  �2;�F;   FixScriptGlobal
 
�11;�2;      ÿÿÿÿ�1;       �4;  9�2;      ‰�2;      p             �4;  �3;0�4;�2;     À      F�8;  �2;�1D;   C:\WINNT\System32\STDOLE2.TLB�2;  �2;�6;   stdole
 
    �3;      ÿÿÿÿ�2;       1�3;      y�3;      €             �3;  �2;�B;   REGL_SECU_9�4;  �3;á.E
à�1A;�10;….�2;`ŒM�B;´�8;  �2;�1C;   C:\WINDOWS\System32\FM20.DLL�2;  �2;�7;   MSForms
 
    �4;          �4;      �2;       1�4;      y�4;             �3;   �1; �4;  �3;�16;q=ÜÇ÷LN¬IXÞÄâ
D�C;  �2;/   C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\\MSForms.exd
 
é�4;          �4;      �2;       �11;�5;      y�4;              �3;   �2; �4;  �3;    üa$N�1D;Ñ�11;£M  $ÍÕå�8;  �2;�1E;   C:\DeltaV\iFix\Fix2DBitmap.tlb�3;  �2;�B;   Fix2DBitmap
 
Ñ�5;      Ñ�5;      �1;       �4;  ù�5;      A�6;      °       �2;   �1; �4;  �3;ëJüÚ�7;!Mµ—Vn p�13;A
  �2;3   C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\\Fix2DBitmap.exd
 
¹�6;      Ñ�5;      �1;       �4;  á�6;      
A�6;      À       �2;   �2; �4;  �3;!üa$N�1D;Ñ�11;£M  $ÍÕå�4;  �3;÷NµËýúFK‹JQ�1C;�12;AÌ6�1;  �8;  �2;�1D;   C:\DeltaV\iFix\Fix2DGroup.tlb�3;  �2;
   Fix2DGroup
 
©�7;      ©�7;      �1;       �4;      �8;      Q�8;      Р      �2;   �1; �4;  �3;yæìdŽ1|F¹Ð‘�2;�12;�B;wº
  �2;2   C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\\Fix2DGroup.exd
 
É�8;      ©�7;      �1;       �4;  ñ�8;      Q�8;      à       �2;   �2; �4;  �3;–üa$N�1D;Ñ�11;£M  $ÍÕå�8;  �2;�1E;   C:\DeltaV\iFix\FixVariable.tlb�3;  �2;�B;   FixVariable
 
¹          ¹          �1;       �4;  á          )
      ð       �2;   �1; �4;  �3;u�1;�1C;k3»
M¼éBƒSÉ©Ÿ
  �2;3   C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\\FixVariable.exd
 
¡
      ¹          �1;       �4;  É
      )
       �1;      �2;   �2; �4;  �3;6ýa$N�1D;Ñ�11;£M  $ÍÕå�4;  �3;�1F;ý¢>É›ÂG°½ÉPÉz¤Ù�4;  �3;4üa$N�1D;Ñ�11;£M  $ÍÕå�4;  �3;�B;üa$N�1D;Ñ�11;£M  $ÍÕå�5;  �2;�11;   bmpPrimaryPicture�4;  �3;�C;üa$N�1D;Ñ�11;£M  $ÍÕå�2;  �2;�5;   bmpIA�4;  �3;Á�E;�2;{l¯Î�11;ŸF ª WJO�3;  �2;�8;   BUTTON11
�4;  �3;@2�5;×iÎÍ�11;§w Ý�1;�14;<W�3;  �2;�8;   BUTTON18�4;  �3;#üa$N�1D;Ñ�11;£M  $ÍÕå�3;  �2;�B;   REGL_SECU_6�4;  �3;$üa$N�1D;Ñ�11;£M  $ÍÕå�3;  �2;�B;   REGL_SECU_5�3;  �2;�B;   REGL_SECU_7�3;  �2;�B;   REGL_SECU_4�3;  �2;�8;   BUTTON10�3;  �2;�8;   BUTTON12�3;  �2;�B;   REGL_SECU_3�3;  �2;�8;   BUTTON13�3;  �2;�8;   BUTTON14�3;  �2;�8;   BUTTON15�4;  �2;�E;   bmpNextPicture�3;  �2;�B;   REGL_SECU_2�4;  �3;3üa$N�1D;Ñ�11;£M  $ÍÕå�3;  �2;�B;   CFixPicture�4;  �3;1üa$N�1D;Ñ�11;£M  $ÍÕå�3;  �2;
   FixPicture
 
Q�F;      ÿÿÿÿ�1;       �4;  ÿÿÿÿy�F;      �10;�1;            �2;  �4;  �2;�F;   NavigateButtons�3;  �2;�B;   REGL_SECU_8�3;  �2;�8;   BUTTON16�3;  �2;�B;   REGL_SECU_1�3;  �2;�8;   BUTTON17�3;  �2;
   REGL_SECU_�4;  �3;˜üa$N�1D;Ñ�11;£M  $ÍÕå�5;  �2;�10;   Previous_Picture�4;  �3;™üa$N�1D;Ñ�11;£M  $ÍÕå�4;  �2;�C;   next_picture�5;  �2;�12;   bmpPreviousPicture�3;  �2;�8;   BUTTON19�2;  �2;�6;   prevTG�2;  �2;�6;   nextTG�3;  �2;       bmpDetail�4;  �3;ďY�4;l†Ï�11;«| ª ÀÏ�4;  �3;—üa$N�1D;Ñ�11;£M  $ÍÕå�4;  �3;
üa$N�1D;Ñ�11;£M  $ÍÕå�4;  �3;"üa$N�1D;Ñ�11;£M  $ÍÕå�4;  �2;�E;   BUTTON10_Click�4;  �2;�E;   _Click�4;  �2;�E;   BUTTON16_Click�4;  �2;�E;   BUTTON15_Click�4;  �2;�E;   BUTTON14_Click�4;  �2;�E;   BUTTON13_Click�5;  �2;�10;   REGL_SECU_7_Edit�5;  �2;�10;   REGL_SECU_6_Edit�5;  �2;�10;   REGL_SECU_5_Edit�5;  �2;�10;   REGL_SECU_4_Edit�4;  �2;�E;   BUTTON12_Click�5;  �2;�10;   REGL_SECU_3_Edit�4;  �2;�E;   BUTTON19_Click�4;  �2;�E;   BUTTON18_Click�4;  �2;�E;   BUTTON11_Click�5;  �2;�10;   REGL_SECU_2_Edit�5;  �2;�10;   REGL_SECU_9_Edit�5;  �2;�10;   REGL_SECU_8_Edit�5;  �2;�10;   REGL_SECU_1_Edit�4;  �2;�F;   REGL_SECU__Edit�6;  �2;�16;   CFixPicture_Initialize�6;  �2;�14;   NavigateButtons_Edit�6;  �2;�14;   bmpNextPicture_Click�7;  �2;�18;   bmpPreviousPicture_Click�3;  �2;�B;   bmpIA_Click�6;  �2;�17;   bmpPrimaryPicture_Click�4;  �2;�F;   bmpDetail_Click�4;  �3;iüa$N�1D;Ñ�11;£M  $ÍÕå
  �2;!   C:\DeltaV\iFix\Fix2DRectangle.tlb?  
ü ü 0�1;  <     �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; 4 �3; < �3; D �3; L �3; ¸ �3; ¬ �3; „ �3; l �3; \ �3; T �3; d �3; Ø �3; t �3; è �3; | �3; Œ �3; ” �3; œ �3; Ð �3; à �3; ð �3; ø �3;  �1;�3; ¤ �3; À �3; È �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ” �3; œ �3; ¤ �3; ¬ �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; �4;  �3;©¥ih�7;ÎÃL¡ý¶Ð‹G©«
 
    �1A;          �4;      �2;       �11;�5;      y�4;       �1;      �3;   �2; �4;  �3;{lÝ�10;>�17;@ŒUB$q†­
 
‰�1A;      Ñ�5;      �1;       �4;  á�6;      A�6;      0�1;      �2;   �2; �4;  �3;M7®[š�1;CM¹þ�10;Y"…:b
 
    �1B;      ©�7;      �1;       �4;  ñ�8;      Q�8;      @�1;      �2;   �2; �4;  �3;§¬ƒ�5;ŸhŒF«`�6;úâ‰f3
 
‰�1B;      ¹          �1;       �4;  É
      )
      P�1;      �2;   �2; �4;  �2;�E;   Fix2DRectangle
 
‰�17;      ‰�17;      �1;       �4;  ±�17;          �1C;      `�1;      �2;   �1; �4;  �3;1ò¡Š:¾¡B€c_À§™}7�E;  �2;6   C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\\Fix2DRectangle.exd
 
‰�1C;      ‰�17;      �1;       �4;  ±�1C;          �1C;      p�1;      �2;   �2; �4;  �3;îoaŽw§�4;O¡  ª¹)UE�4;  �3;R%Çµ�13;�6;J’BìÑwÏ�8;;�4;  �3;küa$N�1D;Ñ�11;£M  $ÍÕå�2;  �2;�5;   RECT2�4;  �3;lüa$N�1D;Ñ�11;£M  $ÍÕå�4;  �3;jüa$N�1D;Ñ�11;£M  $ÍÕå�8;  �2;�1F;   CFixPicture_InitializeConfigure�3;  �2;�B;   RECT2_Click
  �2;3   C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\\FixDataLink.exd
 
#      ™'      �1;       �4;  É�1E;          #      0�2;      �2;   �2; �4;  �3;ñ†b±ëÀI’ø…éþ”†Ð�4;  �3;¼€C�12;5©¨A”ÿcp› ˜=�4;  �3;Öüa$N�1D;Ñ�11;£M  $ÍÕåA  
�4;�1;�4;�1;8�1;  >       �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; X �3; H �3;  �1;�3; �8;�1;�3; �10;�1;�3; è �3; à �3; € �3; ˆ �3;  �3; ˜ �3; ð �3; ø �3;  �1;�3; �18;�1;�3; P �3; x �3; ` �3; (�1;�3; 4 �3; < �3; p �3; h �3; 4 �3; < �3; H �3; P �3; X �3; ` �3; h �3; p �3; x �3; € �3; ˆ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; �4;  �3; �4;�2;     À      F�4;  �3;”JÜLjjØC¸@R./¦ù�4;  �3;f�10;ÜйqrC˜÷Õù�C;�1B;‹d�4;  �2;�C;   pn_myMonitor�4;  �2;�C;   pb_isNotMain�4;  �2;�E;   ps_CurrentLink�3;  �2;�B;   FixDataLink
 
™'      ™'      �1;       �4;  Á'          #       �2;      �2;   �1; �4;  �3;�1E;ƒ6²iCËBŒ®*þ…Ÿ¶�3;  �2;�B;   DataLink101�4;  �3;×üa$N�1D;Ñ�11;£M  $ÍÕå�2;  G  
�1C;�1;�1C;�1;P�1;  D     4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; �8;�1;�3; ø �3; Ø �3; ¼ �3; ¬ �3; œ �3; „ �3;  �1;�3; t �3; 0�1;�3; | �3; Œ �3; ¤ �3; ” �3; Ä �3; Ì �3; à �3; ´ �3; è �3; ð �3;  �1;�3; �18;�1;�3; �10;�1;�3; (�1;�3; 8�1;�3; @�1;�3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ” �3; œ �3; ¤ �3; ¬ �3; ´ �3; ¼ �3; Ä �3; Ì �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; @�1;�3; �4;  �3;א‚@¤!�2;O¡Çy¬bR×O
 
I&      ‰�17;      �1;       �4;  ±�1C;          �1C;      à�1;      �2;   �2; �4;  �3;-    XǼ®ŒJ£Ã�8;ï˜G‚`�4;  �3;¤5ÐÅQ�12;�F;@¸&¸¡î^U‘�6;  �2;�15;   CFixPicture_MouseDown�8;  �2;�1C;   CFixPicture_SelectionChanged�4;  �3;Ôüa$N�1D;Ñ�11;£M  $ÍÕå�8;  �2;�1E;   C:\DeltaV\iFix\FixDatalink.tlb�3;  �2;�B;   DATA_TC_AB_�2;  �2;�7;   Button1�4;  �3;Õüa$N�1D;Ñ�11;£M  $ÍÕå�4;  �2;
   Button1_Click�5;  �2;�10;   DATA_TC_AB__Edit�5;  �2;�11;   DataLink101_Click�5;  �2;�10;   DataLink101_Edit%  
” ” È   "     € �3; ˆ �3; ° �3; ¸ �3;   �3; 4 �3; < �3; D �3; L �3; T �3; p �3;  �3; ˜ �3; ¨ �3; \ �3; h �3; x �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; h �3; p �3; x �3; € �3; ˆ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; �4;  �3;ãK’ÕxÔKE›ØøÙ�F;�13;    Í�4;  �3; Ö'y[ŽûB—ú3èî?„p�2;  �2;�7;   Button2�4;  �2;�C;   DATA_TC_AB_1�3;  �2;�B;   DataLink106�4;  �2;
   Button2_Click�5;  �2;�11;   DATA_TC_AB_1_Edit�5;  �2;�11;   DataLink106_Click�5;  �2;�10;   DataLink106_Edit      +  
¬ ¬ à   (     \ �3; | �3; d �3; l �3; t �3; „ �3; Œ �3; ” �3; ¬ �3; ¤ �3; Ð �3; D �3; L �3; T �3; œ �3; ¸ �3; À �3; È �3; < �3; 4 �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ” �3; œ �3; ¤ �3; ¬ �3; ¸ �3; À �3; È �3; Ð �3; �4;  �3;C�1E; �3;û¢ÍE„ö@æ�C;ƒ‘Æ�4;  �3;¡¿û�5;‚µúH¦‰Žh�3;�C;õv�4;  �2;�C;   DATA_TC_AB_2�3;  �2;�B;   DataLink111�2;  �2;�7;   Button3�4;  �2;
   Button3_Click�5;  �2;�11;   DATA_TC_AB_2_Edit�5;  �2;�11;   DataLink111_Click�5;  �2;�10;   DataLink111_Edit&  1  
Ä Ä ø   .     È �3; Ð �3; Ø �3; à �3; è �3; < �3; T �3; h �3; p �3; ˜ �3; ˆ �3; ¨ �3; ° �3; ¸ �3; 4 �3; D �3; L �3; \ �3; € �3; x �3;  �3;   �3; À �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; h �3; p �3; x �3; € �3; ˆ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; �4;  �3;ȝ¤5ŠÇúJ¢Él�1C;�1D;AÁ(�4;  �3;ƒ!¯�18;‰�B;¦@¦ò^�8;¡{qî�4;  �2;�C;   DATA_TC_AB_3�3;  �2;�B;   DataLink116�2;  �2;�7;   Button4�4;  �2;
   Button4_Click�5;  �2;�11;   DATA_TC_AB_3_Edit�5;  �2;�11;   DataLink116_Click�5;  �2;�10;   DataLink116_Edit   7  
Ü Ü �10;�1;  4     ø �3;  �1;�3; 4 �3; < �3; D �3; d �3; l �3; | �3;   �3; „ �3; ¸ �3; Ø �3; à �3; è �3; L �3; T �3; \ �3; t �3;  �3; ¨ �3; ˜ �3; ° �3; À �3; È �3; Ð �3; ð �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �4;  �3;›~�C;þ�11;•”I´=·øsNv�4;  �3;½N�6;ê4a½AˆLã nÕx‰�4;  �2;�C;   DATA_TC_AB_4�3;  �2;�B;   DataLink121�2;  �2;�7;   Button5�4;  �2;
   Button5_Click�5;  �2;�11;   DATA_TC_AB_4_Edit�5;  �2;�11;   DataLink121_Click�5;  �2;�10;   DataLink121_Edit�1A;  =  
ô ô (�1;  :     4 �3; \ �3; D �3; L �3; T �3; Œ �3; ¸ �3; À �3; œ �3; ¤ �3; Ð �3; ð �3; ø �3;  �1;�3; < �3; d �3; l �3; t �3; „ �3; | �3; ” �3; ° �3; à �3; È �3; Ø �3; è �3; �8;�1;�3; �10;�1;�3; �18;�1;�3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ” �3; œ �3; ¤ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3; �4;  �3;.Z伕-ŒI‚çoß2Óè�4;  �3;D�13;K""�1A;™I¬ý‚êd~Ï:�2;  �2;�7;   Button6�4;  �2;�C;   DATA_TC_AB_5�3;  �2;�B;   DataLink126�4;  �2;
   Button6_Click�5;  �2;�11;   DATA_TC_AB_5_Edit�5;  �2;�11;   DataLink126_Click�5;  �2;�10;   DataLink126_Edit�14;  C  
�C;�1;�C;�1;@�1;  @     ” �3; œ �3; Ì �3; ´ �3; Ä �3; ì �3; ô �3; ü �3; �4;�1;�3; �C;�1;�3; 4 �3; T �3; \ �3; d �3; Œ �3; ¤ �3; ¬ �3; ¼ �3; Ü �3; Ô �3; ä �3; 0�1;�3;  �1;�3; �18;�1;�3; (�1;�3; < �3; L �3; l �3; D �3; | �3; „ �3; t �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ” �3; œ �3; ¤ �3; ¬ �3; ´ �3; ¼ �3; Ä �3; Ì �3; Ô �3; Ü �3; ä �3; ì �3; ô �3; ü �3; �4;�1;�3; �C;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; �4;  �3;K'sNù&±E¾$•´�10;íN,�4;  �3;T’�1; ªh™Fˆ´1%µ�12;Pè�2;  �2;�7;   Button7�4;  �2;�C;   DATA_TC_AB_6�3;  �2;�B;   DataLink131�4;  �2;
   Button7_Click�5;  �2;�11;   DATA_TC_AB_6_Edit�5;  �2;�11;   DataLink131_Click�5;  �2;�10;   DataLink131_Edit�5;  �2;�10;   DataLink136_Edit�5;  �2;�10;   DataLink146_Edit�2;  I  
$�1;$�1;X�1;  F     8�1;�3; @�1;�3; H�1;�3; 4 �3; < �3; l �3; t �3; | �3;   �3; Œ �3; ¸ �3; à �3; è �3; ð �3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; L �3; D �3; T �3; \ �3; d �3; „ �3; ˜ �3; ° �3; È �3; À �3; ¨ �3; Ø �3; ø �3; Ð �3; �8;�1;�3; �10;�1;�3;  �1;�3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; @�1;�3; H�1;�3; �4;  �3;i¢Êl¾‡öG†½÷ÅhÙ�1B;�4;  �3;‚Ÿ»�13;yâá@°M¹ë“æ    ±�4;  �3;Žû�8;϶ø(@£HóvÆLH6�4;  �3;÷�10;7u/yóKŽŸS{6he�2;  �2;�7;   Button8�4;  �2;�C;   DATA_TC_AB_7�3;  �2;�B;   DataLink136�4;  �2;
   Button8_Click�5;  �2;�11;   DATA_TC_AB_7_Edit�5;  �2;�11;   DataLink136_Click�4;  O  
<�1;<�1;p�1;  L     ¤ �3; ¬ �3; ä �3; ¼ �3; Ä �3; �4;�1;�3; �C;�1;�3; �14;�1;�3; @�1;�3; H�1;�3; P�1;�3; < �3; D �3; L �3; „ �3; Œ �3; ” �3; œ �3; Ô �3; ´ �3; Ì �3; Ü �3; ì �3; ô �3; ü �3; �1C;�1;�3; ,�1;�3; 8�1;�3; $�1;�3; `�1;�3; 4 �3; X�1;�3; \ �3; d �3; T �3; t �3; | �3; l �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ” �3; œ �3; ¤ �3; ¬ �3; ´ �3; ¼ �3; Ä �3; Ì �3; Ô �3; Ü �3; ä �3; ì �3; ô �3; ü �3; �4;�1;�3; �C;�1;�3; �14;�1;�3; �1C;�1;�3; $�1;�3; ,�1;�3; 8�1;�3; @�1;�3; H�1;�3; P�1;�3; X�1;�3; `�1;�3; �4;  �3;ö4Ûá!ŠåO–|- }DA¦�4;  �3;‹œV–:N†³q�1F;Š�1F;?Ý�2;  �2;�7;   Button9�3;  �2;�B;   DataLink141�4;  �2;�C;   DATA_TC_AB_8�4;  �2;
   Button9_Click�5;  �2;�11;   DATA_TC_AB_8_Edit�5;  �2;�11;   DataLink141_Click�5;  �2;�10;   DataLink141_Edit�2;  U  
T�1;T�1;ˆ�1;  R     L �3; T �3; \ �3; t �3; l �3; ¤ �3; ¬ �3; ¼ �3; Ä �3; Ì �3; ð �3; �10;�1;�3; �18;�1;�3;  �1;�3; `�1;�3; h�1;�3; p�1;�3; x�1;�3; < �3; 4 �3; D �3; d �3; | �3; „ �3; Œ �3; ” �3; ´ �3; Ø �3; œ �3; ø �3; è �3; à �3; �8;�1;�3; (�1;�3;  �1;�3; 8�1;�3; @�1;�3; 0�1;�3; P�1;�3; X�1;�3; H�1;�3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; | �3; „ �3; Œ �3; ” �3; œ �3; ¤ �3; ¬ �3; ´ �3; ¼ �3; Ä �3; Ì �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; @�1;�3; H�1;�3; P�1;�3; X�1;�3; `�1;�3; h�1;�3; p�1;�3; x�1;�3; �4;  �3;%ÓIŽy±ÀO²�1;öï¿åó�4;  �3;›1àf¶¼“M”ðé�1E;�13;jþ”�4;  �2;�C;   DATA_TC_AB_9�3;  �2;�B;   DataLink146�3;  �2;�8;   Button10�4;  �2;�E;   Button10_Click�5;  �2;�11;   DATA_TC_AB_9_Edit�5;  �2;�11;   DataLink146_Click�1;  [  
l�1;l�1; �1;  X     @�1;�3; P�1;�3; X�1;�3; H�1;�3; `�1;�3; 4 �3; < �3; D �3; L �3; T �3; € �3; ˜ �3;   �3; ¨ �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �18;�1;�3; �10;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; p�1;�3; h�1;�3; €�1;�3; �1;�3; x�1;�3; p �3; h �3; ` �3; ˆ �3;  �3; x �3; À �3; ¸ �3; ° �3; Ð �3; Ø �3; È �3; à �3; è �3; ˆ�1;�3; 4 �3; < �3; D �3; L �3; T �3; ` �3; h �3; p �3; x �3; € �3; ˆ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; @�1;�3; H�1;�3; P�1;�3; X�1;�3; `�1;�3; h�1;�3; p�1;�3; x�1;�3; €�1;�3; ˆ�1;�3; �1;�3; �4;  �3;©»it�1;€8K…�1;�11;�19;�E;X†®�4;  �3;08�C;-ÿŒ�B;CÈ‰´Ä¸=�19;  [  
l�1;l�1; �1;  X     0�1;�3; 8�1;�3; @�1;�3; H�1;�3; P�1;�3; 4 �3; < �3; D �3; L �3; T �3; € �3; ¨ �3; ¸ �3; À �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �18;�1;�3; �10;�1;�3;  �1;�3; (�1;�3; h�1;�3; X�1;�3; `�1;�3; p�1;�3; €�1;�3; �1;�3; x�1;�3; ` �3; h �3; p �3; ˆ �3;  �3; x �3;   �3; ° �3; ˜ �3; Ð �3; Ø �3; È �3; à �3; è �3; ˆ�1;�3; 4 �3; < �3; D �3; L �3; T �3; ` �3; h �3; p �3; x �3; € �3; ˆ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; @�1;�3; H�1;�3; P�1;�3; X�1;�3; `�1;�3; h�1;�3; p�1;�3; x�1;�3; €�1;�3; ˆ�1;�3; �1;�3; �4;  �3;öá�1E;%Øs§M¼c“#1`{Ó�4;  �3;Çu×^�19;rƒH” P7£l®�B;�4;  �3;ßܳ�3;ŒvoL¯l+jyH¨_�4;  �3;‡~•Ó
›A’-â8�10;’Ð�1F;�4;  �3;2üa$N�1D;Ñ�11;£M  $ÍÕå�4;  �3;Lû�3;_)eLC•Üs> jU�5;  �3;ZLóJÜÃÃF¯pS)L½¥fY  
d�1;d�1;˜�1;  V     H�1;�3; P�1;�3; h�1;�3; p�1;�3; x�1;�3; T �3; \ �3; d �3; l �3; t �3; ° �3; ¸ �3; À �3;  �1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; 0�1;�3; (�1;�3; 8�1;�3; @�1;�3; X�1;�3; `�1;�3; €�1;�3; ˆ�1;�3; D �3; L �3; < �3; ˆ �3; € �3;  �3;   �3; ¨ �3; ˜ �3; È �3; Ð �3; Ø �3; è �3; ð �3; à �3; ø �3; �8;�1;�3; 4 �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; € �3; ˆ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; @�1;�3; H�1;�3; P�1;�3; X�1;�3; `�1;�3; h�1;�3; p�1;�3; x�1;�3; €�1;�3; ˆ�1;�3; �4;  �3;EýÃÂ�7;¥YKˆ    �8;w³7è—�4;  �3;kdŠJÓ�F;µD¹�18;üMʽс�1B;  Y  
d�1;d�1;˜�1;  V     H�1;�3; P�1;�3; `�1;�3; €�1;�3; h�1;�3; T �3; \ �3; d �3; l �3; t �3; ° �3; ¸ �3; À �3;  �1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; 0�1;�3; (�1;�3; 8�1;�3; @�1;�3; x�1;�3; X�1;�3; p�1;�3; ˆ�1;�3; D �3; L �3; < �3; ˆ �3; € �3;  �3;   �3; ¨ �3; ˜ �3; È �3; Ð �3; Ø �3; è �3; ð �3; à �3; ø �3; �8;�1;�3; 4 �3; 4 �3; < �3; D �3; L �3; T �3; \ �3; d �3; l �3; t �3; € �3; ˆ �3;  �3; ˜ �3;   �3; ¨ �3; ° �3; ¸ �3; À �3; È �3; Ð �3; Ø �3; à �3; è �3; ð �3; ø �3;  �1;�3; �8;�1;�3; �10;�1;�3; �18;�1;�3;  �1;�3; (�1;�3; 0�1;�3; 8�1;�3; @�1;�3; H�1;�3; P�1;�3; X�1;�3; `�1;�3; h�1;�3; p�1;�3; x�1;�3; €�1;�3; ˆ�1;�3; �4;  �3;
²„s�7;+£H¥�1A;�16;H›�18;�4;  �3;hµ�15;÷ÅfËA‰®Hƒ"�5;ƒ‘�1B;                                                                                                                                                                                                                                                                                                                                                                                                        �1; �3;      9�B;      )�11;      H     �1; �3;  �8;�8;   BUTTON19�3;      y�5;      �19;�12;      X     �1; �2;  �8;�6;   prevTG�3;      9�B;      A�12;      h     �1; �2;  �8;�6;   nextTG�3;  �8;       bmpDetail�3;      Q�7;      i�12;      x     �1; �5;  �8;�11;   bmpPrimaryPicture�2;  �8;�5;   bmpIA�3;  �8;�8;   BUTTON11�3;  �8;�8;   BUTTON18�3;  �8;�B;   REGL_SECU_9�3;      a          ‘�12;      ˆ     �1; �3;  �8;�B;   REGL_SECU_2�3;  �8;�B;   REGL_SECU_3�3;  �8;�B;   REGL_SECU_4�3;  �8;�B;   REGL_SECU_5�3;  �8;�B;   REGL_SECU_6�3;  �8;�B;   REGL_SECU_7�3;  �8;�B;   REGL_SECU_1�3;  �8;�8;   BUTTON10�3;  �8;
   REGL_SECU_�3;  �8;�8;   BUTTON12�3;  �8;�8;   BUTTON13�1;  �8;�1;   X�3;  �8;�8;   BUTTON14�3;  �8;�8;   BUTTON15�3;  �8;�8;   BUTTON16�3;  �8;�8;   BUTTON17�5;  �8;�10;   Previous_Picture�4;  �8;�C;   next_picture�5;  �8;�12;   bmpPreviousPicture�4;  �8;�E;   bmpNextPicture�4;  �8;�F;   NavigateButtons�3;  �8;�B;   REGL_SECU_8�3;      ±�1A;      a�C;      ˜     �1; �3;      1�1B;      y
      ¨     �1; �3;      1�1A;      é�C;      ¸     �1; �3;      ±�1B;      )�11;      È     �1; �3;      )�1D;      �11;�1E;      Ø     �1; �3;      1�1A;      �19;�12;      è     �1; �3;      ±�1B;      A�12;      ø     �1; �3;      ±�1A;      i�12;      �8;�1;    �1; �3;      1�1B;      ‘�12;      �18;�1;    �1; �2;  �8;�5;   RECT2�3;      )�1D;      9�1E;      (�1;    �1; �4;  �8;�C;   pn_myMonitor�4;  �8;�C;   pb_isNotMain�4;  �8;�E;   ps_CurrentLink�3;      q&      �11;�1E;      8�1;    �1; �3;      q&      9�1E;      H�1;    �1; �2;  �8;�6;   Button�2;  �8;�5;   Shift�1;  �8;�1;   Y�3;      9�1F;      É#      X�1;    �1; �2;  �3;  �8;�B;   DataLink101�3;      9�1F;      A(      h�1;    �1; �3;  �8;�B;   DATA_TC_AB_�2;  �8;�7;   Button1�3;  �8;�B;   DataLink106�4;  �8;�C;   DATA_TC_AB_1�2;  �8;�7;   Button2�4;  �8;�C;   DATA_TC_AB_2�3;  �8;�B;   DataLink111�2;  �8;�7;   Button3�4;  �8;�C;   DATA_TC_AB_3�3;  �8;�B;   DataLink116�2;  �8;�7;   Button4�4;  �8;�C;   DATA_TC_AB_4�3;  �8;�B;   DataLink121�2;  �8;�7;   Button5�4;  �8;�C;   DATA_TC_AB_5�3;  �8;�B;   DataLink126�2;  �8;�7;   Button6�4;  �8;�C;   DATA_TC_AB_6�3;  �8;�B;   DataLink131�2;  �8;�7;   Button7�4;  �8;�C;   DATA_TC_AB_7�3;  �8;�B;   DataLink136�2;  �8;�7;   Button8�3;  �8;�B;   DataLink141�4;  �8;�C;   DATA_TC_AB_8�2;  �8;�7;   Button9�4;  �8;�C;   DATA_TC_AB_9�3;  �8;�B;   DataLink146�3;  �8;�8;   Button10�3;                                         rU€       €   €       �10;            �2; ÿÿÿÿÿÿÿÿ    0�1;  �4; $ Á�18;    �2;   �4;`  ¸�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ �1;�19;    �2; �1; �4;`  ¼�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ A�19;    �2; �2; �4;`  À�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ �19;    �2; �3; �4;`  Ä�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ Á�19;    �2; �4; �4;`  È�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ �1;�1A;    �2; �5; �4;`  Ì�4;�1C;rU �4;      €   €       �1E;                       �3; 0       �1B; �1B;     �1; �1;   �1F; ¹�B;      á�B;      Ñ�7;      ÿÿÿÿ‘�B;      
 �8; 8       �C;      a     �1; 1�C;      �4;   :   �4;   �1; b�4;  �19; �4;`Ñ�1D;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; @       �C;      a     �1; ‰�C;      �5;   9   �5;   �1; b�4;  �18; �4;`‘�1D;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; H   ¡�C;           �1; É�C;      �6;   �1E;   �6;   �1; ¨ýÿÿ�E; �4;`©�13;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; P   ¡�C;           �1; �11;
      �7;   >   �7;   �1; ¨ýÿÿ
 �4;`©�17;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; X   1
      ¡     �1; Y
      
   '   
   �1; _�4;  �7; �4;`‰�1A;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; `   1
      ¡     �1; ¡
      �C;   %   �C;   �1; _�4;  �8; �4;`É�1A;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; h   1
      ¡     �1; Á
      �E;   )   �E;   �1; _�4;  �6; �4;`I�1A;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; p   1
      ¡     �1; á
      �B;   #   �B;   �1; _�4;       �4;`    �1B;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; x   ¡�C;           �1; �1;�E;      �10;   �1B;   �10;   �1; ¨ýÿÿ  �4;`É�18;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; €   ¡�C;           �1; !�E;      �12;       �12;   �1; ¨ýÿÿ
 �4;`I�1B;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; ˆ   1
      ¡     �1; A�E;      
   !   
   �1; _�4;  �B; �4;`‰�1B;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B;    ¡�C;           �1; a�E;      �13;   "   �13;   �1; ¨ýÿÿ�5; �4;`    �1A;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; ˜   ¡�C;           �1; �E;      �14;   $   �14;   �1; ¨ýÿÿ�4; �4;`É�19;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B;     ¡�C;           �1; ¡�E;      �15;   &   �15;   �1; ¨ýÿÿ�3; �4;`‰�19;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; ¨       �C;      a     �1; Á�E;      �1B;   3   �1B;   �1; b�4;  �16; �4;`�11;�1D;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; °   1
      ¡     �1; é�E;             �1F;          �1; _�4;  �F; �4;`©�F;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ�8; �E; ´       �F;      Á     �1; 1�F;      ÿÿÿÿÿÿÿÿÿÿÿÿ�1; e�4;  �14; �4;`‘�1C;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; ¼   1
      ¡     �1; é�3;      �8;   ?   �8;   �1; _�4;  �10; �4;`©�B;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; Ä   1
      ¡     �1;     �10;      �1C;   2   �1C;   �1; _�4;  �15; �4;`Ñ�1C;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; Ì   1
      ¡     �1; 1�10;      �1D;   =   �1D;   �1; _�4;  �11; �4;`©�7;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; Ô   ¡�C;           �1; Q�10;      �16;   (   �16;   �1; ¨ýÿÿ�2; �4;`I�19;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; Ü   1
      ¡     �1; q�10;      �F;   �1D;   �F;   �1; _�4;  �12; �4;`�11;�1C;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; ä   ¡�C;           �1; ‘�10;      �17;   *   �17;   �1; ¨ýÿÿ�1; �4;`    �19;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; ì   1
      ¡     �1; ±�10;      �11;   �1C;   �11;   �1; _�4;  �13; �4;`Q�1C;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �3; ô   Ñ�10;      á     �1; ù�10;      �18;   6   �18;     ÿÿÿÿÿÿÿÿÿÿÿÿ
 �3; ü   Ñ�10;      á     �1; Q�11;      �19;   5   �19;     ÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; �4;�1;      �C;      a     �1; y�11;      �1A;   4   �1A;   �1; b�4;  �17; �4;`Q�1D;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �B; �C;�1;  ¡�C;           �1; ©�11;          @       �1; ¨ýÿÿ�C; �4;`É�1B;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 �3; �14;�1;  Ñ�10;      á     �1; É�11;      �1;   8   �1;     ÿÿÿÿÿÿÿÿÿÿÿÿ
 �3; �1C;�1;  Ñ�10;      á     �1; á�11;      �2;   7   �2;     ÿÿÿÿÿÿÿÿÿÿÿÿ
 �8; $�1;      �C;      a     �1; ù�11;      �3;   ;   �3;   �1; b�4;  �1A; �4;`�11;�1E;    �2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿu Í �19;�4;    �2; M�4;    �2; �4;    �2; Ñ�4;    �2; �5;�5;    �2; 9�5;    �2; ‰�5;    �2; ½�5;    �2; ñ�5;    �2; A�6;    �2; u�6;    �2; ©�6;    �2; ù
    �2; -�B;    �2; a�B;    �2; A
    �2; u
    �2; ©
    �2; �19;�C;    �2; M�C;    �2; �C;    �2; ‰        �2; ½        �2; ñ        �2; ‰
    �2; ½
    �2; ñ
    �2; ù�E;    �2; -�F;    �2; a�F;    �2; Ñ�8;    �2; �5;        �2; 9        �2; �19;�10;    �2; M�10;    �2; �10;    �2; Ñ�10;    �2; �5;�11;    �2; 9�11;    �2; ‰�11;    �2; ½�11;    �2; ñ�11;    �2; A�16;    �2; u�16;    �2; ©�16;    �2; �19;�8;    �2; M�8;    �2; �8;    �2; ù�6;    �2; -�7;    �2; a�7;    �2; ù�16;    �2; -�17;    �2; a�17;    �2; �19;�18;    �2; M�18;    �2; �18;    �2; A�12;    �2; u�12;    �2; ©�12;    �2; Ñ�C;    �2; �5;
    �2; 9
    �2; ù�12;    �2; -�13;    �2; a�13;    �2; A�E;    �2; u�E;    �2; ©�E;    �2; �19;�14;    �2; M�14;    �2; �14;    �2; Ñ�14;    �2; �5;�15;    �2; 9�15;    �2; ‰�15;    �2; ½�15;    �2; ñ�15;    �2; �11;�1;    �2; E�1;    �2; y�1;    �2; É�1;    �2; ý�1;    �2; 1�2;    �2; �2;    �2; µ�2;    �2; é�2;    �2; 9�3;    �2; m�3;    �2; ¡�3;    �2; ×�18;    �2; �17;�19;    �2; W�19;    �2; —�19;    �2; ×�19;    �2; �17;�1A;    �2; W�1A;    �2; —�1A;    �2; ×�1A;    �2; �17;�1B;    �2; W�1B;    �2; —�1B;    �2; ×�1B;    �2; ·�17;    �2; ·�13;    �2; ·�F;    �2; ·�B;    �2; ·�7;    �2; �1F;�1C;    �2; _�1C;    �2; Ÿ�1C;    �2; ß�1C;    �2; �1F;�1D;    �2; _�1D;    �2; Ÿ�1D;    �2; ß�1D;    �2; �1F;�1E;    �2; 0   �C;   üÆ              �4;   �C;   �8;           �C;           0   �C;   üÆ      @       �4;   �C;   �8;           �C;           0   �C;   üÆ      €       �4;   �C;   �8;           �C;           0   �C;   üÆ      À       �4;   �C;   �8;           �C;           0   �C;   üÆ       �1;      �4;   �C;   �8;           �C;           0   �C;   üÆ      @�1;      �4;   �C;   �8;           �C;           0   �C;   üÆ      €�1;      �4;   �C;   �8;           �C;           0   �C;   üÆ      À�1;      �4;   �C;   �8;           �C;           0   �C;   üÆ       �2;      �4;   �C;   �8;           �C;           0   �C;   üÆ      @�2;      �4;   �C;   �8;           �C;           0   �C;   üÆ      €�2;      �4;   �C;   �8;           �C;           0   �C;   üÆ      À�2;      �4;   �C;   �8;           �C;           0   �C;   üÆ       �3;      �4;   �C;   �8;           �C;           0   �C;   üÆ      @�3;      �4;   �C;   �8;           �C;           0   �C;   üÆ      €�3;      �4;   �C;   �8;           �C;           0   �C;   üÆ      À�3;      �4;   �C;   �8;           �C;           0   �C;   üÆ       �4;      �4;   �C;   �8;           �C;           0   �C;   üÆ      @�4;      �4;   �C;   �8;           �C;           0   �C;   üÆ      €�4;      �4;   �C;   �8;           �C;           0   �C;   üÆ      À�4;      �4;   �C;   �8;           �C;           0   �C;   üÆ       �5;      �4;   �C;   �8;           �C;           0   �C;   üÆ      @�5;      �4;   �C;   �8;           �C;           0   �C;   üÆ      €�5;      �4;   �C;   �8;           �C;           0   �C;   üÆ      À�5;      �4;   �C;   �8;           �C;           0   �C;   üÆ       �6;      �4;   �C;   �8;           �C;           0   �C;   üÆ      @�6;      �4;   �C;   �8;           �C;           0   �C;   üÆ      €�6;      �4;   �C;   �8;           �C;           �16;  �14;�8;�1;
 �1B; �16;  �14;�10;�1;
 �1C; �16;  �14;�18;�1;
 �1D; �16;  �14; �1;
 �1E; �4;  �16;  �14;4
   �16;  �14;<
 �1; �16;  �14;D
 �2; �16;  �14;L
 �3; �16;  �14;¸
 �11; �7;  �13;�11; Ì �4;  �16;  �14;¬
 �F; �16;  �14;„
 
 �16;  �14;l
 �7; �16;  �14;\
 �5; �16;  �14;T
 �4; �7;  �13;�10; ¼ �4;  �16;  �14;d
 �6; �16;  �14;Ø
 �15; �16;  �14;t
 �8; �16;  �14;è
 �17; �16;  �14;|
      �7;  �13;�F; ° �4;  �16;  �14;Œ
 �B; �16;  �14;”
 �C; �16;  �14;œ
 
 �16;  �14;Ð
 �14; �16;  �14;à
 �16; �7;  �13;�E; H �4;  �16;  �14;ð
 �18; �16;  �14;ø
 �19; �16;  �14; �1;
 �1A; �16;  �14;¤
 �E; �16;  �14;À
 �12; �7;  �13;
 P �4;  �16;  �14;È
 �13; �7;  �13;  x �7;  �13;�1; ä �7;  �13;�2; Ô �7;  �13;�3;   �7;  �13;�4; ˜ �7;  �13;�5;  �7;  �13;�6; h �7;  �13;�7; X �7;  �13;�8; ` �7;  �13;     p �7;  �13;
 € �7;  �13;�B; ˆ �8;  �13;�C; �C;�1;�7;  �13;�12; Ü �7;  �13;�13; ì �7;  �13;�14; ´ �7;  �13;�15; Ä �7;  �13;�16; ¨ �7;  �13;�17; �4;�1;�7;  �13;�18; @ �7;  �13;�19; 8 �7;  �13;�1A; $�1;7                                                                                                                                                                                                                                               ÿÿÿÿÿÿÿÿ        �1E;$ A�1A;    �2; �6; �4;`  Ð�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ �1A;    �2; �7; �4;`  Ô�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ Á�1A;    �2; �8; �4;`  Ø�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ �1;�1B;    �2;      �4;`  Ü�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ A�1B;    �2;
 �4;`  à�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ �1B;    �2; �B; �4;`  ä�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ Á�1B;    �2; �C; �4;`  è�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ ¡�17;    �2;
 �4;`  ì�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ ¡�13;    �2; �E; �4;`  ð�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ ¡�F;    �2; �F; �4;`  ô�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ ¡�B;    �2; �10; �4;`  ø�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ ¡�7;    �2; �11; �4;`  ü�4;�1C; ÿÿÿÿÿÿÿÿ        �1E;$     �1C;    �2; �12; �4;`   �5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ I�1C;    �2; �13; �4;`  �4;�5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ ‰�1C;    �2; �14; �4;`  �8;�5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ É�1C;    �2; �15; �4;`  �C;�5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$     �1D;    �2; �16; �4;`  �10;�5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ I�1D;    �2; �17; �4;`  �14;�5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ ‰�1D;    �2; �18; �4;`  �18;�5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$ É�1D;    �2; �19; �4;`  �1C;�5;�1C; ÿÿÿÿÿÿÿÿ        �1E;$     �1E;    �2; �1A; �4;`   �5;�1C; ÿÿÿÿÿÿÿÿ        �1E;�1E;   �1;�1;    �1; ÿÿÿÿ      �4;@�2; ˆ�4;�1D;!�1;    �1; �8;�1;    A�1;    �1; ÿÿÿÿ�1;   �1; �4;@�2; ”�4;�1D;Y�1;    �1; �10;�1;    y�1;    �1; ÿÿÿÿ�2;   �2; �4;@�2;  �4;�1D;Y�1;    �1; �18;�1;    ‘�1;    �1; ÿÿÿÿ�3;   �3; �4;@�2; ¬�4;�1D;±�1;    �1;  �1;    Ñ�1;    �1; ÿÿÿÿ�4;   �4; �4;@�2; P�3;�1D;±�1;    �1; 4     �1;�2;    �1; ÿÿÿÿ�5;   �5; �4;@�2; \�3;�1D;±�1;    �1; <     �19;�2;    �1; ÿÿÿÿ�6;   �6; �4;@�2; h�3;�1D;!�1;    �1; D     9�2;    �1; ÿÿÿÿ�7;   �7; �4;@�2; t�3;�1D;!�1;    �1; L     Y�2;    �1; ÿÿÿÿ�8;   �8; �4;@�2; �10;�4;�1D;y�2;    �1; ¸     ™�2;    �1; ÿÿÿÿ            �4;@�2; �4;�4;�1D;y�2;    �1; ¬     ¹�2;    �1; ÿÿÿÿ
   
 �4;@�2; È�3;�1D;y�2;    �1; „     Ù�2;    �1; ÿÿÿÿ�B;   �B; �4;@�2; ¤�3;�1D;y�2;    �1; l     ù�2;    �1; ÿÿÿÿ�C;   �C; �4;@�2; Œ�3;�1D;y�2;    �1; \     �19;�3;    �1; ÿÿÿÿ
   
 �4;@�2; €�3;�1D;y�2;    �1; T     9�3;    �1; ÿÿÿÿ�E;   �E; �4;@�2; ˜�3;�1D;y�2;    �1; d     Y�3;    �1; ÿÿÿÿ�F;   �F; �4;@�2; @�4;�1D;y�2;    �1; Ø     y�3;    �1; ÿÿÿÿ�10;   �10; �4;@�2; °�3;�1D;!�1;    �1; t     ™�3;    �1; ÿÿÿÿ�11;   �11; �4;@�2; X�4;�1D;y�2;    �1; è     ¹�3;    �1; ÿÿÿÿ�12;   �12; �4;@�2; ¼�3;�1D;!�1;    �1; |     Ù�3;    �1; ÿÿÿÿ�13;   �13; �4;@�2; Ô�3;�1D;!�1;    �1; Œ         �4;    �1; ÿÿÿÿ�14;   �14; �4;@�2; à�3;�1D;!�1;    �1; ”     )�4;    �1; ÿÿÿÿ�15;   �15; �4;@�2; ì�3;�1D;!�1;    �1; œ     I�4;    �1; ÿÿÿÿ�16;   �16; �4;@�2; 4�4;�1D;!�1;    �1; Р    i�4;    �1; ÿÿÿÿ�17;   �17; �4;@�2; L�4;�1D;!�1;    �1; à     ‰�4;    �1; ÿÿÿÿ�18;   �18; �4;@�2; d�4;�1D;Y�1;    �1; ð     ¹�4;    �1; ÿÿÿÿ�19;   �19; �4;@�2; p�4;�1D;Y�1;    �1; ø     á�4;    �1; ÿÿÿÿ�1A;   �1A; �4;@�2; |�4;�1D;±�1;    �1;  �1;    �11;�5;    �1; ÿÿÿÿ�1B;   �1B; �4;@�2; ø�3;�1D;±�1;    �1; ¤     9�5;    �1; ÿÿÿÿ�1C;   �1C; �4;@�2; �1C;�4;�1D;y�2;    �1; À     a�5;    �1; ÿÿÿÿ�1D;   �1D; �4;@�2; (�4;�1D;y�2;    �1; È       n           ID="{B93C4035-2DAB-11D9-B662-0004757B342C}"
Document=Arco2rg1/&A r c o 2 r g 1                                                 �12; �2;�1;�7;          ÿÿÿÿ                                    4   Ê]      _ V B A _ P R O J E C T                                         �1A; �2; ÿÿÿÿÿÿÿÿÿÿÿÿ                                    c   “!      P R O J E C T                                                   �10; �2;�1;�2;   �B;   ÿÿÿÿ                                    W   ñ�1;      P R O J E C T w m                                               �14; �2; ÿÿÿÿÿÿÿÿÿÿÿÿ                                    _   �1D;       �1;�16;�1;  ‰�8;  
&  m�8;  �11;
  À�16;  ‰&  ¥P  0   �1;   ¤ô¦ô  ÿÿc   ˆ   ¶ ÿÿ�1;�1;    ÿÿÿÿ    ÿÿÿÿÿÿ  
²„s�7;+£H¥�1A;�16;H›�18;4üa$N�1D;Ñ�11;£M  $ÍÕå                �1;   hµ�15;÷ÅfËA‰®Hƒ"�5;ƒ‘�10;   �3;   �5;   �7;   ÿÿÿÿÿÿÿÿ�1;�1;�8;   ÿÿÿÿx   + , DataLink131, 88, 0, FixDataLink, FixDataLink' prevTG, 56, 1, FixVariable, FixVariable' nextTG, 55, 2, FixVariable, FixVariable% bmpDetail, 59, 3, Fix2DBitmap, Bitmap- bmpPrimaryPicture, 58, 4, Fix2DBitmap, Bitmap! bmpIA, 57, 5, Fix2DBitmap, Bitmap+ DATA_TC_AB_6, 87, 6, Fix2DGroup, Fix2DGroup& Button6, 86
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
19 déc. 2008 à 11:58
Ajoute le 4ème parametre vbBinaryCompare à l'appel de la fonction Instr
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
19 déc. 2008 à 12:03
Fais aussi un essai avec InStrB au lieu de InStr
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
19 déc. 2008 à 12:10
J'oubliais
Line Input c'est pour lire dans un fichier texte ligne par ligne
Mais ici il faut déclarer un buffer de caractere et utiliser la commande get
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
19 déc. 2008 à 15:43
C'est pas mieux avec instrb, il fait bien la boucle mais il trouve pas la chaine caractère.
Pour info le print c'était pour un test.
Voici le nouveau code:

'Faire un search and replace d'un texte dans un fichier
Sub Fichiertxt()
    'Declaration des variables
    Dim F1, NbreTag As Integer
    Dim sourcefile As String 'variables pour fichier original et fichier de copie
    Dim SearchText As String, ReplaceText As String 'variables pour remplacer le texte
    Dim p As Variant
    Dim a As Variant
    Dim TextLigne
    Dim PosDebut As String
   
sourcefile = Worksheets(1).Range("E3").Value + Worksheets(1).Range("E4").Value
F1 = FreeFile
Open sourcefile For Binary Access Read Write As #1

Do Until a = 1000
On Error GoTo fin
        numligne = 2
        TextLigne = ""
Line Input #1, TextLigne 'Lecture de la ligne courante dans fichier original
            SearchText = Worksheets(1).Cells(2, 1).Value
            Worksheets(1).Cells(2, 2).Value = TextLigne
            p = InStrB(p + 1, UCase(TextLigne), UCase(SearchText), vbBinaryCompare)
If (p > 0) Then NbreTag = NbreTag + 1
    a = a + 1
fin:
PosDebut = Seek(1)
Seek 1, PosDebut - 1
Loop
Close #1
MsgBox NbreTag & "," & a & "," & PosDebut
End Sub

Merci
0
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
19 déc. 2008 à 19:19
Bonjour

Comme l'a déjà fait remarquer loulou69 :


Line Input lit un fichier séquentiel, donc ouvert en lecture séquentielle (Open ... For Input)
Pour lire et écrire un fichier en binaire (Open ... For Binary), tu dois :
 - déclarer un buffer (Dim buffer As String * 50, par exemple)
 - lire le fichier par l'instruction Get (Get #1, maPosition, buffer, par exemple)
 - ecrire par l'instruction Put (Put #1, maPosition, buffer, par exemple)

Ton problème actuel , c'est que tu ouvres le fichier en Binaire et tu le lis en séquentiel.

Cordialement
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
22 déc. 2008 à 11:27
Ok, mais comment je place cette instruction GET/PUT??
Je l'ai mis après l'ouverture du fichier mais il bloque..

Sub Fichiertxt()
    'Declaration des variables
    Dim F1, NbreTag As Integer
    Dim sourcefile As String
    Dim SearchText As String, ReplaceText As String
    Dim p As Variant
    Dim a As Variant
    Dim TextLigne
    Dim PosDebut As String
    Dim buffer As String * 1000
    Dim maPosition
   
sourcefile = Worksheets(1).Range("E3").Value + Worksheets(1).Range("E4").Value
F1 = FreeFile
Open sourcefile For Binary Access Read Write As #1

Get #1, maPosition, buffer
Do Until a = 1000
On Error GoTo fin
            numligne = 2
            TextLigne = ""
            SearchText = Worksheets(1).Cells(2, 1).Value
            Worksheets(1).Cells(2, 2).Value = TextLigne
            p = InStrB(p + 1, UCase(TextLigne), UCase(SearchText), vbBinaryCompare)
            If (p > 0) Then NbreTag = NbreTag + 1
                a = a + 1
fin:
PosDebut = Seek(1)
Put #1, maPosition, buffer
Loop
Close #1

MsgBox NbreTag & "," & a & "," & PosDebut
End Sub

Merci encore
[javascript:Insert_Emoticon('/imgs2/smile.gif'); ]
0
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
22 déc. 2008 à 20:59
Salut

- si tu préfères utiliser #1 plutôt que F1 comme numéro de fichier, enlève toute référence à F1
- l'instruction Get ne doit pas se trouver hors de la boucle mais dans la boucle :
  Do Until a = 1000
      ...
      Get
  Loop
 - la variable maPosition est un pointeur de fichier et ne peut pas être nul, car le 1er octet du fichier est à la position 1
  - tu dois gérer maPosition pour indiquer
 - je ne vois pas à quoi te servent les variables replaceText, TextLigne, posDebut


Bon, voici deux exemples :


a) si ton fichier est un fichier texte séquentiel, tu dois l'ouvrir en Input et écrire un fichier temporaire, puis renommer les fichiers :


<hr />
Sub fichierSequentiel()
   Dim F1 As Integer
   Dim F2 As Integer
   Dim sourceFile As String
   Dim destFile As String
   Dim buffer As String
   Dim chaineCherchee As String
   Dim chaineSubstitution As String
   F1 = FreeFile
   F2 = FreeFile
   destFile = sourceFile & ".tmp"
   Open sourceFile For Input As #F1
   Open destFile For Output As #F2
   Do Until EOF(F1)
      Line Input #F1, buffer
     buffer = Replace(buffer, chaineCherchee, chaineSubstitution)
     Print #F2, buffer
   Loop
   Close F1
   Close F2
   Name sourceFile As sourceFile & ".sav"
   Name destFile As sourceFile
End Sub


b) si ton fichier est binaire et n'est pas gigantesque, le mieux, c'est encore de le charger dans une variable
<hr />
Sub fichierSequentiel()
Dim F1 As Integer
Dim sourceFile As String
Dim buffer As String
Dim chaineCherchee As String
Dim chaineSubstitution As String
F1 = FreeFile
Open sourceFile For Binary As F1
buffer = Space(LOF(F1))
Get #F1, 1, buffer
buffer = Replace(buffer, chaineCherchee, chaineSubstitution)
Put #F1, 1, buffer
Close F1
End Sub
<hr />
Ce ne sont que des exemples, tu dois initialiser les variables sourceFile, chaineCherchee, chaineSubstitution.

Cordialement
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
23 déc. 2008 à 13:25
Avec ce nouveau code ce n'est pas mieux. J'ai l'impression que mon fichier txt est inexploitable??
Car quand je mets des caractères dit normaux (A,B,C,D....) la sa fonctionne. Mais avec les caractères spéciaux sa ne fonctionne pas????

Nouveau code.

Sub fichierSequentiel()
   Dim F1 As Integer
   Dim F2 As Integer
   Dim sourceFile As String
   Dim destFile As String
   Dim buffer As String
   Dim chaineCherchee As String
   Dim chaineSubstitution As String
   sourceFile = Worksheets(1).Range("E3").Value + Worksheets(1).Range("E4").Value
   destFile = Worksheets(1).Range("E3").Value + "copy of " + Worksheets(1).Range("E4").Value
   F1 = FreeFile
   Open sourceFile For Input As #F1
   F2 = FreeFile
   destFile = sourceFile & ".txt"
   Open destFile For Output As #F2
   chaineCherchee = "CC"
   chaineSubstitution = "CC"
   Do Until EOF(F1)
      Line Input #F1, buffer
      buffer = Replace(buffer, chaineCherchee, chaineSubstitution)
      If buffer = chaineCherchee Then
      MsgBox ("ok")
      End If
      Print #F2, buffer
   Loop
   Close F1
   Close F2
   Name sourceFile As sourceFile & ".sav"
   Name destFile As sourceFile
End Sub

Merci.
0
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
23 déc. 2008 à 18:07
Désolé, je ne peux rien faire de plus pour te dépanner.

Le mieux, si ton fichier est vraiment un fichier texte, c'est de l'ouvrir avec le bloc-note et d'utiliser le menu édition/remplacer pour faire les substitutions.

Mais à mon avis, soit ce n'est pas un vrai fichier texte (comme loulou69 l'avait supposé dès le 19 décembre), soit il est définitivement endommagé.

Amicalement
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
24 déc. 2008 à 08:12
C'est sur que ce n'est pas un vrai fichier txt car il contient plein de caractères spéciaux.
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
24 déc. 2008 à 09:12
Quand je lance la macro avec un fichier .txt dit normal ou dedans il y des lettres A,B,C,D,E,F....Et que je cherche par exemple la lettre C, la macro fonctionne et trouve ce que je lui demande.

Par contre quand je fais ce même test avec mon fichier .txt, la sa ne fonctionne pas.

J'aimerai vous joindre mon fichier txt d'origine pour que vous puissiez le visualiser mais pouvez vous me dire comment je peux faire pour vous joindre un fichier volumineux (en longueur)????
Merci
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
24 déc. 2008 à 09:22
Si on regarde bien ton fichier, c'est un fichier clairement binaire qui à un lien avec la fabrication de programme (compilation, objet, exécutable, ...), il s'agit d'une sorte de fichier de projet qui liste les fichiers à lier, qu'est ce que Delta: cela te dis quelque chose?
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
24 déc. 2008 à 10:05
Oui c'est un fichier extrait d'un synoptique (dessin industriel) fait sous un superviseur DELTAV. Et dans ce fichier je souhaiterai savoir si un tag X (par exemple TC6331) est présent dans le synoptique via une macro
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
24 déc. 2008 à 11:04
Maintenant que l'on connait l'origine du fichier, on n'est pas plus avancé pour te dire qu'il s'agit d'un fichier binaire dans lequel se glisse des morceaux de texte. Par endroit, les caractères sont codés sur 1 caractère à d'autres sur 2 caractères.

"Line input" arrete la lecture au premier caractère spécial empechant de trouver les chaines recherchées
0
anthonyj Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 24 décembre 2008
24 déc. 2008 à 11:18
Ok donc il faut que j'utilise GET?
0
Rejoignez-nous