Rosetta Code

XML/Output: Difference between revisions

Page Discussion

XML/Output (view source)

Revision as of 19:16, 23 July 2021

1,060 bytes removed ,  2 years ago
m
→‎{{header|BASIC}}
(Added Wren)
Line 626:
 
=={{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 + "&lt;"
Case Asc(">")
r = r + "&gt;"
Case Asc("&")
r = r + "&amp;"
Case Asc("""")
r = r + "&quot;"
Case Asc("'")
r = r + "&apos;"
Case Else
r = r + c
End Select
Next
Function = r
End Function</lang>
==={{header|Applesoft BASIC}}===
<lang ApplesoftBasic>100 Q$ = CHR$(34)
Jjuanhdez
2,122

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/94921"