使用Batch脚本将新标记添加到XML

Question

我想在以下XML代码中的现有标记<MPN_OPT_OUT_TERM_DATE/>之后添加新的XML标记ClaimAdminClaimNum>000114700002</ClaimAdminClaimNum> 。

新ClaimBeminClaimNum标记中的新值000114700002应与另一个现有标记<CLAIM_NUM>0001147-00002</CLAIM_NUM>但不带连字符。

请参考以下代码，请告知您的建议。

当前的XML代码：

 <?xml version="1.0" encoding="UTF-8"?>
 -<dataroot>
  -<Standard_x0020_Claim>

   <CLAIM_LOAD_TYPE_INDICATOR>U</CLAIM_LOAD_TYPE_INDICATOR>
   <PATIENT_LOAD_TYPE_INDICATOR>U</PATIENT_LOAD_TYPE_INDICATOR>
   <PATIENT_ID_NUM>431586385</PATIENT_ID_NUM>
   <LAST_NAME>BACON</LAST_NAME>
   <CLAIM_NUM>0001147-00002</CLAIM_NUM>
   <PATIENT_NOTES_LENGTH/>
   <JURIS_CLAIM_NUMBER/>
   <MPN_OPT_OUT_EFF_DATE/>
   <MPN_OPT_OUT_TERM_DATE/>

  </Standard_x0020_Claim>"

预期的XML：

<?xml version="1.0" encoding="UTF-8"?>
-<dataroot>
-<Standard_x0020_Claim>

  <CLAIM_LOAD_TYPE_INDICATOR>U</CLAIM_LOAD_TYPE_INDICATOR>
  <PATIENT_LOAD_TYPE_INDICATOR>U</PATIENT_LOAD_TYPE_INDICATOR>
  <PATIENT_ID_NUM>431586385</PATIENT_ID_NUM>
  <LAST_NAME>BACON</LAST_NAME>
  <CLAIM_NUM>0001147-00002</CLAIM_NUM>
  <PATIENT_NOTES_LENGTH/>
  <JURIS_CLAIM_NUMBER/>
  <MPN_OPT_OUT_EFF_DATE/>
  <MPN_OPT_OUT_TERM_DATE/>
  <ClaimAdminClaimNum>000114700002</ClaimAdminClaimNum>

 </Standard_x0020_Claim>"

Answer 1

使用支持XML的工具来修改XML。 例如，在xsh中 ，您可以编写：

open file.xml ;
my $claim_num = xsh:subst(/dataroot/Standard_x0020_Claim/CLAIM_NUM, '-', '') ;
my $new := insert element ClaimAdminClaimNum
                  after /dataroot/Standard_x0020_Claim/MPN_OPT_OUT_TERM_DATE ;
set $new/text() $claim_num ;

save :b ;