PureBasic Forums - English

Code: Select all

Global NewList WhiteList.S()
Global NewList BouncedList.S()
Global InputFile$ =""

Enumeration
  #BouncedList
  #WhiteList
  #NewWhiteList
EndEnumeration

Procedure.S OpenInputFile(title.S="Choose a file to open")
  StandardFile$ = "\"   ; set initial file+path to display
  Pattern$ = "Text (*.txt)|*.txt|All files (*.*)|*.*"
  Pattern = 0    ; use the first of the three possible patterns as standard
  File$ = OpenFileRequester(title, StandardFile$, Pattern$, Pattern)
  If File$ 
    ProcedureReturn File$
  Else
    Debug "No file selected, ending program!"
    End
  EndIf
EndProcedure

Procedure FindBouncedInWhiteList()
  ;CallDebugger
  ForEach WhiteList()
    ForEach BouncedList()
      ;Debug "D: "+BouncedList()
      ;Debug "W: "+WhiteList()
      If FindString(WhiteList(),BouncedList())<>0
        ;CallDebugger
        ; If FindString(WhiteList(),"*?*")=0
           ; WhiteList() = "*?*"+WhiteList()+"*?*"
        ; EndIf
        DeleteElement(WhiteList(),1)
      EndIf
    Next
  Next
EndProcedure
Procedure LoadList()
  If ReadFile(#WhiteList,OpenInputFile("White List"))
    
  While Eof(#WhiteList)=0
    If AddElement(WhiteList())
      WhiteList() = ReadString(#WhiteList)
    EndIf
    
  Wend
EndIf
CloseFile(#WhiteList)

If ReadFile(#BouncedList,OpenInputFile("Bounced List"))
  
  While Eof(#BouncedList)=0
    If AddElement(BouncedList())
      BouncedList() = ReadString(#BouncedList)
    EndIf
    
  Wend
EndIf
CloseFile(#BouncedList)
EndProcedure  

; Procedure DisplayList()
  ; Count=0
  ; SortList(WhiteList(),#PB_Sort_Ascending)
  ; ForEach WhiteList()
    ; Debug FormatI(Count,"[###]")+" "+WhiteList()
    ; Count+1
  ; Next
; EndProcedure

Procedure.S GetMyPath()
  ProcedureReturn GetPathPart(ProgramFilename())
EndProcedure

Procedure SaveNewWhiteList()
  ;CallDebugger
  asat$="_asat_"+ FormatDate("%dd-%mm-%yyyy",Date())
  SaveFilePath$=GetMyPath()+"EmailList"+asat$+".txt"
  If CreateFile(#NewWhiteList,SaveFilePath$)
    ForEach WhiteList()
      WriteStringN(#NewWhiteList,WhiteList())
    Next
  EndIf
  CloseFile(#NewWhiteList)
	MessageRequester("Save List","New Email list was saved: "+SaveFilePath$)
EndProcedure

;- Main
;CallDebugger
LoadList()
;CallDebugger
FindBouncedInWhiteList()
SaveNewWhiteList()
;CallDebugger

; IDE Options = PureBasic 5.30 (Windows - x86)
; Folding = ---
; EnableUnicode
; EnableXP
; Executable = EmailListUpdate.exe