SREC_Viewer 更新しました Ver.2.0.4

遅くなりましたが、ツールの更新いたしました。
内容はコメントでエラー報告をいただいた、64bitOSへの対応になります。

と書いておきながら・・・、テスト環境が整わなかった為、デバッグできていません。
対象の環境の方はできればご報告をいただけると助かります。

また、当初予定としては「解像度が足りなかった場合の横ツールバーの位置の修正」を行いたかったんですが、なかなかうまくいかなかったので、とりあえずできた部分だけでの公開です。

なんかグダグダですいません・・・

もうちょっとがんばります。

SREC_Viewer更新しました Ver2.0.3

さりげなく更新です。
大きな変更はないんですが、内部的な挙動変更とJGP結合のUIをちょっといじりました。

旧版のままでも、支障の出る部分ではないので、ご希望の方はDLしてくださいませ。

ところで、XMLのスキーマのお勉強を継続中なのですが、もしかしたらスキーマの適用をするためには、その前に名前空間とやらの取得が必要なのかな？という気がしてきました。（よく理解してない・・・＾＾；）

AIS/MSDSplusの名前空間の取得対象は、JAMP-GPに接続しないと見れないところに置いてあるようで、テストをしても、エラー連発・・・

もしかしたら無理なのかな～　継続調査/お勉強　ですね。

SREC_Viewer更新しました

昨日の話なんですが、Ｖer.2.0.0に更新しました。

更新に当たっての変更点は、

• JAMA子ノードコピー機能
• JAMA/JGP簡易編集機能
• JAMAツリービュー表示で部品階層が3以上有る場合の表示不具合修正
• UI修正(ウインドウへのD&D対応とか)

といったところです。

一番苦労したのは、JAMAの構成情報を読み取る部分で、公開までのテストにえらく時間がかかってしまった・・・

で、公開してすぐにバグ情報をご連絡頂き修正・・・
生成ファイル類の削除タイミングの問題なんですが、すぐに修正できたので、本日中にはアップできるかな？といったところです。

バグ情報のご連絡をいただけるのは非常にありがたいです。
レスポンスが作者の励みですので。

VBScript ファイル参照/名前を付けて保存 ダイアログをつかう

Class clsGetFile
'***********************************************************
    ' 機能：ファイル参照ダイアログ表示処理
    ' 引数：FileFilter, FilterIndex, Title, ButtonText, MultiSelect はExcel同様
    ' InitDir 初期表示フォルダ
    ' 戻り値：ファイルフルパス キャンセル時はEmpty
    '注意事項：引数省略時は、""を入力
'***********************************************************
    Function xlGetOpenFilename(FileFilter, FilterIndex, Title, ButtonText,
MultiSelect, InitDir)

    Dim xlApp
    Dim defPath
  
        Set xlApp = CreateObject("Excel.Application")
        defPath = xlApp.DefaultFilePath
      
        If FileFilter = "" Then FileFilter = "すべてのファイル,*.*"
        If FilterIndex = "" Then FilterIndex = 1
        If Title = "" Then Title = "ファイルを開く"
        If ButtonText = "" Then ButtonText = "開く"
        If MultiSelect = "" Then MultiSelect = False
        If InitDir <> "" Then
            With xlApp
                .DefaultFilePath = InitDir
                .Quit
            End With
            Set xlApp = Nothing '開放しないと設定が反映されない為
            Set xlApp = CreateObject("Excel.Application")
        End If
      
        With xlApp
            xlGetOpenFilename = .GetOpenFilename(FileFilter, _
                                                 FilterIndex, _
                                                 Title, _
                                                 ButtonText, _
                                                 MultiSelect)
            If MultiSelect Then
                If Not IsArray(xlGetOpenFilename) Then xlGetOpenFilename = Empty
            Else
                If xlGetOpenFilename = False Then xlGetOpenFilename = Empty
            End If
            .DefaultFilePath = defPath
            .Quit
        End With
        Set xlApp = Nothing
    End Function

'***********************************************************
    ' 機能：名前を付けて保存ダイアログ表示処理
    ' 引数：InitialFilename, FileFilter, FilterIndex, Title, ButtonText はExcel同様
    ' 戻り値：ファイルフルパス キャンセル時はEmpty
    '注意事項：引数省略時は、""を入力
'***********************************************************
    Function xlGetSaveAsFilename(InitialFilename, FileFilter, FilterIndex,
Title, ButtonText)

    Dim xlApp
    Dim defPath
  
        Set xlApp = CreateObject("Excel.Application")
      
        If InitialFilename = "" Then InitialFilename = xlApp.DefaultFilePath
        If FileFilter = "" Then FileFilter = "すべてのファイル,*.*"
        If FilterIndex = "" Then FilterIndex = 1
        If Title = "" Then Title = "名前を付けて保存"
        If ButtonText = "" Then ButtonText = "保存"
      
        With xlApp
            xlGetSaveAsFilename = .GetSaveAsFilename(InitialFilename, _
                                                     FileFilter, _
                                                     FilterIndex, _
                                                     Title, _
                                                     ButtonText)
            If xlGetSaveAsFilename = False Then xlGetSaveAsFilename = Empty
            .Quit
        End With
        Set xlApp = Nothing
    End Function
End Class

=====================================================
要Excelではあるけれど、
ファイルフィルタ/マルチセレクトが使えるのはでかい
起動に時間を要するのが難点かな・・・

2010/11/26　一部修正しました。

備忘録必要だな・・・と

日常的に集めた環境報告やスクリプトがらみのことなど記載していきます