Sub MakeGallery()
    Dim aPict(999, 2)
    
    cPath = ActiveWorkbook.Path
    cDesc = cPath & "\descript.ion"
    
    cTitle = "Tour 2003"
    cExt = ".jpg"
    
    nPictNum = 0
    Open cDesc For Input As #1
    Do While Not (EOF(1))
        Line Input #1, cLine: cLine = Trim(cLine)
        
        nPos = InStr(1, cLine, cExt)
        If nPos > 0 Then
            nPictNum = nPictNum + 1
            aPict(nPictNum, 1) = Left(cLine, nPos - 1)
            aPict(nPictNum, 2) = LTrim(Mid(cLine, nPos + Len(cExt) + 1))
            If aPict(nPictNum, 2) = Empty Then
                aPict(nPictNum, 2) = " "
            End If
        End If
    Loop
    Close #1
    
    Open cPath & "\templ\onepict.htm" For Input As #1
    cOnePic = Input(LOF(1), 1)
    Close #1
    
    Open cPath & "\templ\thumbs.htm" For Input As #1
    cThumbs = Input(LOF(1), 1)
    Close #1
    
    nStartPos = InStr(1, cThumbs, "[[")
    nEndPos = InStr(1, cThumbs, "]]")
    cOneLine = Mid(cThumbs, nStartPos + 2, nEndPos - nStartPos - 2)
    
    Open cPath & "\thumbs.htm" For Output As #1
    Print #1, Replace(Left(cThumbs, nStartPos - 1), "%title%", cTitle)
    
    For nPict = 1 To nPictNum
        Open cPath & "\" & aPict(nPict, 1) & ".htm" For Output As #2
        
        cHTML = cOneLine
        cHTML = Replace(cHTML, "%pict%", aPict(nPict, 1))
        cHTML = Replace(cHTML, "%desc%", aPict(nPict, 2))
        Print #1, cHTML
        
        cHTML = cOnePic
        cHTML = Replace(cHTML, "%title%", cTitle)
        cHTML = Replace(cHTML, "%prev%", aPict(IIf(nPict = 1, nPictNum, nPict - 1), 1))
        cHTML = Replace(cHTML, "%next%", aPict(IIf(nPict = nPictNum, 1, nPict + 1), 1))
        cHTML = Replace(cHTML, "%pict%", aPict(nPict, 1))
        cHTML = Replace(cHTML, "%desc%", aPict(nPict, 2))
        Print #2, cHTML;
        
        Close #2
    Next nPict
    
    Print #1, Mid(cThumbs, nEndPos + 2);
    Close #1
    
    MsgBox "Kész.", vbInformation, "MakeGallery"
End Sub