.txt Comment extraire données

#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
int contains(char*buff,char*mot); 
int main(int num,char**arg) 
{ 
  FILE * rFile; 
  FILE * wFile; 
  char buff[80]; 
  int i=0; 
  if ((rFile = fopen ("c:\\temp\\text.txt","r"))==NULL){ 
      return -1; 
  } 
  if ((wFile = fopen ("c:\\temp\\text0.txt","w+"))==NULL){ 
      return -1; 
  } 
  while (!feof(rFile)){ 
      while((buff[i++]=fgetc(rFile))!='\n') ; 
      buff[i]=0; 
      if (!contains(&buff[0],"documents")){ 
          fwrite(&buff[0],1,i,wFile); 
          fflush(wFile); 
      } 
      i=0; 
  } 

  fclose(rFile); 
  fclose(wFile); 
  return 0; 
} 

int contains(char*buff,char*mot) 
{ 
    int result=1; 
    while (*buff && result){ 
        result=strncmp(buff,mot,strlen(mot)); 
        buff++; 
    } 
    return result; 
} 

Option Explicit 

Public mTableau()  'Variable global pouvant être lu par tous les modules 
Private ind As Long    'Indice du tableau 

Sub macro1() 
    LireFichier 
    AfficheDonnees 
End Sub 

Private Sub LireFichier() 
Dim fp As Integer 
Dim chaine As String 
Dim chemin As String 

fp = FreeFile 

'/!\ CHANGEMENT A EFFECTUER 
'Mettre ici le chemin complet du fichier chemin = "C:\ ....." 
chemin = " "


Open chemin For Input As #fp 
While Not EOF(fp) 
    Line Input #fp, chaine 
    If InStr(1, chaine, "documents") <> 0 And InStr(1, chaine, "users") <> 0 Then 
          ReDim Preserve mTableau(ind) 
          mTableau(ind) = chaine 
          ind = ind + 1 
    End If 
Wend 

Close #fp 

End Sub 

Private Sub AfficheDonnees() 
Dim i As Long 
Dim ws As Worksheet 

    Set ws = ThisWorkbook.Worksheets(1) 
     
    With ws 
        For i = LBound(mTableau()) To UBound(mTableau()) 
            .Range("A" & i + 2).Value = mTableau(i) 
        Next i 
    End With 
     
End Sub