struts-config.xmlを読み、Excelにform-beanの内容を書くマクロ

　struts-config.xmlの内容、見るの大変じゃありません（＞＿＜！）
　Excelに、表の形で出してほしくありません？？
　XMLファイルなんだから、Domで読み込んでかけるわけですよ。

ということで、まずは、

なシートに（シート名「フォーム一覧」


と、Excelシート（シート名は「表紙」とする）に、
struts-configのパスをいれて（入れるのは、B4セル）
「実行」ボタン（＝ボタン２）をクリックすると、

なかんじで出力する（４行目から）

Excelマクロプログラムを作ってみました。

で、マクロはこんなかんじ。

Sub ボタン2_Click()
    Dim tagName As String
    Dim tagValue As String
   
   '   オブジェクトを作成
    Set xdoc = CreateObject("MSXML2.DOMDocument")
    
    xdoc.async = False
    URL = Sheets("表紙").Range("B4")    '   struts-config.xmlのありか
   
    If (xdoc.Load(URL) = False) Then
        MsgBox "アクセスできませんでした"
        Exit Sub
    End If
    
    '   取得したstruts-config.xmlのXform-beanの内容を出す
     Set beanList = xdoc.getElementsByTagName("form-bean")
     
    
    '   出力！
    gyo = 4
     For i = 0 To beanList.Length - 1
        Set bean = beanList.item(i)     '   form-bean１行分とりだし
        
        For j = 0 To bean.Attributes.Length - 1
            tagName = bean.Attributes(j).nodeName
            tagValue = bean.Attributes(j).nodeValue
            Select Case tagName
            Case "name"
                Sheets("フォーム一覧").Cells(gyo, 1) = tagValue
            Case "type"
                Sheets("フォーム一覧").Cells(gyo, 2) = tagValue
            End Select
        Next
        gyo = gyo + 1
     Next
     
    MsgBox "おわりました"

End Sub

つぎは、Action

デジタル化にレベルがあることを考慮しない３ヵ年緊急プランは、危険かも？

　いま、３ヵ年緊急プランを見ているんだけど、
　デジタル化すれば、つながる・・・みたいな書き方で、
　きっけんだよなあああああ・・・

デジタル化には、レベルがあるのよ。仮に番号ふると、こんなかんじ。

レベル１：
　ＰＤＦ、イメージファイル等、閲覧には問題ないが、意味的に再利用するのは困難

レベル２：
　ＣＳＶ、ＸＭＬのインスタンス（ＤＴＤ，ＸＭＬのスキーマなし）など
　ローカルでは再利用可能で便利なんだけど、
　ぜんぜん違う人が見たら、意味が分からず、あるいは誤解されて、利用できない。

レベル３：
　たとえば、ＸＲＢＬのタクソノミのような、セマンティック的に明確になっているＸＭＬ。
　この場合、そのセマンティックの対応関係をつければ、つながる。

---

　つなげるためには、レベル３まで必要。
　しかし、レベル３に旧に持ってくることが出来ないので、いったんレベル２のＸＭＬにして、それで、レベル２のＸＭＬスキーマを検討しながら、レベル３にもっていく。ということで、レベル２からレベル３は、処理が流れているんだけど、レベル１とレベル２には、ものすごーい断層があるのよ。

　つまり、ＰＤＦにしても、それは、利用できない。
　むしろ、紙をＰＤＦやイメージにするのはかんたん。
　スキャナを通せばいいのだから。
　それを、ＸＭＬ化するのがむずかしい
　（あのー、イメージファイルを１６進にすれば・・とか、そーいう意味じゃないよ、分かってると思うけど）

---

　さらに問題なのは、かりに

レベル０
　電子化されていない

　というのを付け足すと、レベル０～３において、迅速な処理が出来るのはどれか？というと、かならずしもレベル３ではないのよ。レベル０の紙は、どこでも見えるけど、レベル３になってしまうと、すぐに見れない。
　もし、すぐに見たいなら、電子ペーパーをもっと普及させないと、むずかしいんじゃないかなあ。
　ケータイで、設計図をみるとか、ありえないでしょ（＾＾；）

　また、経済性を考えると、レベル０の紙という場合もある。

---

そこで、まず、

１．現状が、どのレベルにあり、
２．レベル０、１のものが、レベル２、３に持っていけるかどうか？
３．それぞれのレベルで、費用対効果はどうか

を検討したうえで、レベル２にもっていける、かつ、レベル２以上にしたときに、マイナスの効果が小さい（紙より便利）なものからやっていく必要があるんだけど、

そー言うことにふれていない、この３ヵ年緊急プランは、
　・ＰＤＦにしておしまい。
　・パソコンがないと操作できず、不便不便
っていう、お金かけて、非効率化に向かう可能性があると思うなあ・・・

Ｐ．Ｓ　実は国だけの話じゃないよ、会社でもそう。