プロデルでネ申Excel作成を自動化したい フォントサイズ編 #1

書式xmlは、「［プログラムの位置］temp\xl\styles.xml」をXMLとして開いたもの
シートxmlは、「［プログラムの位置］temp\xl\worksheets\sheet1.xml」をXMLとして開いたもの
文字列xmlは、「［プログラムの位置］temp\xl\sharedStrings.xml」をXMLとして開いたもの
文字列番号一覧は、{}
セル書式番号一覧は、{}
フォントサイズ一覧は、{}

臨時一覧は、文字列xmlから「sst\si」を取得したもの
[臨時一覧の個数]回値へカウントしながら繰り返す
    [臨時一覧(値)の要素一覧]を箱へそれぞれ繰り返す
        もし箱の名前が「t」かつ箱の内容が「セル２」ならば
            文字列番号一覧に(値-1)を加える
        もし終わり
    繰り返し終わり
繰り返し終わり

臨時一覧は、シートxmlから「worksheet\sheetData\row」を取得したもの
[臨時一覧の個数]回値へカウントしながら繰り返す
    [臨時一覧(値)の要素一覧]を箱へそれぞれ繰り返す
        箱の属性一覧を器へそれぞれ繰り返す
            もし器の名前=「t」かつ器の内容=「s」かつ[箱の要素一覧](1)の内容=文字列番号一覧(1)ならば    ーーt属性が存在するとは限らないのでこうする
                箱を、セル書式番号一覧に加える   ーーv要素の値が一致したc要素を格納
            もし終わり
        繰り返し終わり
    繰り返し終わり
繰り返し終わり

ーーフォント定義を追加
臨時一覧は、書式xmlから「styleSheet\fonts\font」を取得したもの
テンプレは、臨時一覧(1)のXML
臨時は、書式xmlから「styleSheet\fonts」を取得したもの
新規フォントidは、臨時(1)の「count」の内容
臨時(1)の「count」の内容は、[新規フォントid]+1
臨時(1)へ「font」という要素を作って臨時に加える
臨時(2)のXMLを、[正規表現でテンプレを「sz val="[[]\d.[]]+\d+"」から「sz val="20"」へ置換したもの]に変える
ーー属性から名前空間定義を削除
臨時(1)のXMLを、[正規表現で臨時(1)のXMLを「xmlns="[[]^"[]]*"」から「」へ置換したもの]に変える

ーーセルの書式定義を追加
臨時一覧は、書式xmlから「styleSheet\cellXfs」を取得したもの
s属性は、セル書式番号一覧(1)の「s」の内容
s属性を報告
テンプレは、[[臨時一覧(1)のXML]から「<xf[[]^>[]]+>[[]^>[]]+></xf>」という正規表現で区別して取り出したもの](s属性+1)
臨時一覧(1)のXMLは、臨時一覧(1)のXML&テンプレ
臨時一覧(1)のXMLを報告
xf要素は、[臨時一覧(1)の要素一覧]([臨時一覧(1)の要素一覧]の個数)   ーー末尾のxf要素を取得
xf要素の「fontId」の内容は、新規フォントid

新規xf要素idは、臨時一覧(1)の「count」の内容
臨時一覧(1)の「count」の内容は、[新規xf要素id]+1
ーー属性から名前空間定義を削除
削除前は、[臨時一覧(1)のXML]
削除後は、[正規表現で[削除前]を「xmlns="[[]^"[]]*"」から「」へ置換したもの]
臨時一覧(1)のXMLを、削除後に変える
セル書式番号一覧(1)の「s」の内容は、新規xf要素id

「［プログラムの位置］temp\xl\styles.xml」に書式xmlを保存する
「［プログラムの位置］temp\xl\worksheets\sheet1.xml」にシートxmlを保存する