program Webify ! Read a List_1_7-7_7* text file and make an HTML file with links to ! the drawing number. ! Input format ! 1: Book number ! 3-11: Page numbers ! 13-18: Drawing number ! 20-29: Logic number ! 31-35: Frame / Channel ! 37-40: Subsystem ! 42- : Title character(255) :: Line ! Get title from command line argument call getarg ( 1, line ) ! Begin the file and start a table write ( *, '(a)' ) & & '', & & '
Book | ', & & 'Pages | ', & & 'Drawing # | ', & & 'Logic # | ', & & 'FR CH | ', & & 'Sys | ', & & 'Title | ', & & '
---|---|---|---|---|---|---|
' // line(1:1) // ' | ', & ! Book & '' // line(3:11) // ' | ', & ! Pages & '' // & & line(13:18) // ' | ', & ! Drawing # & '' // line(20:29) // ' | ', & ! Logic # & '' // line(31:35) // ' | ', & ! FR CH & '' // line(37:40) // ' | ', & ! Sys & '' // trim(adjustl(line(42:))) // ' | ', & ! Title & '