●MIMETYPE取得

「●MIMETYPE取得」の編集履歴（バックアップ）一覧に戻る

---

「●MIMETYPE取得」を以下のとおり復元します。

---

*情報
作者名：五十六
引用元：なし

*概要
MIMETYPE(Content-type)を取得します。
でも、判定基準は拡張子のみです。

*サンプルプログラム
 「aaa.mp3」からMIMETYPE取得して言う。#audio/mpeg
 「.doc」からMIMETYPE取得して言う。#application/msword
 
 「.aiueo」からMIMETYPE取得。
 もし、それ＝空ならば、「不明です」と言う。


*//本体
 #-----------------------------------------------------------------------
 #-----------------------------------------------------------------------
 !MIMEリスト=「.html,text/html{改行}.htm,text/html{改行}.tex,application/x-latex{改行}.latex,application/x-latex{改行}.ltx,application/x-latex{改行}.pdf,application/pdf
 .ps,application/postscript{改行}.rtf,application/rtf{改行}.sgm,text/sgml{改行}.sgml,text/sgml{改行}.tab,text/tab-separated-values{改行}.tsv,text/tab-separated-values
 .tex,application/x-tex{改行}.txt,text/plain{改行}.xml,text/xml{改行}.jar,application/java-archiver{改行}.cpt,application/mac-compactpro{改行}.gz,application/gzip
 .hqx,application/mac-binhex40{改行}.sh,application/x-sh{改行}.shar,application/x-sh{改行}.sit,application/x-stuffit{改行}.tar,application/x-tar{改行}.z,application/x-compress
 .zip,application/zip{改行}.ai,application/postscript{改行}.bmp,image/x-bmp{改行}.rle,image/x-bmp{改行}.dib,image/x-bmp{改行}.cgm,image/cgm{改行}.dwf,drawing/x-dwf
 .epsf,appilcation/postscript{改行}.eps,appilcation/postscript{改行}.ps,appilcation/postscript{改行}.fif,image/fif{改行}.fpx,image/fpx{改行}.gif,image/gif
 .jpg,image/jpeg{改行}.jpeg,image/jpeg{改行}.jpe,image/jpeg{改行}.jfif,image/jpeg{改行}.jfi,image/jpeg{改行}.pcd,image/pcd{改行}.pict,image/pict
 .pct,image/pict{改行}.png,image/x-png{改行}.tga,image/x-targa{改行}.tpic,image/x-targa{改行}.vda,image/x-targa{改行}.vst,image/x-targa{改行}.tiff,image/tiff
 .tif,image/tiff{改行}.wrl,model/vrml{改行}.xbm,image/x-bitmap{改行}.xpm,image/x-xpixmap{改行}.aiff,audio/aiff{改行}.aif,audio/aiff{改行}.au,audio/basic
 .kar,audio/midi{改行}.m1a,audio/mpeg{改行}.m2a,audio/mpeg{改行}.midi,audio/midi{改行}.mid,audio/midi{改行}.smf,audio/midi{改行}.mp2,audio/mpeg
 .mp3,audio/mpeg{改行}.mpa,audio/mpeg{改行}.mpega,audio/mpeg{改行}.rpm,audio/x-pn-realaudio-plugin{改行}.snd,audio/basic{改行}.swa,application/x-director
 .vqf,audio/x-twinvq{改行}.wav,audio/wav{改行}.aab,application/x-authorware-bin{改行}.aam,application/x-authorware-map{改行}.aas,application/x-authorware-seg{改行}.asf,video/x-ms-asf
 .avi,vide/x-msvideo{改行}.dcr,application/x-director{改行}.dir,application/x-director{改行}.dxr,application/x-director{改行}.flc,video/flc
 .fli,video/flc{改行}.mng,video/mng{改行}.m1s,vide/mpeg{改行}.m1v,vide/mpeg{改行}.m2s,vide/mpeg{改行}.m2v,vide/mpeg{改行}.moov,video/quicktime{改行}.mov,video/quicktime
 .qt,video/quicktime{改行}.mpeg,vide/mpeg{改行}.mpg,vide/mpeg{改行}.mpe,vide/mpeg{改行}.mpv,vide/mpeg{改行}.ppt,application/mspowerpoint{改行}.rm,audio/x-pn-realaudio
 .spl,application/futuresplash{改行}.swf,application/x-shockwave-flash{改行}.vdo,video/vdo{改行}.viv,video/vnd.vivo{改行}.vivo,video/vnd.vivo{改行}.xdm,application/x-xdma
 .xdma,application/x-xdma{改行}.cdf,application/x-netcdf{改行}.class,application/octet-stream{改行}.exe,application/exe{改行}.pl,application/x-perl
 .ram,audio/x-pn-realaudio{改行}.vdb,application/activexdocument{改行}.vqe,audio/x-twinvq-plugin{改行}.vql,audio/x-twinvq-plugin
 .txt,text/plain{改行}.csv,text/csv{改行}.tsv,text/tab-separated-values{改行}.doc,application/msword{改行}.xls,application/vnd.ms-excel{改行}.ppt,application/vnd.ms-powerpoint
 .pdf,application/pdf{改行}.xdw,application/vnd.fujixerox.docuworks{改行}.html,text/html{改行}.htm,text/html{改行}.css,text/css{改行}.js,text/javascript
 .hdml,text/x-hdml{改行}.jpg,image/jpeg{改行}.jpeg,image/jpeg{改行}.png,image/png{改行}.gif,image/gif{改行}.bmp,image/bmp{改行}.ai,application/postscript
 .mp3,audio/mpeg{改行}.m4a,audio/mp4{改行}.mp4,audio/mp4{改行}.wav,audio/x-wav{改行}.mid,audio/midi{改行}.midi,audio/midi{改行}.mmf,application/x-smaf
 .mpg,video/mpeg{改行}.mpeg,video/mpeg{改行}.wmv,video/x-ms-wmv{改行}.swf,application/x-shockwave-flash{改行}.3g2,video/3gpp2{改行}.zip,application/zip
 .lha,application/x-lzh{改行}.lzh,application/x-lzh{改行}.tar,application/x-tar{改行}.tgz,application/x-tar{改行}.exe,application/octet-stream」。
 
 ●MIMETYPE取得(FILEから|FILEの|FILEで|FILEを)
 　　Aとは文字列。A=FILEから拡張子抽出。
 　　もし、A=空ならば、空で戻る。
 　　A=Aを小文字変換。A=Aを英数半角変換。
 　　Bとは数値。B=MIMEリストの0でAを0から表検索。
 　　もし、B=-1ならば、空で戻る。
 　　MIMEリスト[B,1]で戻る。
 #-----------------------------------------------------------------------
 #-----------------------------------------------------------------------
----
#comment()

----

---

復元してよろしいですか？