!ディレクトリ内の元画像ファイルの拡張子が.jpgの場合
!for a in *.jpg; do convert -resize 120x90 $a `echo $a
!| sed s/.jpg/_120.jpeg/g` ; done
!上記を一行で実行して、各画像ファイルのサムネイルを作成。
!ls *.jpg > lsjpg で元画像だけのリストを作成
!ls -l -h *.jpg > lslh で元画像のファイル情報のリストを作成
!lslhの中のいらない部分を箱選択で削除
!ls *.jpeg > lsjpeg でサムネイルのリストを作成
!cp lsjpg lshtml でlsjpgをlshtmlにコピーして、viで開き
!冒頭に元画像ファイル数を書き込み、
!.jpgの拡張子を.htmlに置換する。
!
implicit real*8(a-h,o-z)
character a20h(1000)*20,a20je*20,a20j*20,html*20,a40l*40
nretu=6
open(1,file='lshtml')
read(1,*) n
open(2,file='lsjpeg')
open(3,file='lsjpg')
open(4,file='lslh')
open(7,file='index.html')
iretu=0
write(7,*) ''
write(7,*) ''
write(7,*) '
'
write(7,*) ''
write(7,*) ''
write(7,*) ''
write(7,*) '画像アルバム'
write(7,*) ''
write(7,*) ''
write(7,*) ''
do i=1,n
read(1,*) a20h(i)
end do
do i=1,n
if(iretu==0) then
write(7,*) ''
end if
iretu=iretu+1
read(2,*) a20je
read(4,'(a40)') a40l
write(7,*) ''
write(7,*) ' '
write(7,*) ' '
write(7,*) ' '
write(7,*) ' 資料番号:',i,' '
write(7,'(a40)') a40l
write(7,*) ' '
write(7,*) ' '
write(7,*) ' | '
if(iretu==nretu) then
write(7,*) '
'
iretu=0
end if
!
open(8,file=a20h(i))
read(3,*) a20j
write(8,*) ''
write(8,*) ''
write(8,*) ''
write(8,*) ''
write(8,*) ''
write(8,*) ''
write(8,*) '',a20j,''
write(8,*) ''
write(8,*) ''
write(8,*) ''
write(8,*) '上
'
write(8,*) '前'
write(8,*) ''
write(8,*) '次
'
write(8,'(a40)') a40l
write(8,*) '
'
write(8,*) ''
write(8,*) ' - 資料番号:',i,'
'
write(8,*) ' - 画像種別:
'
write(8,*) ' - 紙種:
'
write(8,*) ' - 年代:
'
write(8,*) ' - キーワード:
'
write(8,*) '
'
write(8,*) ''
write(8,*) ''
close(8)
!
end do
write(7,*) ''
write(7,*) '
'
write(7,*) ''
write(7,*) ''
close(1)
close(2)
close(3)
close(4)
close(7)
end