#ViewSource.mscr################
#Operaで閲覧した最後のページ（＝最新のhtmlキャッシュ）の
#ソースコードを、テキストファイルとして表示するスクリプト
#W-ZERO3 WS003SH、Opera 8.6 for ZERO3で動作確認
#MortScript 4.0 RC9
#
#ref. to http://pc11.2ch.net/test/read.cgi/mobile/1172140262/l50
#############################

#Operaのキャッシュフォルダを指定
#幸いなことに、Operaのhtmlキャッシュファイルの拡張子は
#.htm, .html, .shtmlのいずれかであるようなので簡単
Cashe_dir = "\Application Data\Opera\cache4\*.*htm*"

#ソースコードのテキストファイルの保存ディレクトリパス
Source_dir = "\Application Data\Opera\Source"
#同テキストファイルパス
Source_file = Source_dir & "\oprsource.txt"

#保存ディレクトリがなければ作る
If( DirExists( Source_dir ) = 0 )
 MkDir( Source_dir )
EndIf

#キャッシュ内の全ての.*htm*ファイルの作成日時を比較して
#最新のものを抽出
cTime = 0
ForEach Cashe in files ( Cashe_dir )
 If( FileCreateTime( Cashe ) > cTime )
  cTime = FileCreateTime( Cashe )
  FilePath = Cashe
 EndIf
EndForEach

#ファイルをテキストファイルとしてコピー
#過去のものには上書きする
Copy( FilePath, Source_file, 1 )

#.txtに関連付けされたアプリで開く
Run( Source_file )