home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / programming / colpectius1 / add_extension.amos / add_extension.amosSourceCode
Encoding:
AMOS Source Code  |  1995-09-07  |  3.3 KB  |  126 lines
  1. ' File Extension Adder 
  2. ' ~~~~~~~~~~~~~~~~~~~~ 
  3. ' by Ben Wyatt, bwyatt@paston.co.uk
  4.  
  5. ' Adds an extension to a file, if it has an extension or not 
  6.  
  7. ' Hope all the text stays on a Ntsc screen ;-) 
  8. Screen Open 0,640,256,2,Hires
  9. Screen Display 0,128,37,640,256
  10. Flash Off : Cls 0
  11. Palette $0,$FFF
  12.  
  13. Locate ,2 : Centre "File Extension Adder"
  14. Locate ,3 : Centre "~~~~~~~~~~~~~~~~~~~~"
  15.  
  16. Locate ,6 : Centre 'Type in a file, eg "DH0:Data/Picture"'+" (Doesn't have to exist)"
  17. Put Key "DH0:Data/Picture"
  18. Locate 5,7 : Input "Just here=>";F$
  19.  
  20. Locate ,9 : Centre 'Thats good, now type in an file extension, eg "iff" or "info"'
  21. Put Key "iff"
  22. Locate 3,10 : Input "Type it now=>";X$
  23.  
  24. '    Here it is    
  25. '    ~~~~~~~~~~    
  26. '       *****  
  27. '       *****  
  28. '       *****    
  29. '       *****  
  30. '    *********** 
  31. '     *********  
  32. '      ******* 
  33. '       *****  
  34. '        *** 
  35. '         *  
  36. '
  37. ' WWWWWWWWWWWWWWWWWWW  
  38.  _ADDEXTENSION[F$,X$]
  39. ' MMMMMMMMMMMMMMMMMMM
  40. '
  41. '         *  
  42. '        *** 
  43. '       *****  
  44. '      ******* 
  45. '     *********  
  46. '    *********** 
  47. '       *****  
  48. '       *****  
  49. '       *****    
  50. '       *****  
  51.  
  52. Locate ,12 : Centre "And here they are together"
  53. Locate ,14 : Centre '"'+Param$+'"'
  54. Locate ,16 : Centre "Impressive isn't it?"
  55. Locate ,17 : Centre "Maybe not"
  56. Locate ,19 : Centre "But it does have its uses..."
  57. Locate ,21 : Centre "Press a key"
  58.  
  59. Wait Key 
  60. X$="AxtYpLWqZzz"
  61. F$=Fsel$("","",'Input filename, ensure file ends in ".'+X$+'"',"(See what happens if you don't put it in correctly)")
  62.  
  63. Locate ,21 : Centre "           "
  64. F$=Right$(F$,Len(F$)-Max( Extension_18_0086(F$,"/"), Extension_18_0086(F$,":")))
  65. Locate 0,21 : Print "Inputted filename:"+F$
  66.  
  67. _ADDEXTENSION[F$,X$]
  68. F$=Right$(Param$,Len(Param$)-Max( Extension_18_0086(Param$,"/"), Extension_18_0086(Param$,":")))
  69. Locate 0,23 : Print "New filename:"+F$
  70.  
  71. Locate ,25 : Centre "Press a key"
  72.  
  73. Wait Key 
  74.  
  75. Edit 
  76.  
  77. Procedure _ADDEXTENSION[F$,X$]
  78.  
  79.    ' Adds file extension X$ to F$, eg F$="Data", X$="s", Param$="Data.s"
  80.    ' Detects if it's already been added, and puts it in the case of X$... 
  81.    '    eg F$="Screen.iff" changes to "Screen.IFF" if X$="IFF"
  82.  
  83.    ' Remove all the comments to make it easier to follow :-)
  84.  
  85.    ' Get rid of the pathname and gets the filename on its own 
  86.    _BWINSTR[F$,"/"] : SLASH=Param : _BWINSTR[F$,":"] : CLON=Param
  87.    FILENAM$=Right$(F$,Len(F$)-Max(SLASH,CLON))
  88.  
  89.    ' Get rid of the "." in X$ if the user has put one in
  90.    X$=X$-"."
  91.  
  92.    ' Check for the X$ bit and add it if nessassary  
  93.    XPOS=Instr(FILENAM$,"."+X$)
  94.    ' If position of extension is not at the end, ie not at all / in the middle
  95.    If XPOS<Len(FILENAM$)-1-Len(X$)
  96.       ' If X$ isn't in F$ at all then... 
  97.       If XPOS=0 : XPOS=Instr(FILENAM$,".")
  98.          If XPOS=0
  99.             ' If there's no "." then just add X$ to F$ 
  100.             F$=F$+"."+X$
  101.          Else 
  102.             ' If there's a "." somewhere, put it after that
  103.             F$=Left$(F$,XPOS+(Len(F$)-Len(FILENAM$)))+X$
  104.          End If 
  105.       Else 
  106.          ' Let F$=F$ upto where X$ is included and put it in the case of X$ 
  107.          F$=Left$(F$,XPOS+1)+X$
  108.       End If 
  109.    Else 
  110.       ' Put it in the case of X$ 
  111.       F$=Left$(F$,Len(F$)-Len(X$))+X$
  112.    End If 
  113.  
  114. End Proc[F$]
  115.  
  116. Procedure _BWINSTR[A$,C$]
  117.  
  118.    ' Backwards Instr command/procedure
  119.    ' A$=Input string, C$=Search string
  120.  
  121.    X=Len(A$)
  122.    While Mid$(A$,X,1)<>C$ and X>0
  123.       Dec X
  124.    Wend 
  125.  
  126. End Proc[X]