1:  Module Inkscape

   2:      Public Sub SvgToPdf2(InputSvgFileName As String, OutPdfFileName As String, WorkingDirectory As String, InkscapePath As String)

   3:   

   4:          Dim CmdUtil As New Process

   5:          CmdUtil.StartInfo.FileName = "" & InkscapePath & ""

   6:          CmdUtil.StartInfo.Arguments = "--without-gui --export-pdf "" & OutPdfFileName & ""  " & "" & InputSvgFileName & ""

   7:          CmdUtil.StartInfo.WorkingDirectory = IO.Path.GetDirectoryName(WorkingDirectory)

   8:          CmdUtil.StartInfo.UseShellExecute = False

   9:          CmdUtil.StartInfo.RedirectStandardError = True

  10:          Try

  11:              CmdUtil.Start()

  12:              CmdUtil.WaitForExit()

  13:          Catch ex As Exception

  14:              MsgBox(ex.Message)

  15:          End Try

  16:   

  17:      End Sub

  18:  End Module

   1:  Imports HtmlAgilityPack

   2:  Imports System.Linq

   3:   

   4:  Partial Public Class XMLParser_HtmlAgilityPack

   5:   

   6:      Dim SVG As HtmlDocument

   7:   

   8:      Public Sub New(SvgFileName As String)

   9:          SVG = New HtmlDocument()

  10:          SVG.Load(SvgFileName)

  11:      End Sub

  12:   

  13:      Public Function GetTextNode(TextNodeName As String) As HtmlNode

  14:          Return SVG.DocumentNode.SelectNodes("//text[@id='" & TextNodeName & "']").First

  15:      End Function

  16:   

  17:      Public Function GetSpanNode(SpanNodeName As String) As HtmlNode

  18:          Return SVG.DocumentNode.SelectNodes("//tspan[@id='" & SpanNodeName & "']").First

  19:      End Function

  20:   

  21:      Public Sub SetSpanNode(SpanNodeName As String, Value As String)

  22:          SVG.DocumentNode.SelectNodes("//tspan[@id='" & SpanNodeName & "']").First.InnerHtml = Value

  23:      End Sub

  24:   

  25:      Public Sub ReplaceSpanText(SpanNodeName As String, OldTxt As String, NewTxt As String)

  26:          SetSpanNode(SpanNodeName, Replace(GetSpanNode(SpanNodeName).InnerText, OldTxt, NewTxt))

  27:      End Sub

  28:   

  29:      Public Sub Save(FileName As String)

  30:          SVG.Save(FileName)

  31:      End Sub

  32:   

  33:  End Class