41 lines
1017 B
Plaintext
41 lines
1017 B
Plaintext
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 "<CharacterRemarks>"
|
|
For n = 0 to 2
|
|
Read dev, remark
|
|
Print " <Character name="""; xmlquote(dev); """>"; _
|
|
xmlquote(remark); "</Character>"
|
|
Next
|
|
Print "</CharacterRemarks>"
|
|
|
|
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
|