TestLink XMLファイルのCDATAからHTMLタグを削除する

Question

TestLinkで（Test Test Suiteの機能を使用して）XMLファイルを抽出しました。私が直面している問題は、要約タグとステップタグのほとんどがCDATAに埋め込まれたHTMLコードとして与えられているということです。

これは問題ではありませんが、このファイルをVisual Studio Test ManagerにインポートするためのEXCELシートに変換する必要があります。私はそれを変換しようとすると、それは適切な方法で来ていない、また、データはまだそれらを囲むHTMLタグを持っている、それは読みにくくなります。

私の質問です：これらのCDATAとHTMLタグをXMLファイルから削除する簡単な方法はありますか？ Canonical形式に変換しようとしましたが、ファイルから実際のHTMLタグではなくCDATA文字列だけが削除されます。したがって、それらをEXCELにエクスポートすることをより困難にします。

SAMPLE INPUT：

   <expectedresults><![CDATA[ 
        1. <span style="font-size: 10pt; color: black; font-family: &quot;Times New Roman&quot;,&quot;serif&quot;;"><font face="Arial">Sample Text Which I want to Keep</font></span> 
        2. Sample Text Which I want to Keep 
        3. <font face="Arial"><span style="font-size: 10pt; color: black; font-family: &quot;Times New Roman&quot;,&quot;serif&quot;;">Sample Text Which I want to Keep</span> 
        4. <span style="font-size: 10pt; color: black; font-family: &quot;Times New Roman&quot;,&quot;serif&quot;;">Sample Text Which I want to Keep</span> 
        ]]> 
       </expectedresults> 

サンプル出力：形式を想定し

   <expectedresults> 
        1. Sample Text Which I want to Keep 
        2. Sample Text Which I want to Keep 
        3. Sample Text Which I want to Keep 
        4. Sample Text Which I want to Keep 
       </expectedresults> 

Answer 1

はあなたが言及したとおりにあります。おそらく、HTMLタグを含む現在のマクロを使用して別のExcelを作成するためのマクロを書くことができます。

私はあなたが必要とするものを抽出するために多段階のプロセスがあると思います。

1. すべての終了タグを削除すると、すべての行の末尾がきれいになります。
2. 各行の>」の最後の出現を探すここhttp://www.mrexcel.com/archive/General/30895.html
3. データを抽出するRIGHT機能の使用を助ける参照してください

HTH

Answer 2

後期の答え：。。。XMLを変換するためのAltovaソフトウェアを試してみてくださいコンテンツ。あ​​なたは、フルバージョンの評価が利用可能である30日のMapForce 特にモジュールを必要としています。

Answer 3

1. TestLinkをエクスポートした後テストケースXMLファイル、エクセル
にインポート
2. 実行HTMLタグやその他の不要なタグ

Sub REMOVE_HTML() 
    ' 
    ' REMOVE_HTML Macro 
    ' Author: Hashan Randev Fernando 
    ' Keyboard Shortcut: Ctrl+m 
    ' 
     Cells.Select 
     Selection.Copy 
     Sheets.Add After:=Sheets(Sheets.Count) 
     ActiveSheet.Paste 
     Range("A1").Select 
     Cells.Replace What:="<*>", Replacement:=" ", LookAt:=xlPart, SearchOrder _ 
      :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
     Cells.Replace What:="&gt;", Replacement:=">", LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Cells.Replace What:="&lt;", Replacement:="<", LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Cells.Replace What:="&quot;", Replacement:="'", LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Cells.Replace What:="&nbsp;", Replacement:=" ", LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Cells.Replace What:="&amp;", Replacement:="&", LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
    End Sub