|
bashlib-develop-8128dbc/document/ReleaseHtml5.vbs 0000775 0000000 0000000 00000026777 11644313641 0022044 0 ustar 00root root 0000000 0000000 Option Explicit '// Copyright (C) 2007-2011 Sofrware Design Gallery "Sage Plaisir 21" All Rights Reserved. Dim g_g : Sub GetMainSetting( g ) : If not IsEmpty(g_g) Then Set g=g_g : Exit Sub Set g=CreateObject("Scripting.Dictionary") : Set g_g=g '[Setting] '============================================================================== g("SVGPath") = "bashlib.svg" g("VmlTreePath") = "bashlib_tree.html" g("TemplatePath") = "ReleaseHtml5.txt" g("OutHtmlPath") = "bashlib.html" g("RepUrls") = Array( _ Array( "C:\home\mem_cache\MyDoc\src\vbslib new\_src\vbslib.svg#OpenTemp",_ "" ),_ Array( "C:\home\mem_cache\MyDoc\src\vbslib new\_src\vbslib.svg#BashSyntax",_ "" ) ) g("DelUrls") = Array( _ "C:\home\mem_cache\MyDoc\programming\スクリプト\シェルスクリプト\シェルスクリプト.svg",_ "C:\home\mem_cache\MyDoc\programming\OS\UNIX-Linux\!Linux.svg",_ "..\test" ) '============================================================================== End Sub Sub Main( Opt, AppKey ) Dim g : GetMainSetting g Dim w_:Set w_=AppKey.NewWritable( "." ).Enable() '// スクリプトが、このファイルがあるフォルダー以下を書き込みできるようにする。 Dim text, svg_width, svg_height '// Stop:OrError '// マルチ・プロセスのときは、これを記述し、g_debug=0 で実行し、g_debug_process に設定すべき値を確認します。 '//=== SVG を XML の正規形にする Dim file Set file = OpenForReplace( g("SVGPath"), g("OutHtmlPath") ) file.ReplaceRange "", "" file = Empty '//=== SVG を変換する Dim root, elem, attr Set root = LoadXML( g("OutHtmlPath"), Empty ) svg_width = root.getAttribute( "width" ) svg_height = root.getAttribute( "height" ) '// echo root.xml ModifySVGTag root root.removeChild root.selectSingleNode( "./script" ) ModifyGPage2AndOver root ModifyHyperLinkInSVG root root.ownerDocument.save g("OutHtmlPath") Set file = OpenForReplace( g("OutHtmlPath"), Empty ) '//=== 等幅フォントを調整する file.Replace "font-family:MS-Gothic,monospace", _ "font-family:Osaka-mono,MS-Gothic,monospace" '//=== xmlns を削除する。（DOM では消しにくいため、ここで行う） file.Replace " xmlns=""http://www.w3.org/2000/svg""", "" file.Replace " xmlns:xlink=""http://www.w3.org/1999/xlink""", "" '//=== HTML 部分を追加する file.Replace _ ""+vbCRLF,_ ""+vbCRLF+_ ""+vbCRLF+_ " "+vbCRLF+_ ""+vbCRLF+_ " "+vbCRLF+_ ""+vbCRLF+_ " "+vbCRLF+_ " "+vbCRLF+_ ""+vbCRLF+_
"→ もくじ"+vbCRLF+_
" "+vbCRLF+_
""+vbCRLF
file = Empty
'//=== もくじを追加する
InsertTOC svg_width, svg_height
'//=== OnLoad を呼び出すコードを埋め込む
text = ReadFile( g("OutHtmlPath") )
Dim cs : Set cs = new_TextFileCharSetStack( "UTF-8" )
CreateFile g("OutHtmlPath"), text +vbCRLF+_
""+vbCRLF+_
""+vbCRLF+_
""+vbCRLF
End Sub
Sub ModifySVGTag( root )
Dim svg : Set svg = root
Dim page1 : Set page1 = svg.selectSingleNode( "./g" )
Dim attrs : attrs = Array( "sub_doctype", "cats_canvas_type", "onload", _
"preserveAspectRatio", "uuid" )
Dim attr
For Each attr In attrs
svg.removeAttribute attr
Next
svg.setAttribute "width", svg.getAttribute( "width" ) + 0 '// 上の桁の 00 をカット
svg.setAttribute "height", page1.getAttribute( "height" ) + 20
End Sub
Sub ModifyGPage2AndOver( root )
Dim svg : Set svg = root
Dim pages : Set pages = svg.selectNodes( "./g" )
Dim page, page_num, transform, translate_xy, page2_translate_y
page_num = 1
For Each page In pages
If page_num = 1 Then
ElseIf page_num = 2 Then
'//=== ２ページ目の g タグの transform="translate(+10,+844)" の +844 を
'// page2_translate_y へ
transform = page.getAttribute( "transform" )
translate_xy = ArrayFromCSV_Int( sscanf( transform, "translate(%s)" ) )
page2_translate_y = translate_xy( 1 )
page.setAttribute "transform", "translate(+" & translate_xy(0) & ",+" & 10 & ")"
Else
'//=== ３ページ目以降の g タグの transform="translate(+x,+y)" の y を
'// page2_translate_y - 10 減らす
transform = page.getAttribute( "transform" )
translate_xy = ArrayFromCSV_Int( sscanf( transform, "translate(%s)" ) )
page.setAttribute "transform", "translate(+" & translate_xy(0) & ",+" &_
translate_xy(1) - ( page2_translate_y - 10 ) & ")"
End If
page_num = page_num + 1
Next
End Sub
Sub ModifyHyperLinkInSVG( root )
Dim g : GetMainSetting g
Dim svg : Set svg = root
Dim a_tags : Set a_tags = svg.selectNodes( ".//a" )
Dim a_tag, href, paths, path
For Each a_tag In a_tags
'//=== a タグのページ内へのリンクの onclick 属性を変更する
'// 変更前：
'// 変更後：
href = a_tag.getAttribute( "xlink:href" )
If Left( href, 1 ) = "#" Then
a_tag.setAttribute "xlink:href", "#"
a_tag.setAttribute "onclick", "window.location.hash='"+ Mid( href, 2 ) +"'; return false"
Else
'//=== ローカルへのリンクを調整する
For Each paths In g("RepUrls")
If StrCompHeadOf( href, paths(0), Empty ) = 0 Then
If paths(1) <> "" Then
a_tag.setAttribute "xlink:href", paths(1) + Mid( href, Len( paths(0) ) + 1 )
Else
a_tag.removeAttribute "xlink:href"
End If
Exit For
End If
Next
'//=== (src) を消す
If StrCompHeadOf( href, "..\scriptlib\bashlib.sh", Empty ) = 0 Then
If a_tag.firstChild.text = "(src)" Then
a_tag.removeChild a_tag.firstChild
End If
End If
'//=== テストへリンクしないようにする
For Each path In g("DelUrls")
If StrCompHeadOf( href, path, Empty ) = 0 Then
a_tag.removeAttribute "xlink:href"
a_tag.setAttribute "onclick", "return false"
End If
Next
End If
a_tag.removeAttribute "cats_vhref"
Next
End Sub
Sub InsertTOC( svg_width, svg_height )
Dim g : GetMainSetting g
Dim tree, toc, attr, start_pos, end_pos, file
toc = ReadFile( g("TemplatePath") )
'//=== ツリーの部分を読み込む
tree = ReadFile( g("VmlTreePath") )
start_pos = InStr( tree, "" )
end_pos = InStr( start_pos, tree, " " )
toc = toc + Mid( tree, start_pos, end_pos - start_pos ) +_
""+vbCRLF+_
""+vbCRLF+_
""+vbCRLF+_
""+vbCRLF+_
" |