Red Parse测试

red-parse-test.red

Red []

str: "<Ids></Ids><Names></Names><Ids>99</Ids><Names>bar</Names>"

rule-1: [
	some [
		thru "<Ids>" insert "01" [ "</Ids>" | insert "," ] 
		thru "<Names>" insert "foo" [ "</Names>" | insert ","]
	]
]

rule-2: [
	some [
		thru "<Ids>" insert "01" [ not "</Ids>" insert "," | skip ]
		thru "<Names>" insert "foo" [ not "</Names>" insert "," | skip ]
	]
]

parse str rule-1
;parse str rule-2

probe str

;output
;{<Ids>01</Ids><Names>foo</Names><Ids>01,99</Ids><Names>foo,bar</Names>}