Root page: Service Functions – XML

Parent page: Service Functions – XML / WinRunner

Write single child XML node

public function xml_node_child_attr_write(in xml_file, in tag, in text, in attr_tag, in attr_value) {
 auto rc, s_line;
 if (xml_write_mode) {
 rc = file_open(xml_file, FO_MODE_APPEND);
 if (rc != E_OK) return(rc);
 s_line = node_indent & " " & "<" & tag & " " & attr_tag & "=" & "\""& attr_value & "\""& ">" & xml_str_norm(text) & "</" & tag & ">";
 file_printf(xml_file, "%s\r\n", s_line); 
 file_close(xml_file);
 }
 else {
 s_line = node_indent & " " & "<" & tag & " " & attr_tag & "=" & "\""& attr_value & "\""& ">" & xml_str_norm(text) & "</" & tag & ">";
 dump_printf("%s\r\n", s_line); 
 } 
 return(E_OK);
}

Write a pack of child XML nodes

public function xml_node_child_write(in xml_file, in tag1, in text1, in tag2, in text2, in tag3, in text3, in tag4, in text4, in tag5, in text5) {
 auto rc, s_line;
 if (xml_write_mode) {
 rc = file_open(xml_file, FO_MODE_APPEND);
 if (rc != E_OK) return(rc);
 if (tag1 != "") {
 s_line = node_indent & " " & "<" & tag1 & ">" & xml_str_norm(text1) & "</" & tag1 & ">";
 file_printf(xml_file, "%s\r\n", s_line); 
 }
 else {
 file_close(xml_file);
 return(E_OK);
 }
 if (tag2 != "") {
 s_line = node_indent & " " & "<" & tag2 & ">" & xml_str_norm(text2) & "</" & tag2 & ">";
 file_printf(xml_file, "%s\r\n", s_line); 
 }
 else {
 file_close(xml_file);
 return(E_OK);
 }
 if (tag3 != "") {
 s_line = node_indent & " " & "<" & tag3 & ">" & xml_str_norm(text3) & "</" & tag3 & ">";
 file_printf(xml_file, "%s\r\n", s_line); 
 }
 else {
 file_close(xml_file);
 return(E_OK);
 }
 if (tag4 != "") {
 s_line = node_indent & " " & "<" & tag4 & ">" & xml_str_norm(text4) & "</" & tag4 & ">";
 file_printf(xml_file, "%s\r\n", s_line); 
 }
 else {
 file_close(xml_file);
 return(E_OK);
 }
 if (tag5 != "") {
 s_line = node_indent & " " & "<" & tag5 & ">" & xml_str_norm(text5) & "</" & tag5 & ">";
 file_printf(xml_file, "%s\r\n", s_line); 
 }
 else {
 file_close(xml_file);
 return(E_OK);
 }
 file_close(xml_file);
 }
 else {
 if (tag1 != "") {
 s_line = node_indent & " " & "<" & tag1 & ">" & xml_str_norm(text1) & "</" & tag1 & ">";
 dump_printf("%s\r\n", s_line); 
 }
 else {
 return(E_OK);
 }
 if (tag2 != "") {
 s_line = node_indent & " " & "<" & tag2 & ">" & xml_str_norm(text2) & "</" & tag2 & ">";
 dump_printf("%s\r\n", s_line); 
 }
 else {
 return(E_OK);
 }
 if (tag3 != "") {
 s_line = node_indent & " " & "<" & tag3 & ">" & xml_str_norm(text3) & "</" & tag3 & ">";
 dump_printf("%s\r\n", s_line); 
 }
 else {
 return(E_OK);
 }
 if (tag4 != "") {
 s_line = node_indent & " " & "<" & tag4 & ">" & xml_str_norm(text4) & "</" & tag4 & ">";
 dump_printf("%s\r\n", s_line); 
 }
 else {
 return(E_OK);
 }
 if (tag5 != "") {
 s_line = node_indent & " " & "<" & tag5 & ">" & xml_str_norm(text5) & "</" & tag5 & ">";
 dump_printf("%s\r\n", s_line); 
 }
 else {
 return(E_OK);
 }
 } 
 return(E_OK);
}