山好会ホームページ自動作成ツール その2

山好会のメンバーにはGPSを使用していない会員もおられる。その場合は GoogleMap や 電子国土Map のページを作成しても意味がないので、ホームページ自動作成ツールの「GPSなしのバージョン」を作成した。
機能を削るだけだから作業は簡単だ。

  1. スライドショー用、アルバム用、サムネイル用に画像を800×600、646×484、80×60 の3種類にリサイズし所定のフォルダに保存する。
  2. 1番で作成した画像を基に、スライドショーページとアルバムページを作成する。
  3. 活動報告ページに、項目を追加する。
  4. トップページの新着情報に項目を追加する。項目が10個になったら、古いものから削除する。

今回は前回のものから1番~4番と、7番が不要になったので上記のとおりかなり簡単になった。ソースは下記のとおり。
この他に「ひな形」として「template」フォルダに[index.html][slide.html]がテンプレートファイルとして必要です。
このツールは基本的にテンプレートファイル[index.html][slide.html]の中の文字列 "aaaaaa" "dddddd" "ffffff" "yyyyyy" "bbbbbb" "cccccc" "hhhhhh" "tttttt" "kkkkkk" "myBlog" "yymmdd" "hhhmmm" をツールで作成した文字列に書き換える動作をします。(下記コードの[htmlファイル生成]の部分参照)
また「photoshifter」フォルダに前回(2011.09.07)のページにある「photoshifter」をダウンロードしておく必要があります。

'[SKS111010.hta]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />

<title>山行会HPツール(GPSなし) Ver11.10.10</title>
<HTA:APPLICATION BORDER="dialog">

<script language="VBScript">
Call Window.ResizeTo(1150,1000)

'<初期設定>
'SKSanko の Path
Dim sksPath : sksPath = "C:\Users\go\Documents\HomePage\SKSanko"

lineColor = "255,0,0"			'数字はR,G,B の値 0,0,255=青、128,128,0=橙色、255,0,255=紫
lineWidth = "3"				'数字は線幅のピクセル値

'変数宣言
Dim gpsData(), fomData()                 'GPSデータ, fomデータ
Dim jpgData(60,7)                        '画像データを読み込む配列
Dim myDateStr, dateFolder, Yobi1, mmdd, fomlen, str
Dim repPath, wwwPath, tmpPath, uplPath, ServerPath1, ServerPath2
Dim mountName, mountAlt, walkDist, gpxFile, gpxPath, gpsPoint, gpsLat, gpsLon, camOffset, offsethh, offsetmm, offsetss, dispCenter
Dim maxN, minN, maxE, minE, centerE, centerN, maxRow, walkTime, Member, myTitle, myHeight, urlStr, sequentialStr, gpolylinepoints

'配列のメモ
'gpsData(0,?)    0=description    1=lat        2=lon        3=月日(JMTStr)    4=時刻(JMTStr)    5=ele
'jpgData(i,j)    i=0~19 マーカー画像     i=20 タイトル画像    i=21 グラフ画像
'                j:0=jpgFilePath    1=jpgtitle    2=coment    3=jpgTime    4=lat lon    5=ele        6=jpgName    7=DiffTime

Set objFso    = CreateObject("Scripting.FileSystemObject")            '準備 ファイルシステムオブジェクトのセット
Set objFolder = objFso.GetFolder(sksPath)                             'C:\Users\Owner\Documents\HomePage\SKSanko
Set colFolders= objFolder.SubFolders                                  '[SKSanko]フォルダ内フォルダコレクション
Set colFiles  = objFolder.Files                                       '[SKSanko]フォルダ内ファイルコレクション

repPath = sksPath & "\report"                                         'C:\Users\Owner\Documents\HomePage\SKSanko\report
tmpPath = sksPath & "\template\000000"                                'C:\Users\Owner\Documents\HomePage\SKSanko\template\000000
uplPath = sksPath & "\UPload"                                         'C:\Users\Owner\Documents\HomePage\SKSanko\UPload
For Each objFol in colFolders                                         '[SKSanko]フォルダ内サブフォルダ検索
    If objFol.Name = "UPload" Then
        objFso.DeleteFolder (uplPath)                                 '新フォルダ[UPload]が有ったら削除
    End If
