code:

---

/* GetFilenameLength */

Parse Arg FileName

FileName = strip(FileName,B,'"')

If Pos(".",FileName)>0 Then FileName = DelStr(FileName,Pos(".",FileName))

FileName=Reverse(FileName)

If Pos(":",FileName)>0 Then FileName = DelStr(FileName,Pos(":",FileName))

If Pos("/",FileName)>0 Then FileName = DelStr(FileName,Pos("/",FileName))

Say Length(FileName)

---

Besser?

Du siehst, es führen wohl viele Wege nach Rom und ich bin wohl ein Reverse-Fan.

mfg Palgucker


[ Dieser Beitrag wurde von Palgucker am 17.06.2005 um 16:40 Uhr editiert. ]

code:

---

/* Filename-length */

Parse Arg FileName
If C2D(Substr(FileName,1,1))=34 Then FileName=SUbStr(FileName,2,Length(FileName)-2)
If Pos(":",Filename,1)=0 & Pos("/",Filename,1)=0 Then Do
NameLength=Length(FileName)
End
Else Do
NameLength = Pos("/",Reverse(Filename),1) - 1
If NameLength = -1 Then NameLength = Pos(":",Reverse(Filename),1) - 1
End
/* Die nächste Zeile nur, um die Zeichenanzahl vor dem Punkt zu ermitteln */
NameLength = NameLength - Pos(".",Reverse(Filename),1)
Say NameLength

---

code:

---

/* OVERDRIVE-CD amiquest.device-only mountlist */
 Handler = l:overcd-handler
 Stacksize = 4096
 Priority = 10
 GlobVec  = -1
 Mount = 1
 Startup = "BLUE=82 RED=67 YELLOW=81 GREEN=80 FORWARD=78 REVERSE=79 PLAY=68 UP=62 DOWN=30 LEFT=45 RIGHT=47 GAMES=0 V40=0 JOYSTICK=0 FASTMEM=1 NOFS=1"

---

code:

---

/***************************************************************/
/*  CacheCDFS mountlist entry © 1999 Amiga Internation Inc.    */
/***************************************************************/
       FileSystem     = L:CacheCDFS /* The name of the game */
       Device         = "amiquest.device" /* Name of exec device driver */
       Unit           = 2 /* exec device unit */
       Flags          = 0 /* OpenDevice flags */
       BlocksPerTrack = 351000 /* Unused */
       BlockSize      = 2048 /* True, but unused */
       Mask           = 0x7ffffffe /* Memory mask for direct read */
       MaxTransfer    = 0x1000000 /* Maximum amount of bytes for direct read */
       Reserved       = 0 /* Unused */
       Interleave     = 0 /* Unused */
       LowCyl         = 0 /* Unused */
       HighCyl        = 0 /* Unused */
       Surfaces       = 1 /* Unused */
       Buffers        = 50 /* Number of cache lines */
       BufMemType     = 1 /* MEMF_PUBLIC */
       BootPri        = 2 /* Boot priority for MountCD */
       GlobVec        = -1 /* Do not change! */
       Mount          = 1 /* Mount it immediately */
       Priority       = 10 /* Priority of FileSystem task */
       DosType        = 0x43443031 /* Currently unused */
       StackSize      = 3000 /* Minimum stack required is 3000! */
       Control        = "MD=0 LC=1 DC=8 L LV AL LFC=1 S NC"
   /* The Control field is for special adjustments */
   /* L/S convert all file/volume names to lowercase */
   /* LV/S convert volume names to lowercase */
   /* AL/S Auto-Lower converts only non-Amiga CDs */
   /* LFC/N start converting at this character */
   /* LC/N/A number of blocks per cache line */
   /* DC/N/A number of cache lines for the data cache */
   /* MD/N/A number of blocks, when starting direct read, not using */
   /* the cache. 0 will be a reasonable default (LC*DC+1) */
   /* S/S Do SCSI direct commands, no Trackdisk like commands! */
   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */
   /* M/S Issue a TD_MOTOR (OFF) command after read */

---

code:

---

/* */
Parse Arg Quelle
Call ILBMparsing()
Call Findtiming()
Exit

ILBMparsing:
Call Open(Quelle,Quelle,Read)
Chunk.0=0
IF ReadCh(Quelle,4)~="FORM" Then Do
say "not a ILBM!"
Exit(0)
End
ILBMLEN=C2D(ReadCh(Quelle,4))
IF ReadCh(Quelle,4)~="ANIM" Then Do
say "not a ANIM!"
Exit(0)
End
Do Until(RPos>=ILBMLEN)
Chunk=Readch(Quelle,4)
Jumpwidth=C2D(ReadCh(Quelle,4))
IF Jumpwidth//2 = 1 Then Jumpwidth=Jumpwidth+1
Chunk.0=Chunk.0+1 ; z=chunk.0
Chunk.z=Chunk||" "||Seek(Quelle,0)-8||' '||Jumpwidth+8
Rpos=Seek(Quelle,Seek(Quelle,0)+Jumpwidth,Begin)
End
say Chunk.0 || " Einzelbilder gefunden!"
return()

Findtiming:
Do D = 1 To Chunk.0
RPos=Seek(Quelle,SubWord(Chunk.D,2,1),Begin)
Adr=Pos("ANHD",ReadCh(Quelle,400))
RPos=Seek(Quelle,-400+Adr+23,Cur)
Time=C2D(ReadCh(Quelle,2))
say "Anzeigedauer Bild"||D||"="|| Time || " Times"
End
return()

---