XML/Output: Difference between revisions
Content added Content deleted
(Added Wren) |
|||
Line 626: | Line 626: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
{{works with|FreeBASIC}} |
|||
<lang basic>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</lang> |
|||
==={{header|Applesoft BASIC}}=== |
==={{header|Applesoft BASIC}}=== |
||
<lang ApplesoftBasic>100 Q$ = CHR$(34) |
<lang ApplesoftBasic>100 Q$ = CHR$(34) |