エンコードXML文字列

Question

私はxmlファイルに保存する必要があるテキストがあります。しかし、内部テキストには、XML（unicode：0xbのような）が許されないXMLがあります。どのようにフィルタリングできますか？ VBScriptメソッドはHTMLEncodeに似ています。

Answer 1

ASPにはHTMLEncodeメソッドがありますが、プレーンなVBScriptではありません。あなたは、このような場合のために、それを自分で実装する必要があります。

Function EncodeCharacter(m, p, s) 
    EncodeCharacter = "&#" & Asc(m) & ";" 
End Function 

Function EncodeString(s) 
    Set re = New RegExp 
    re.Pattern = "[^a-zA-Z0-9 .:;!?/_-]" 
    re.Global = True 

    EncodeString = re.Replace(s, GetRef("EncodeCharacter")) 
End Function 

str = ... 
encoded = EncodeString(str) 

上記のコードは、対応する数値エンティティと特殊文字を置換するreplacement functionと、正規表現を使用しています。正規表現を適切に調整して、置き換えたくない文字をすべてカバーするようにします。