lyphtesttest winmerge class の比較

C:\Program Files\WinMerge\MergePlugins

１：jad.exe

２：class diff with jad.sct 下記はファイルの内容

<scriptlet> <!-- Diff Class files with jad plugin for WinMerge . (C) aya_eiya 2012 --> <implements type="Automation" id="dispatcher">  <property name="PluginEvent">    <get/>  </property>  <property name="PluginDescription">    <get/>  </property>   <property name="PluginFileFilters">     <get/>   </property>   <property name="PluginIsAutomatic">     <get/>   </property>   <method name="UnpackFile"/>   <method name="PackFile"/> </implements>

<script language="VBS"> Option Explicit Dim JadPath JadPath="C:\Program Files\WinMerge\MergePlugins\jad.exe"

Function get_PluginEvent()          get_PluginEvent = "FILE_PACK_UNPACK" End Function

Function get_PluginDescription()          get_PluginDescription = "ClassDiffWithJad" End Function

Function get_PluginFileFilters()          get_PluginFileFilters = "\.class$" End Function

Function get_PluginIsAutomatic()          get_PluginIsAutomatic = True End Function

Function PackFile(fileSrc, fileDst, pbChanged, pSubcode)  PackFile = False End Function

Function UnPackFile(fileSrc, fileDst, pbChanged, pSubcode)  Dim FSO  Dim cls  Dim strm  Dim src    Set FSO = CreateObject("Scripting.FileSystemObject")  Set cls = FSO.GetFile(fileSrc)  Set strm = FSO.OpenTextFile(fileDst,2)  src = Jad(cls.ParentFolder,cls.Name)  strm.Write(src)  strm.Close    pbChanged = True  pSubcode = 0  UnpackFile = True End Function

Function Jad(path_1,class_file)  ‘// CreateShell  Dim WshShell  Dim exec  set WshShell = CreateObject("WScript.Shell")

‘// Jad  WshShell.CurrentDirectory = path_1  set exec = WshShell.Exec(JadPath + " -p -8 " + class_file)  Jad = exec.StdOut.ReadAll() End Function

</script> </scriptlet>