cfdirectoryでお気楽ファイル公開[2]

Core2Duoを積んだマシンをゲットした。

（T_T) うれしい・・・・

さて、

ColdFusionを使って、お気楽にディレクトリをweb公開する例のその２。

前回はcfdirectoryで一覧を取るところまででした。
<cfdirectory directory="/var/www/html/fuho" action="list" name="spf" filter="*.pdf" sort="name DESC"/>

今回は表示部分です。
<cfoutput>
　<cfloop query="spf">
　<div class="items">
　　<cfif (IsNumeric(ListGetAt(name,1,'.')) is false) or (Len(ListGetAt(name,1,'.')) neq 8)>
　　　　[#name#]←ファイル名がyyyymmdd.pdfでは無いようです....
　　<cfelse>
　　　　<h3><a href="./kyu/sambaweb/newspaper/#name#" target="_PDF">#left(name,4)#年 #mid(name,5,2)#月 #mid(name,7,2)#日</a> （#NumberFormat(size/1024/1024,'__._')#MB）</h3>
　　</cfif>
　</div>  
　</cfloop>
</cfoutput>

いろいろ関数を使っています。
公開するルールとして、yyyymmdd.pdf形式でファイルをアップする事にしたので、そのルールに合っているかどうか一応チェックしています。相手はオツボネーゼだったりするので、何をしでかすかわかりませんから。
チェックは２種類。
ひとつは、拡張子を除いたファイル名が数字かどうかを、
IsNumeric(ListGetAt(name,1,'.'))
これでチェックしています。
IsNumeric(文字列)関数で、文字列が数字ならtrue、数字でなければFlaseが返ります。
で、拡張子.pdfを除くために、ListGetAt関数（→LiveDocs）を使っています。
left関数などを使って、「ファイル名の左から８文字とる」でも良さそうですが、そこはオツボネーゼ。何文字のファイル名になるのかわかりません。拡張子もアヤシイかもしれません。
なので、ListGetAtを使っています。

ColdFusionで言う「リスト」とは、
　　"1,3,5,7,11"　とか　"赤;青;黄色;紫"　とか、決まった区切り文字を含んだ文字列です。
こいつの３番目を取り出すといった事ができます。
ListGetAt(リスト文字列 , 何番目を取るか , リストセパレータ ) という決まりなので、３つ目を取り出すにはそれぞれ、
ListGetAt("1,3,5,7,11" , 3 , ",")　とすれば　'5'　を、　ListGetAt("赤;青;黄色;紫" , 3 , ';')　とすれば　'黄色'　を取り出すことができます。

ListGetAt( name , 1 , "." )　は、
name（←ファイル名）　をピリオドで区切られたリストと見立てて、１番目を取る。　ってことになります。
で、これが数字かどうかを判断しています。

もう一つのチェックは、その数字が８ケタかどうかをLen(ListGetAt(name,1,'.'))　で、チェックしています。

まぁ、こんなチェックをしても、オツボネーゼが　20101500.pdf　とか入れちゃうのは阻止できませんが、この先エラーは出なくなりますし、いくらなんでも変な日付だと気がつくと思います。

年月日の表示部分はleft関数とかmid関数なので、どんな言語でも当たり前。

その先のファイルサイズの表示ですが、
NumberFormat(size/1024/1024,'__._')
と、NumberFormat関数（→LiveDocs）を使って、少数第一位までの表示に整えています。

こいつを<cfloop query="">　で廻してるわけです。

当然、ディレクトリ内に何百もファイルがあれば、全部表示されてしまうところが「お気楽」なところですねぇ。

その辺は増えたときに考えます。はい。