FTIME.hsp

sample\hspext\FTIME.hsp » Plain Format

#include "hspext.as"

	;	拡張ファイルアクセス命令テスト
	;	選んだファイルのタイムスタンプを表示。
	;	([CLEAR]を押すと、ファイルの時刻が0にリセットされます)
	;

	sdim dd,32000
	sdim tmem,32000
	tmem=""
	fname=""
	;
	dirlist dd,"*.*"
	sel=0
	objsize 160,24
	listbox sel,176,dd	; ID=0
	pos 180,0
	mesbox tmem,450,200	; ID=1
	pos 0,210
	button "SELECT",*ok	; ID=2
	button "CLEAR",*ok	; ID=3
	button "END",*owari	; ID=4
	stop
*ok
	btn=stat
	notesel dd
	noteget fname,sel
	exist fname
	if strsize=0 : goto *lderr
	;
	if btn=3 : gosub *resdate
	gosub *chkdate
	objprm 1,tmem
	stop
*lderr
	dialog "LOAD ERROR!"
	stop
*owari
	end

*resdate
	;	タイムスタンプ時刻を0にする
	;
	dim a,24
	fxtget a,fname
	if stat>0 : goto *chkerr
	a.4=0:a.5=0:a.6=0:a.7=0
	a.12=0:a.13=0:a.14=0:a.15=0
	;
	fxtset a,fname
	if stat>0 : goto *chkerr
	;
	return

*chkdate
	;	タイムスタンプを取得
	;
	dim a,24
	fxtget a,fname
	if stat>0 : goto *chkerr
	;
	dt="Date "+a.0+"/"+a.1+"/"+a.3
	tm="Time "+a.4+":"+a.5+":"+a.6
	tmem="作成日 "+dt+" "+tm+"\n"
	;
	dt="Date "+a.8+"/"+a.9+"/"+a.11
	tm="Time "+a.12+":"+a.13+":"+a.14
	tmem+="更新日 "+dt+" "+tm+"\n"
	;
	dt="Date "+a.16+"/"+a.17+"/"+a.19
	tmem+="アクセス日 "+dt+"\n"
	;
	return
*chkerr
	dialog "FILE STATUS ERROR!"
	return