Problem Statement

Create a function that takes a list of character names and a list of corresponding remarks and returns an XML document of elements each with a name attributes and each enclosing its remarks. All elements are to be enclosed in turn, in an outer element. As an example, calling the function with the three names of: And three remarks of: Should produce the XML (but not necessarily with the indentation): The document may include an declaration and document type declaration, but these are optional. If attempting this task by direct string manipulation, the implementation must include code to perform entity substitution for the characters that have entities defined in the XML 1.0 specification. Note: the example is chosen to show correct escaping of XML strings. Note too that although the task is written to take two lists of corresponding data, a single mapping/hash/dictionary of names to remarks is also acceptable. Note to editors: Program output with escaped characters will be viewed as the character on the page so you need to 'escape-the-escapes' to make the RC entry display what would be shown in a plain text viewer (See this). Alternately, output can be placed in tags without any special treatment.

Let's start with the solution:

Data "April", "Bubbly: I'm > Tam and <= Emily", _
    "Tam O'Shanter", "Burns: ""When chapman billies leave the street ...""", _
    "Emily", "Short & shrift"

Declare Function xmlquote(ByRef s As String) As String
Dim n As Integer, dev As String, remark As String

Print ""
For n = 0 to 2
    Read dev, remark
    Print "  "; _
        xmlquote(remark); ""
Next
Print ""

End

Function xmlquote(ByRef s As String) As String
    Dim n As Integer
    Dim r As String
    For n = 0 To Len(s)
        Dim c As String
        c = Mid(s,n,1)
        Select Case As Const Asc(c)
        Case Asc("<")
             r = r + "<"
        Case Asc(">")
             r = r + ">"
        Case Asc("&")
             r = r + "&"
        Case Asc("""")
             r = r + """
        Case Asc("'")
             r = r + "'"
        Case Else
             r = r + c
        End Select
    Next
    Function = r
End Function