lyphtesttest winmerge class の比較

时间:2022-04-06 09:34:29

C:\Program Files\WinMerge\MergePlugins

1:jad.exe

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

<scriptlet> <!-- Diff Class files with jad plugin for WinMerge . (C) aya_eiya 2012 --> <implements type="Automation">  <property>    <get/>  </property>  <property>    <get/>  </property>   <property>     <get/>   </property>   <property>     <get/>   </property>   <method/>   <method/> </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>

lyphtesttest winmerge class の比較