アノトペンPGCオブジェクト
サイバーキャンパス「鷹山」
の単元です。
小単元
概要
SVGからCSVに変換します。
Imports System.Xmlを宣言して、XmlDocumentを使います。
Imports System.IOを宣言して、MemoryStreamを使います。
レコードを検索し、バイナリフィールドを
MemoryStreamに変換し、StreamReaderで文字列として
SVGを読み出したら(SvgXml)
pathを取り出して構文解析、
Private Function SvgToCsv(ByVal szSource As String) As String
Dim dom As New XmlDocument
dom.LoadXml(szSource)
Dim sz As String
Dim xe As XmlElement
sz = ""
xe = dom.DocumentElement
Dim gnl As XmlNodeList = xe.GetElementsByTagName("g")
For Each c As XmlElement In gnl
If Not IsNothing(c) Then
Dim pnl As XmlNodeList = c.GetElementsByTagName("path")
For Each n As XmlElement In pnl
sz &= Me.SvgToCsv3(n.Attributes("d").Value) & Chr(13) & Chr(10)
Next
Else
sz = "gタグみつかれん"
End If
Next
Return sz
End Function