[ - Antworten - Zitieren - Direktlink - ]

code:

---

XINCLUDE "error.include.bb2"
If ask{"Hoppla, watt nun?","Mache es!|Ooops!"}
  ; whuuhou!
Else
  ; ehm, no
EndIf
End

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von gerograph:
2. In welche Richtung muß ich recherchieren (oder gibts gar ne Funktion) um die Previewbilder aus einer JPG Datei auszulesen ?

---

Zitat:

---

3. Hinweise zu Funktionen fürs Ausdrucken von Farbbildern...

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

optimize 7
Syntax 2

XINCLUDE "dos.include.bb2"

Function.l rdelete{path.s,all.l}
  SHARED dos_pattern.s,force.l,dirs.l,docase.l,delempty.l

  filecount.l = -1
  lock.l = Lock_(&path.s,#ACCESS_READ)

  *fib.FileInfoBlock = AllocDosObject_(#DOS_FIB,#TAG_DONE)

  If lock><0 AND *fib><0
    If Examine_ (lock,*fib)
      filecount  = 0
      delcount.l = 0
      While ExNext_(lock,*fib)
        filename.s = dos_AddPart{path.s,Peek.s(&*fibfib_FileName)}
        If *fibfib_DirEntryType<0
          If all=False
            If docase
              delit.l = MatchPattern_ (&dos_pattern.s,&*fibfib_FileName)
            Else
              delit.l = MatchPatternNoCase_ (&dos_pattern.s,&*fibfib_FileName)
            End If
          Else
            delit.l = True
          End If
          If delit
            If force
              dos_SetProtect{filename,0}
            End If
            If dos_Delete {filename.s}
              NPrint filename.s,"...deleted"
              delcount+1
            Else
              NPrint filename.s,"...NOT deleted"
              filecount+1
            End If
          Else
            filecount+1
          End If
        Else
          If dirs
            If all=False
              If docase
                delit.l = MatchPattern_ (&dos_pattern.s,&*fibfib_FileName)
              Else
                delit.l = MatchPatternNoCase_ (&dos_pattern.s,&*fibfib_FileName)
              End If
            Else
              delit=True
            End If
            If delit Then delall.l = True : Else delall =False
          Else
            delall.l = False
          End If
          If rdelete{filename.s,delall}
            If delall=False Then filecount+1 : Else delcount+1
          End If
        End If
      Wend
    End If
    UnLock_ lock

    If filecount=0
      If all><0 OR (delempty><0 AND delcount>0)
        If dos_Delete{path.s}
          NPrint "<DIR> ",path.s,"...deleted"
        Else
          NPrint "<DIR> ",path.s,"...NOT deleted"
        End If
      End If
    End If
  End If

  If *fib Then FreeDosObject_ #DOS_FIB,*fib : *fib=0

  Function Return filecount
End Function

patt.s     = "#?.bak"
path.s     = ""
force.l    = False
dirs.l     = False
showhelp.l = False
err.l      = False
docase.l   = False
delempty.l = False

; Get the required CLI arguments ...
patt.s = dos_GetNextArg{} ; first read the filename
If patt = ""
  NPrint "*** ERROR: No pattern specified!"
  err.l=True
End If

; Get the optional CLI arguments
Repeat
  arg.s = dos_GetNextArg{} ; get the next CLI argument
  larg.s = LCase$(arg) ; lower case the option string
  Select larg
    Case "-force"
      force.l = True
    Case "-dirs"
      dirs.l = True
    Case "-d"
      path.s = dos_GetNextArg{}
    Case "-case"
      docase = True
    Case "-h"
      showhelp = True  ; show the help and quit
    Case "-empty"
      delempty = True
    Default
      If arg><""
        NPrint "*** ERROR: Unknown option \22",arg,"\22 specified!"
        err = True
      End If
  End Select
Until arg = "" ; until we processed all arguments

; Show the help if something went wrong or help was requested
If err><False OR showhelp = True
  NPrint "n  Syntax : RDelete <pattern> [options]"
  NPrint "n    required:"
  NPrint "    <pattern>      : dos pattern, e.g. #?.bak"
  NPrint "n    optional:"
  NPrint "    -d <dir> : directory where to start deleting"
  NPrint "    -force   : force protected file to be deleted"
  NPrint "    -dirs    : delete also directories that are matching the pattern"
  NPrint "    -empty   : delete directories that became empty"
  NPrint "    -case    : no case sensitive"
  NPrint "    -h       : show this help"
  NPrint "n  Example :"
  NPrint "    RDelete \22DH0:Files#?.bak\22 -forcen"
  NPrint "Description:n"
  NPrint "Will delete recursive all files matching the dos pattern."
  End
End If
path.s = dos_AddPart{path.s,dos_PathPart{patt}}
patt.s = dos_FilePart{patt}

tempbuf.s = LSet$(" ",FLen(patt.s)*3+4)
If docase
  ParsePattern_ &patt.s,&tempbuf.s,FLen(tempbuf.s)
Else
  ParsePatternNoCase_ &patt.s,&tempbuf.s,FLen(tempbuf.s)
End If
dos_pattern.s = Peek.s(&tempbuf.s)

NPrint "Scanning "+path+" for "+patt.s+" files to delete..."
rdelete {path.s,False}
NPrint "Done."
End

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]