PureBoard

Code: Alles auswählen

    If pathwork$ = pathaudio$
      RunProgram(progaudio$, File.s, pathwork$)             ; z.Zt noch unbenutzt 
    ElseIf pathwork$ = pathfoto$
      RunProgram(progfoto$, File.s, pathwork$)              ; fotoflare
    ElseIf pathwork$ = pathvideo$
      RunProgram(progvideo$, File.s, pathwork$)             ; vlc
    ElseIf pathwork$ = pathfiles$ And Right(F$, 3) = "pdf"  
      RunProgram(progpdf$, File.s , pathwork$)              ; foxitreader
    ElseIf pathwork$ = pathfiles$ And ((Left(Right(File$,4) ,2)) =".o" Or (Left(Right(File$,4) ,3)) = ".do" Or (Left(Right(File$,5) ,2)) = ".do" Or (Left(Right(File$,4) ,3)) = ".xl" Or (Left(Right(File$,5) ,3)) = ".xl")
      RunProgram(progfile$, File.s, pathwork$)              ; libreoffice
    ElseIf pathwork$ = pathfiles$ And Right(File$,4) = ".eml"
      RunProgram(progmail$, File.s, pathwork$)              ; thunderbird
    Else
      RunProgram(proghtml$, File.s, pathwork$)              ; firefox
    EndIf  

Code: Alles auswählen

EnableExplicit

; Pfad Konstanten - Deine Werte hier eintragen
#pathaudio  = "c:\temp\audio\"
#pathfoto   = "c:\temp\foto\"
#pathvideo  = "c:\temp\video\"
#pathfiles  = "c:\temp\files\"
; Programm Konstanten - Deine Werte hier eintragen
#progaudio  = "audio.exe"
#progfoto   = "foto.exe"
#progvideo  = "video.exe"
#progmail   = "mail.exe"     ;  eine von diesen beiden Konstanten -> Profile.s
#progoffice = "office.exe"   ;       - " - 
;

Procedure.s GetProgramForExtension(Extension.s) ; returns 'program string' for given extension
  Select LCase(Extension) ; Extension ohne  '.'
    Case "doc", "xls", "xlsx"      ; etc.
      ProcedureReturn  #progoffice
    Case "eml"
      ProcedureReturn #progmail
    Default
      ProcedureReturn "ERROR"  ; weder Thunderbird noch LibreOffice - Fehlerbehandlung mußt Du noch einbauen
  EndSelect    
EndProcedure     
  
Global File.s      = "c:\temp\files\some_file.doc",
       Pathwork.s  = #pathfiles,
       Progfile.s  = GetProgramForExtension(GetExtensionPart(File.s))
     
Global NewMap ProgramPaths.s()
ProgramPaths(#pathaudio) = #progaudio
ProgramPaths(#pathfoto)  = #progfoto
ProgramPaths(#pathvideo) = #progvideo
ProgramPaths(#pathfiles) = Progfile

Procedure.i RunExternalProgram()
  Protected Result.i
  
  Debug "Executable: " + ProgramPaths(Pathwork)
  Debug "Parameter(s): " + File
  Debug "WorkingDirectory: " + PathWork
  ;
  Result = RunProgram(ProgramPaths(Pathwork), File, Pathwork)
  If Result = 0
    Debug "External program could not be started!"
  EndIf
EndProcedure

RunExternalProgram()