Question

我正在尝试修改以下格式的XML文件：

<plist version="1.0">
<dict>
    <key>items</key>
    <array>
        <dict>
            <key>assets</key>
            <array>
                <dict>
                    <key>kind</key>
                    <string>software-package</string>
                    <key>url</key>
                    <string>https://s3.xyz.amazonaws.com/xyz/xyz.ipa</string>
                </dict>
                <dict>
                    <key>kind</key>
                    <string>display-image</string>
                    <key>url</key>
                    <string>https://s3.xyz.amazonaws.com/xyz/xyz.57x57.png</string>
                </dict>
            </array>
        </dict>
    </array>
</dict>

我要修改节点<string>https://s3.xyz.amazonaws.com/xyz/xyz.ipa</string>的内容

我可以找到具有以下内容的同级节点

import Text.XML.HXT.Core

main = do
  plistString <- readFile "manifest.plist"
  let plistDoc = readString [withValidate no, withSubstDTDEntities no] plistString
  node <- runX  $ plistDoc >>> deep (hasText ( == "software-package")) 
  print node

但是我似乎无法选择关联的同级节点（尝试followingSiblingAxis和moveUp >>> getChildren），然后使我可以操纵所需的节点。 NavigatableTree和NTree之间的区别是否有问题？我是show的节点，NTree (XText "software-package") []]

如果任何答案假设接触箭头的机会非常有限，那对我真的很有帮助。

谢谢。

Answer 1

我以不同的方式解决了这个问题。感觉不那么健壮（匹配xyz.ipa的子字符串），但是在我等待灵感的时候它使我畅通无阻：

import Text.XML.HXT.Core
import Data.Char (toUpper)

uppercase = map toUpper

main = do
  plistString <- readFile "manifest.plist"
  let plistDoc = readString [withValidate no, withSubstDTDEntities no] plistString
  node <- runX . xshow $ plistDoc >>> processTopDown (ifA (hasText ( isInfixOf "xyz.ipa")) (changeText uppercase) (this))
  print node

使用HXT修改XML

1 个答案: