PureBasic

; CSV Doublon Killer.
; Ar-S / Mars 2012 / P.B 4.60

Global F$, Destination$
Global NewList Contact.s()



Procedure CreateListFromCSV (NumFichier_ARS, FilePath_ARS.s, List ListName.s())
  ; Ar-S / 28/03/2012
  ; Procédure de création d'une liste à partir d'un fichier CSV.
  ; Retourne 1 si la liste a été créée ou 0 si echec
  ; Suppression des doublons qui se suivent pour fichier CSV
 
  Protected NbrLigne
 
  ClearList(ListName())
  NbrLigne = 0
  doublon = 0
 
  If ReadFile(NumFichier_ARS , FilePath_ARS)
    B$ = ""
    While Eof(NumFichier_ARS) = 0
      A$ = ReadString(NumFichier_ARS)
      If A$ <> B$
        AddElement(ListName())
        ListName() = ReadString(NumFichier_ARS)
        B$ = ListName()
       
      Else
        Debug "doublon : " + A$ + " et " + B$
        doublon + 1
       
      EndIf
     
      NbrLigne + 1
     
    Wend
   
    If doublon > 0
     
      Debug "doublon virés : " + Str(doublon)
     
    EndIf
   
    CloseFile(NumFichier_ARS)
    ProcedureReturn 1
   
  Else
    ProcedureReturn 0
  EndIf
 
 
EndProcedure





FichierParDefaut$ = "C:\"
Filtre$ = "Fichier CSV (*.csv)|*.csv"
F$ = OpenFileRequester("Choisissez le fichier CSV", FichierParDefaut$, Filtre$, 0)
If F$
  MessageRequester("Information", "Le fichier suivant va être traité :"+Chr(10)+F$, 0)
  Chem$ = GetPathPart(F$)
  in$ = Left (GetFilePart(F$), Len(GetFilePart(F$))-4) ; -4 = sans l'extension
  Destination$ = Chem$+in$+"_new.csv"
Else
  MessageRequester("Information", "La sélection a été annulée, ce programme va se terminer.", #MB_OK|#MB_ICONINFORMATION)
  End
EndIf




liste = CreateListFromCSV(0,F$,Contact())

If liste = 0
 
  Debug "erreur"
  MessageRequester("Erreur", "Liste vide ! Ce programme va se terminer.", #MB_OK|#MB_ICONINFORMATION)
 
Else
 
  Debug "Liste : " + Str(liste)

  CreateFile(1,Destination$)
 
 
  p = 0
  ForEach Contact()
    p+1
    WriteStringN(1, Contact()) 
    Debug Contact()

  Next
 
  CloseFile(1)
 
  Debug "Nbr de contact  : " + Str(p)
 
  MessageRequester("Terminé ! ", ".:: Journal ::." +Chr(10) +Str(p) + " doublons filtrés"+Chr(10)+ " Nouveau fichier CSV :  "+Destination$ + Chr(10)+Chr(10)+"Merci d'avoir utilisé un logiciel LDV MULTIMEDIA"+Chr(10)+"http://ldvmultimedia.com"  , #MB_OK|#MB_ICONINFORMATION ) ;-TEST
EndIf


End