ＳＶＧからＣＳＶに変換します。 Imports System.Xmlを宣言して、XmlDocumentを使います。 Imports System.IOを宣言して、MemoryStreamを使います。 レコードを検索し、バイナリフィールドを MemoryStreamに変換し、StreamReaderで文字列として ＳＶＧを読み出したら（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
🏠
🏠