Next
colFolders.Add ("UPload")                                             '新フォルダ[UPload]フォルダ作成(空)


'-------------------------------------------------
'メインルーチン        実行ボタン
'-------------------------------------------------
Sub impcopy()
    inpDate    = DateValue(fom.pdate.value)
    dateFolder = Mid(Replace(CStr(inpDate), "/", ""), 3)              '2桁年月日(yymmdd)
    impFilePath= repPath & "\" & dateFolder & "\impdata.txt"          'C:\Users\go\Documents\HomePage\SKSanko\report\000000\impdata.txt
    If objFso.FileExists(impFilePath) = True Then
        Set objtxIn = objFso.OpenTextFile(impFilePath)
        i=0
        Do Until objtxIn.AtEndOfStream = True
            myDat = objtxIn.ReadLine()
            Document.forms("fom").item(i).Value = myDat
            i = i+1
        Loop
    End If
End Sub

Sub impOk_onClick
    fomlen = Document.forms("fom").Length - 1
    ReDim fomData(fomlen)                                             'fomData配列の大きさ宣言
    For i=0 To fomlen
        fomData(i) = Document.forms("fom").item(i).Value
    Next
    NewDate1   = DateValue(fomData(0))                                'Date1
    NewDateStr = Replace(CStr(NewDate1), "/", ".")                    'Full年月日(yyyy.mm.dd)
    dateFol    = Mid(Replace(CStr(NewDate1), "/", ""), 3)             '2桁年月日(yymmdd)
    Week1      = WeekdayName(DatePart("w",NewDate1))                  '水曜日
    Yobi1      = Mid(Week1,1,1)                                       '水(曜日1文字1)
    If fomData(1) <>"" Then
        NewDate2   = DateValue(fomData(1))                            'Date2
        Week2      = WeekdayName(DatePart("w",NewDate2))              '水曜日
        Yobi2      = Mid(Week2,1,1)                                   '木(曜日1文字2)
        myDate2  = "~" & Day(NewDate2) & "(" & Yobi2 & ")"
        myDate22 = "~ " & Day(NewDate2) & "(" & Yobi2 & ")"
    Else
        myDate2  = ""
        myDate22 = ""
    End If
    myDateStr = newDateStr & "(" & Yobi1 & ")" & myDate2
    mountName = fomData(2)                                            '山名
    If fomData(3) = "" Then
        mountAlt = ""
    Else
        mountAlt = "(" &fomData(3) & "m)"                           '標高
    End If
    If fomData(4) = "" Then
        walkDist = ""
    Else
        walkDist = fomData(4) & "km"                                  '距離
    End If
    Member    = fomData(5)                                            '参加人数
    myTitle   = newDateStr & "(" & Yobi1 & ")" & myDate22 & " " & mountName & mountAlt
    fomData(7) = Replace(fomData(7), vbCrLf, "<br />")

    For i=0 To 59
        jpgData(i,0) = fomData(i+10)                                  '画像ファイルネーム
        If jpgData(i,0) <> "" Then
            jpgData(i,2) = fomData(i+12)                              '画像コメント
            myLen   = Len(jpgData(i,0)) - InStrRev(jpgData(i,0), "\")
            jpgStr  = Replace(Right(jpgData(i,0), myLen), " ", "-")
            jpgName = LCase(jpgStr)
            jpgData(i,6) = jpgName                                    '画像ファイルネーム
        End If
    Next
    Call subFolderCheck(dateFol)                                      '同一日付フォルダチェック
    Call subSetNewFolder()                                            '日付フォルダ作成
    Call subimpCreate()                                               '再作成時情報を"impdata.txt"に残す
    Call subJpgResize()                                               '画像リサイズ
    Call subAddIndex()                                                'index.htmlの新着情報を追加する
    Call subAddHead()                                                 '山行一覧に項目を追加する
    F = Array( "slide.html", "index.html" )
    For i=0 To 1                                                      '2ファイル生成
        Call subHtmlCreate(F(i))
    Next
    Call subFolCopy()                                                 '日付フォルダコピー
    MsgBox("完了!")
End Sub


'-------------------------------------------------
'参照ファイルネームコピー
'-------------------------------------------------
Sub fnameCopy
    fomlen = Document.forms("fom").Length - 1
    i = 11
    While (i<fomlen)
        If Document.forms("fom").item(i).Value <> "" Then Document.forms("fom").item(i-1).Value = Document.forms("fom").item(i).Value
        i = i+3
    Wend
End Sub


'-------------------------------------------------
'impdata.txt ファイルから前回のデータをコピー
'-------------------------------------------------
Sub impcopy()
    inpDate    = DateValue(fom.pdate.value)
    dateFolder = Mid(Replace(CStr(inpDate), "/", ""), 3)              '2桁年月日(yymmdd)
    impFilePath= repPath & "\" & dateFolder & "\impdata.txt"          'C:\Users\Owner\Documents\HomePage\SKSanko\report\000000\impdata.txt
    If objFso.FileExists(impFilePath) = True Then
        Set objtxIn = objFso.OpenTextFile(impFilePath)
        myDat = DateValue(objtxIn.ReadLine())                         '入力日付とimpdata 日付を比較して
        If myDat = inpDate Then
            Flag = True
        Else
            Flag = False
        End If
        i=1
        If     Flag = True Then                                       '日付が一致したら impdata を読み込む
            Do Until objtxIn.AtEndOfStream = True
                myDat = objtxIn.ReadLine()
                Document.forms("fom").item(i).Value = myDat
                i = i+1
            Loop
        End If
    End If
End Sub


'-------------------------------------------------
'日付フォルダチェック
'-------------------------------------------------
Sub subFolderCheck(dateFol)
    Set objFolder = objFso.GetFolder(repPath)                         'C:\Users\Owner\Documents\HomePage\SKSanko\report
    Set objTxIn   = objFso.OpenTextFile(repPath & "\index1.html")
    txIn = objTxIn.ReadAll()
    i = 2
    Do
        testStr       = "<td><a href=""" & dateFolder & "/report.html"">"
        If InStr(txIn, testStr) > 0 Then
            dateFolder = dateFol & "-" & i
            i = i+1
        Else
            Exit Do
        End If
    Loop
End Sub


'-------------------------------------------------
'日付フォルダ作成
'-------------------------------------------------
Sub subSetNewFolder()
    Set objFolder  = objFso.GetFolder(sksPath)                        'C:\Users\Owner\Documents\HomePage\SKSanko
    Set objsubFol  = objFolder.SubFolders
    If objFso.FolderExists(uplPath) = True Then
        Call objFso.DeleteFolder(uplPath, True)                       '[UPload]が有ったら削除
    End If
    objsubFol.Add ("UPload")                                          'C:\Users\Owner\Documents\HomePage\SKSanko\UPload
    Set objFolder = objFso.GetFolder(uplPath)                         'C:\Users\Owner\Documents\HomePage\SKSanko\UPload
    Set objsubFol = objFolder.SubFolders
    objsubFol.Add ("report")                                          'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report
    Set objFolder  = objFso.GetFolder(uplPath & "\report")            'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report
    Set objsubFol  = objFolder.SubFolders
    objsubFol.Add (dateFolder)                                        'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000
    Set objFolder  = objFso.GetFolder(uplPath & "\report\" & dateFolder)    'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000
    Set objsubFol  = objFolder.SubFolders
    objsubFol.Add ("album")                                           'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000\album
    objsubFol.Add ("slide")                                           'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000\slide
    objsubFol.Add ("thumb")                                           'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000\thumb
End Sub


'----------------------------------------------------------------
'index.htmlファイル項目追加    index.html
'----------------------------------------------------------------
Sub subAddIndex(m)
    motoFile = sksPath & "\index.html"
    shinFile = uplPath & "\index.html"
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile(motoFile)
        txIn = .ReadText
        .Close
    End With
    txOut = txIn
    OldStr = "<dl>"
    NewStr = "<dl>" & vbCrLf & String(7, vbTab) & "<dt>" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日</dt><dd>山行記録に<a href=""report/" & dateFolder & "/index.html"">「" & mountName & "」</a>を追加しました。</dd>"
    txOut = Replace(txOut, OldStr, NewStr)

    OldStr = ""
    Set objRegexp = New RegExp
    With objRegexp
        .Pattern = "\s+<dt>.+</dd>\r\n"
        .Global = True
    End With
    Set Matches = objRegexp.Execute(txOut)
    n = 0
    For Each Match in Matches
        n = n+1
        If n > 8 Then OldStr = OldStr & Match.Value
    Next
    txOut = Replace(txOut, OldStr, "")
    Call WriteUTF8(txOut, shinFile)
End Sub


'----------------------------------------------------------------
'[report] index1.htmlファイル項目追加    index1.html
'----------------------------------------------------------------
Sub subAddHead()
    motoFile = repPath & "\index1.html"
    shinFile = uplPath & "\report\index1.html"
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile(motoFile)
        txIn = .ReadText
        .Close
    End With
    txOut = txIn
    mySp = String(7, vbTab)
    OldStr = "align=""center"">投稿</th></tr>" & vbCrLf
    NewStr = "align=""center"">投稿</th></tr>" & vbCrLf & _
        mySp & "<tr><td>" & myDateStr & "</td><td><a href=""" & dateFolder & "/index.html"">" & mountName & mountAlt & "</a></td><td style=""text-align : center;"" align=""center""></td><td style=""text-align : right;"" align=""right"">" & walkDist & "</td><td style=""text-align : right;"" align=""right"">" & walkTime & "</td><td style=""text-align : center;"" align=""center"">" & Member & "人</td><td style=""text-align : center;"" align=""center"">" & fomData(6) & "</td></tr>" & vbCrLf
    txOut = Replace(txOut, OldStr, NewStr)
    Call WriteUTF8(txOut, shinFile)
End Sub


'----------------------------------------------------------------
'htmlファイル生成    slide.html index.html
'----------------------------------------------------------------
Sub subHtmlCreate(fName)
    motoFile = tmpPath & "\" & fName
    shinFile = uplPath & "\report\" & dateFolder & "\" & fName
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile(motoFile)
        txIn = .ReadText
        .Close
    End With
    txOut = txIn
    mySp = String(6, vbTab)
    If fomData(8) <>"" Then
        myBlog = vbCrLf & mySp & "<p>詳しい記事はこちらをご覧ください。<br /><a href=""" & fomData(8) & """>" & fomData(8) & "</a></p>"
    End If
    imgFol = uplPath & "\report\" & dateFolder & "\slide"             'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\yymmdd\slide
    Set objFolder  = objFso.GetFolder(imgFol)
    Set colFiles   = objFolder.Files                                  '[slide]フォルダ内ファイルコレクション
    Select Case fName
        Case "index.html"
            mySlide = ""
            j = 0
            For Each objFile in colFiles
                For i=0 To 59
                    If objFile.Name = jpgData(i,6) Then
                        If j = 0 Then
                            mySlide = mySlide & mySp & "<tr>"
                        End If
                        mySlide = mySlide & "<td><a href=""slide/" & jpgData(i,6) & """ rel=""lightbox[1]"" title=""" & jpgData(i,1) & jpgData(i,2) & """><img src=""slide/" & jpgData(i,6) & """ width=""160"" height=""120"" border=""0"" /></a></td>"
                        j = j + 1
                        If j = 4 Then
                            mySlide = mySlide & "</tr>" & vbCrLf
                            j = 0
                        ENd If
                        Exit For                                      '画像が重複している場合、最初の画像を採用してループから抜け出す
                    End If
                Next
            Next
            If j>0 Then mySlide = mySlide & "</tr>"
            txOut = Replace(txOut, "ssssssss", mySlide)               'スライドStr
            txOut = Replace(txOut, vbCrLf & vbCrLf, vbCrLf)
        Case "slide.html"
            imgFol = uplPath & "\report\" & dateFolder & "\album"     'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\yymmdd\album
            Set objFolder  = objFso.GetFolder(imgFol)
            Set colFiles   = objFolder.Files                          '[album]フォルダ内ファイルコレクション
            mySlide = ""
            j=0
            For Each objFile in colFiles
                For i=0 To 59
                    If objFile.Name = jpgData(i,6) Then
                        If j=0 Then
                            mySlide = j & ": {'thumb': 'thumb/" & jpgData(i,6) & "', 'main': 'album/" & jpgData(i,6) & "', 'caption': '" & Trim(jpgData(i,1) & " " & jpgData(i,2)) & "'}"
                        Else
                            mySlide = mySlide & "," & vbCrLf & j & ": {'thumb': 'thumb/" & jpgData(i,6) & "', 'main': 'album/" & jpgData(i,6) & "', 'caption': '" & Trim(jpgData(i,1) & " " & jpgData(i,2)) & "'}"
                        End If
                    End If
                Next
                j=j+1
            Next
            txOut = Replace(txOut, "ssssssss", mySlide)               'スライドStr
    End Select
    txOut = Replace(txOut, "aaaaaa", fomData(2))                      'タイトル
    txOut = Replace(txOut, "dddddd", myDateStr)                       '日付(曜日)
    txOut = Replace(txOut, "ffffff", dateFolder)                      '画像フォルダー
    txOut = Replace(txOut, "yyyyyy", Left(Date(),4))                  'Copyright年
    txOut = Replace(txOut, "bbbbbb", fomData(2))                      'description
    txOut = Replace(txOut, "cccccc", fomData(2))                      'keyword
    txOut = Replace(txOut, "hhhhhh", mountAlt)                        '標高
    txOut = Replace(txOut, "tttttt", myTitle)                         '日付(曜日)タイトル
    txOut = Replace(txOut, "kkkkkk", fomData(7))                      '紹介記事
    txOut = Replace(txOut, "myBlog", myBlog)                          'ブログURL
    txOut = Replace(txOut, "yymmdd", dateFolder)                      'フォルダ名
    txOut = Replace(txOut, "hhhmmm", walkTime)                        '所要時間
    Set reg = New RegExp                                              'reg に正規表現クラスをセットする(正規表現が使えるようになる)
    reg.Pattern = "\t+.+titleExtra.+\r\n\t+.+\r\n\t+</div>\r\n"       'ルート図ボタンのパターン
    txOut = reg.Replace(txOut, "")                                    'ルート図ボタン削除

    Call WriteUTF8(txOut, shinFile)
End Sub


'--------------------------------------------
'JPEG画像リサイズ  xxxxxx.jpg
'--------------------------------------------
Sub subJpgResize()
    Set WshShell = CreateObject("WScript.Shell")
    exeFile  = sksPath & "\photoshifter\photoshifter.exe"
    setFile1 = sksPath & "\photoshifter\mysetting1.xml"
    setFile2 = sksPath & "\photoshifter\mysetting2.xml"
    setFile3 = sksPath & "\photoshifter\mysetting3.xml"
    outPath1 = uplPath & "\report\" & dateFolder & "\album\"
    outPath2 = uplPath & "\report\" & dateFolder & "\thumb\"
    outPath3 = uplPath & "\report\" & dateFolder & "\slide\"
    For i=0 To 60
        If jpgData(i,0) <> "" Then
            copyFileStr  = exeFile & " /overwrite /par " & setFile1 & " /format JPEG /file " & """" & jpgData(i,0) & """ " & outPath1 & jpgData(i,6)
            Call WshShell.Run (copyFileStr,,True)
            copyFileStr  = exeFile & " /overwrite /par " & setFile2 & " /format JPEG /file " & """" & jpgData(i,0) & """ " & outPath2 & jpgData(i,6)
            Call WshShell.Run (copyFileStr,,True)
            copyFileStr  = exeFile & " /overwrite /par " & setFile3 & " /format JPEG /file " & """" & jpgData(i,0) & """ " & outPath3 & jpgData(i,6)
            Call WshShell.Run (copyFileStr,,True)
        End If
    Next
    Set WshShell = Nothing
End Sub


'--------------------------------------------
'impData 書き出し    impdata.txt
'--------------------------------------------
Sub subimpCreate()                                                    '再作成時情報を"impdata.txt"に残す
    Set objTxOut2= objFso.CreateTextFile(uplPath & "\report\" & dateFolder & "\impdata.txt")
    txOut = ""
    For i=0 To fomlen
        txOut = txOut & fomData(i) & vbCrLf
    Next
    objTxOut2.Write(txOut)
    objTxOut2.Close()
End Sub


'--------------------------------------------
'Dateフォルダ コピー    [yymmdd]
'--------------------------------------------
Sub subFolCopy()
    motoFol = uplPath & "\report\" & dateFolder
    sakiFol = repPath & "\" & dateFolder
    Call objFso.CopyFolder(motoFol, sakiFol, True)                    'Dateフォルダを[report]にコピー
End Sub


'--------------------------------------------
'UTF8で書込む
'--------------------------------------------
Sub WriteUTF8(text, fileName)
    tmpFile = fileName & ".tmp"
    ' UTF-8で書きこむと自動的にBOM(Byte Order Mark)が、先頭に3バイト付加されてしまう。
    ' それを回避するため、一旦一時ファイルにUTF-8形式で書き込む
    With CreateObject("ADODB.Stream")
        .Type = 2
        .charset = "UTF-8"
        .Open
        .WriteText text
        .SaveToFile tmpFile, 2
        .Close
    End With
    ' 一時ファイルをバイナリで読み取る
    With CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .LoadFromFile(tmpFile)                                        '一時ファイルをバイナリで読み取る
        .Position = 3                                                 'BOMの3バイトを読み飛ばす
                    
        '4バイト目から出力ファイルにバイナリで書き込む
        Dim ws : Set ws = CreateObject("ADODB.Stream")
        ws.Type = 1
        ws.Open
        ws.Write(.Read(-1))
        ws.SaveToFile fileName, 2
        ws.Close
        .Close
    End With
    ' 一時ファイルの削除
    Call CreateObject("Scripting.FileSystemObject").DeleteFile(tmpFile)
End Sub


</script>


</head>
<body style="background-color:#eff8ef;">
<h2>ホームページ「清水北山好会」にスライドショー・ページを追加します</h2>

<h3>■ 準備作業</h3>
<ol>
  <li>紹介記事の文とデジカメ画像を準備してください。画像は最大60枚です。(横位置専用です。縦位置の画像はダメです)</li>
  <li>エラー処理はしていないので、入力に不備があると、止まったり暴走したりします。あしからず!</li>
</ol>

<form id="fom">

<h3>■ 日付     <span><font size="1">山に登った日付を入力してください  例:11/10/5 (2011/10/05の場合)</font></span></h3>
<p>   日付<input name="pdate" size="16" type="text" onchange="impcopy()" />から<input name="pdate1" size="16" type="text" />まで   <font size="-1">日帰りの場合は左側だけ入力。</font></p>

<h3>■ タイトル</h3>
<p>   山名<input id="mount" size="20" type="text" />  標高<input id="ele" size="5" type="text" />m  距離<input id="dist" size="5" type="text" />km  人数<input id="member" size="2" type="text" />人  投稿者<input id="name" size="2" type="text" />     <font size="-1">標高・人数は入力しなくても良いです。</font></p>

<h3>■ 紹介記事      <span><font size="1">山行記録ページで紹介する記事を書いてください。</font></h3>
<p>   <textarea name="kiji" rows="6" cols="55">ここに記事を書いてください。</textarea></p>

<h3>■ ブログURL     <span><font size="1">山行記録ページで紹介する、あなたのブログURLを指定してください。</font></h3>
<p>   <input name="myblog" size="50" type="text" /></p>

<p><input id="impOk" name="impOk" type="button" value=" 実行 " style="font-size:30px; font-weight:bold;" /></p>

<h3>■ スライドショー画像ファイル</h3>
<ul>
  <li><span><font color="#ff0000">画像はすべて横位置でお願いします。</font></span></li>
  <li>最大60枚まで</li>
  <li>画像は自動でサイズを 800×600 と 650×488 と 80×60 にリサイズして既定のフォルダにコピーされます。</li>
</ul>

<p> <font size="-1"> [ファイル名]</font>                               <font size="-1">[画像コメント]</font>  <font size="-2">入力しなくてもいいですが、なるべく画像の説明文を書きましょう。 全角文字で48文字まで</font><br />
 1<input id="jpeg1" name="jpeg1" type="text" value="" size="40" /><input id="jpg1" name="jpeg1" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment1" /><br />
 2<input id="jpeg2" name="jpeg1" type="text" value="" size="40" /><input id="jpg2" name="jpeg2" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment2" /><br />
 3<input id="jpeg3" name="jpeg1" type="text" value="" size="40" /><input id="jpg3" name="jpeg3" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment3" /><br />
 4<input id="jpeg4" name="jpeg1" type="text" value="" size="40" /><input id="jpg4" name="jpeg4" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment4" /><br />
 5<input id="jpeg5" name="jpeg1" type="text" value="" size="40" /><input id="jpg5" name="jpeg5" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment5" /><br />
 6<input id="jpeg6" name="jpeg1" type="text" value="" size="40" /><input id="jpg6" name="jpeg6" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment6" /><br />
 7<input id="jpeg7" name="jpeg1" type="text" value="" size="40" /><input id="jpg7" name="jpeg7" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment7" /><br />
 8<input id="jpeg8" name="jpeg1" type="text" value="" size="40" /><input id="jpg8" name="jpeg8" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment8" /><br />
 9<input id="jpeg9" name="jpeg1" type="text" value="" size="40" /><input id="jpg9" name="jpeg9" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment9" /><br />
10<input id="jpeg10" name="jpeg1" type="text" value="" size="40" /><input id="jpg10" name="jpeg10" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment10" /><br />
11<input id="jpeg11" name="jpeg1" type="text" value="" size="40" /><input id="jpg11" name="jpeg11" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment11" /><br />
12<input id="jpeg12" name="jpeg1" type="text" value="" size="40" /><input id="jpg12" name="jpeg12" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment12" /><br />
13<input id="jpeg13" name="jpeg1" type="text" value="" size="40" /><input id="jpg13" name="jpeg13" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment13" /><br />
14<input id="jpeg14" name="jpeg1" type="text" value="" size="40" /><input id="jpg14" name="jpeg14" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment14" /><br />
15<input id="jpeg15" name="jpeg1" type="text" value="" size="40" /><input id="jpg15" name="jpeg15" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment15" /><br />
16<input id="jpeg16" name="jpeg1" type="text" value="" size="40" /><input id="jpg16" name="jpeg16" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment16" /><br />
17<input id="jpeg17" name="jpeg1" type="text" value="" size="40" /><input id="jpg17" name="jpeg17" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment17" /><br />
18<input id="jpeg18" name="jpeg1" type="text" value="" size="40" /><input id="jpg18" name="jpeg18" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment18" /><br />
19<input id="jpeg19" name="jpeg1" type="text" value="" size="40" /><input id="jpg19" name="jpeg19" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment19" /><br />
20<input id="jpeg20" name="jpeg1" type="text" value="" size="40" /><input id="jpg20" name="jpeg20" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment20" /><br />
21<input id="jpeg21" name="jpeg1" type="text" value="" size="40" /><input id="jpg21" name="jpeg21" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment0" /><br />
22<input id="jpeg22" name="jpeg1" type="text" value="" size="40" /><input id="jpg22" name="jpeg22" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment1" /><br />
23<input id="jpeg23" name="jpeg1" type="text" value="" size="40" /><input id="jpg23" name="jpeg23" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment2" /><br />
24<input id="jpeg24" name="jpeg1" type="text" value="" size="40" /><input id="jpg24" name="jpeg24" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment3" /><br />
25<input id="jpeg25" name="jpeg1" type="text" value="" size="40" /><input id="jpg35" name="jpeg25" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment4" /><br />
26<input id="jpeg26" name="jpeg1" type="text" value="" size="40" /><input id="jpg26" name="jpeg26" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment5" /><br />
27<input id="jpeg27" name="jpeg1" type="text" value="" size="40" /><input id="jpg27" name="jpeg27" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment6" /><br />
28<input id="jpeg28" name="jpeg1" type="text" value="" size="40" /><input id="jpg28" name="jpeg28" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment7" /><br />
29<input id="jpeg29" name="jpeg1" type="text" value="" size="40" /><input id="jpg29" name="jpeg29" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment8" /><br />
30<input id="jpeg30" name="jpeg1" type="text" value="" size="40" /><input id="jpg30" name="jpeg30" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment9" /><br />
31<input id="jpeg31" name="jpeg1" type="text" value="" size="40" /><input id="jpg31" name="jpeg31" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment10" /><br />
32<input id="jpeg32" name="jpeg1" type="text" value="" size="40" /><input id="jpg32" name="jpeg32" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment11" /><br />
33<input id="jpeg33" name="jpeg1" type="text" value="" size="40" /><input id="jpg33" name="jpeg33" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment12" /><br />
34<input id="jpeg34" name="jpeg1" type="text" value="" size="40" /><input id="jpg34" name="jpeg34" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment13" /><br />
35<input id="jpeg35" name="jpeg1" type="text" value="" size="40" /><input id="jpg35" name="jpeg35" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment14" /><br />
36<input id="jpeg36" name="jpeg1" type="text" value="" size="40" /><input id="jpg36" name="jpeg36" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment15" /><br />
37<input id="jpeg37" name="jpeg1" type="text" value="" size="40" /><input id="jpg37" name="jpeg37" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment16" /><br />
38<input id="jpeg38" name="jpeg1" type="text" value="" size="40" /><input id="jpg38" name="jpeg38" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment17" /><br />
39<input id="jpeg39" name="jpeg1" type="text" value="" size="40" /><input id="jpg39" name="jpeg39" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment18" /><br />
40<input id="jpeg40" name="jpeg1" type="text" value="" size="40" /><input id="jpg40" name="jpeg40" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment19" /><br />
41<input id="jpeg41" name="jpeg1" type="text" value="" size="40" /><input id="jpg41" name="jpeg41" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment20" /><br />
42<input id="jpeg42" name="jpeg1" type="text" value="" size="40" /><input id="jpg42" name="jpeg42" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment21" /><br />
43<input id="jpeg43" name="jpeg1" type="text" value="" size="40" /><input id="jpg43" name="jpeg43" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment22" /><br />
44<input id="jpeg44" name="jpeg1" type="text" value="" size="40" /><input id="jpg44" name="jpeg44" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment23" /><br />
45<input id="jpeg45" name="jpeg1" type="text" value="" size="40" /><input id="jpg45" name="jpeg45" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment24" /><br />
46<input id="jpeg46" name="jpeg1" type="text" value="" size="40" /><input id="jpg46" name="jpeg46" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment25" /><br />
47<input id="jpeg47" name="jpeg1" type="text" value="" size="40" /><input id="jpg47" name="jpeg47" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment26" /><br />
48<input id="jpeg48" name="jpeg1" type="text" value="" size="40" /><input id="jpg48" name="jpeg48" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment27" /><br />
49<input id="jpeg49" name="jpeg1" type="text" value="" size="40" /><input id="jpg49" name="jpeg49" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment28" /><br />
50<input id="jpeg50" name="jpeg1" type="text" value="" size="40" /><input id="jpg50" name="jpeg50" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment29" /><br />
51<input id="jpeg51" name="jpeg1" type="text" value="" size="40" /><input id="jpg51" name="jpeg51" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment30" /><br />
52<input id="jpeg52" name="jpeg1" type="text" value="" size="40" /><input id="jpg52" name="jpeg52" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment31" /><br />
53<input id="jpeg53" name="jpeg1" type="text" value="" size="40" /><input id="jpg53" name="jpeg53" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment32" /><br />
54<input id="jpeg54" name="jpeg1" type="text" value="" size="40" /><input id="jpg54" name="jpeg54" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment33" /><br />
55<input id="jpeg55" name="jpeg1" type="text" value="" size="40" /><input id="jpg55" name="jpeg55" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment34" /><br />
56<input id="jpeg56" name="jpeg1" type="text" value="" size="40" /><input id="jpg56" name="jpeg56" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment35" /><br />
57<input id="jpeg57" name="jpeg1" type="text" value="" size="40" /><input id="jpg57" name="jpeg57" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment36" /><br />
58<input id="jpeg58" name="jpeg1" type="text" value="" size="40" /><input id="jpg58" name="jpeg58" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment37" /><br />
59<input id="jpeg59" name="jpeg1" type="text" value="" size="40" /><input id="jpg59" name="jpeg59" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment38" /><br />
60<input id="jpeg60" name="jpeg1" type="text" value="" size="40" /><input id="jpg60" name="jpeg60" type="file" onchange="fnameCopy()" size="1" />  <input size="90" type="text" name="coment39" />
</form>

</body>
</html>
データ
  • 2011.10.10(月)
ほかの参考サイト
アーカイブ

現在位置: ホームなんでも日記メニュー > このページ