-2

次のxml形式があります。これは実際にはGoogleマップのkmlファイルです..

        <kml xmlns="http://www.opengis.net/kml/2.2">
          <Document>
            <Name>TestDoc</Name>
            <Style id="Style1">
              <PolyStyle>
                <fill>0</fill>
              </PolyStyle>
            </Style>
            <Folder>
              <Name>Folder1</Name>
              <Placemark>
                <Name>Placemark1Folder1</Name>
                <LookAt>
                  <longitude>-122.0839597145766</longitude>
                  <latitude>37.42222904525232</latitude>
                </LookAt>
              </Placemark>
              <Placemark>
                <Name>Placemark2Folder1</Name>
                <LookAt>
                  <longitude>-101.083959</longitude>
                  <latitude>26.422</latitude>
                </LookAt>
              </Placemark>
            </Folder>
            <Folder>
              <Name>Folder2</Name>
              <Placemark>
                <Name>Placemark1Folder2</Name>
                <LookAt>
                  <longitude>-96.566556</longitude>
                  <latitude>14.422</latitude>
                </LookAt>
              </Placemark>
            </Folder>
          </Document>
        </kml>

<Folder>ノードが見つかるまでxmlを文字列変数に連結したい

したがって、出力文字列は次のようになります。

""<kml xmlns="http://www.opengis.net/kml/2.2"><Document><Name>TestDoc</Name><Style id="Style1"><PolyStyle><fill>0</fill></PolyStyle> </Style>"

私はxmlが初めてです..Plzヘルプ

4

1 に答える 1

3

わかりました...これが私の解決策です

Public Sub ConcatXmlToString()
        Dim xmldoc As XmlDocument = New XmlDocument()
        '================================
        'Hard Coded
        '================================
        Dim ConcatString As String = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?><kml xmlns=" & Chr(34) & "http://www.opengis.net/kml/2.2" & Chr(34) & ">"

        xmldoc.Load("E:\A01c.kml")
        Dim DocumentNodeList As XmlNodeList = xmldoc.GetElementsByTagName("Document")
        For Each DocumentNode As XmlNode In DocumentNodeList
            'xmldoc.ParentNode.ParentNode.RemoveChild(childnode)
            Dim ChildNodeList As XmlNodeList = DocumentNode.ChildNodes
            For Each ChildNode As XmlNode In ChildNodeList
                If ChildNode.Name <> "Folder" Then
                    ConcatString = ConcatString & ChildNode.OuterXml.Replace("xmlns=""http://www.opengis.net/kml/2.2""", "")
                End If
            Next
        Next

        ConcatString = ConcatString & "</Document></kml>"

        Dim str As String = xmldoc.InnerText

    End Sub
于 2013-05-24T04:55:40.467 に答える