• R/O
  • SSH

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythongamewindowsbathyscaphephpguic翻訳omegattwitterframeworktestbtronarduinovb.net計画中(planning stage)directxpreviewerゲームエンジンdom

Папка MyUtils


Commit MetaInfo

Revision8e75d6ac996fd88560e5c78e3f0e4b8b14644e42 (tree)
Time2016-03-02 21:33:16
AuthorКонстантин Кошкин <catsoft1940@gmai...>
CommiterКонстантин Кошкин

Log Message

Скрипт для сравнения ert и mxl фалов (по состоянию на 16.05.2011)

Change Summary

Incremental Difference

diff -r 4a09ebe00c6f -r 8e75d6ac996f Scripts/MyDiff/MyDiff.vbs
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Scripts/MyDiff/MyDiff.vbs Wed Mar 02 15:33:16 2016 +0300
@@ -0,0 +1,49 @@
1+' Symantec ScriptBlocking Authenticated File
2+' F5F16EE2-C6B5-423C-8E57-529E6228C681
3+
4+Set Shell = CreateObject("WScript.Shell")
5+Set fso = CreateObject("Scripting.FileSystemObject")
6+Set args = WScript.Arguments
7+
8+If args.Count < 2 then
9+ WScript.Quit
10+End If
11+
12+file1 = args(0)
13+file2 = args(1)
14+params = args(2)
15+
16+set f1 = fso.GetFile(file1)
17+set f2 = fso.GetFile(file2)
18+
19+KDiff = "c:\Win2000App\KDiff3\kdiff3.exe"
20+MXLDiff = "c:\My1CUtils\MyDiff\MyDiff.vbs"
21+
22+If Err = 0 Then
23+ FileExt = GetExt(f1.name)
24+ Select Case FileExt
25+ Case "mxl"
26+ cmdline = MXLDiff & " """ & f1.path & """ """ & f2.path & """"
27+ Shell.run cmdline
28+ 'Set Controller = WScript.CreateObject("WSHController")
29+ 'Set RemoteScript = Controller.CreateScript("c:\My1CUtils\MXL\mxlcmp.vbs """ & f1.path & """ """ & f2.path & """")
30+ 'RemoteScript.Execute
31+ Case Else
32+ MsgBox params
33+ If params = "-module" Then
34+ cmdline = KDiff & " " & f1.path & "ÌîäóëüÔîðìû.1s " & f2.path & "ÌîäóëüÔîðìû.1s"
35+ Else
36+ cmdline = KDiff & " " & f1.path & " " & f2.path
37+ End If
38+ Shell.run cmdline
39+ End Select
40+End if
41+
42+Function GetExt(FileName)
43+ pos = InStr(Right(FileName,10),".")
44+ if pos > 0 then
45+ GetExt = LCase(Mid(Right(FileName,10),pos + 1))
46+ else
47+ GetExt = ""
48+ end if
49+End Function
\ No newline at end of file
diff -r 4a09ebe00c6f -r 8e75d6ac996f Scripts/MyDiff/mydiff.bat
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Scripts/MyDiff/mydiff.bat Wed Mar 02 15:33:16 2016 +0300
@@ -0,0 +1,18 @@
1+if %~x1 == .mxl goto mxl
2+if %~x1 == .ert goto ert
3+if %~x1 == .ERT goto ert
4+goto all
5+
6+:mxl
7+c:\MyUtils\Scripts\MXLCmp\mxlcmp.vbs %1 %2
8+echo %1 %2 > c:\MyUtils\Scripts\MXLCmp\diff.txt
9+goto exit
10+
11+:ert
12+c:\MyUtils\Scripts\ErtCmp\ErtCmp.vbs %1 %2 %3
13+goto exit
14+
15+:all
16+c:\MyUtils\KDiff3\kdiff3.exe %1 %2
17+
18+:exit