This repository was archived by the owner on Apr 20, 2020. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 159
/
Copy pathAutoZipRelease.vbs
107 lines (102 loc) · 3.5 KB
/
AutoZipRelease.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
'====================================
'变量定义区
'====================================
p_7zip = "vendor\7z.exe" '7-zip程序路径
p_hhc = "vendor\hhc.exe" 'HTML Help Workshop程序路径
p_ver = "src\version.cpp" 'version.cpp文件路径
Set fso = CreateObject("Scripting.FileSystemObject") '文件操作系统对象
Set osh = CreateObject("WScript.Shell")
If Not fso.FileExists(p_7zip) Then
WScript.Echo "没有找到7z.exe / 7z.exe(7-Zip) not found."
WScript.Quit
End If
If Not fso.FileExists(p_hhc) Then
WScript.Echo "没有找到hhc.exe / hhc.exe(HTML Help Workshop) not found."
WScript.Quit
End If
'如果为窗口模式，改为命令行模式重新启动
If InStr(1,WScript.FullName,"wscript.exe",1) Then
cmd = "cscript.exe """ & WScript.ScriptFullName & """"
cmd = cmd & " """ & downDir & """"
osh.Run cmd
WScript.Quit
End If
'====================================
'函数区
'====================================
'按编码读取文本
Function LoadText(FilePath,charset)
Set adostream = CreateObject("ADODB.Stream")
With adostream
.Type = 2
.Open
.Charset = charset
.Position = 0
.LoadFromFile FilePath
LoadText = .readtext
.close
End With
Set adostream = Nothing
End Function
'正则表达式搜索
Function RegExpSearch(strng, patrn)
Dim regEx ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写，True为不区分。
regEx.Global = True ' 设置全程匹配。
regEx.MultiLine = True
Set RegExpSearch = regEx.Execute(strng)
' If RegExpSearch.Count > 0 Then
' MsgBox RegExpSearch.Item(0)
' If RegExpSearch.Item(0).Submatches.Count > 0 Then
' Set SubMatches = RegExpSearch.Item(0).Submatches
' MsgBox SubMatches.Item(0)
' End If
' End If
Set regEx = Nothing
End Function
'====================================
'主代码
'====================================
verCpp = LoadText(p_ver,"utf-8")
verStrStart = InStr(verCpp,vbCrLf) + Len(vbCrLf)
verStrLength = InStr(verStrStart,verCpp,vbCrLf) - verStrStart
verStr = Mid(verCpp,verStrStart,verStrLength)
Set verStrReg = RegExpSearch(verStr,"\d+\.\d+\.\d+\.\d+")
verNum = verStrReg.Item(0)
WScript.Echo "编译帮助文件 / Compiling help project(FastCopy.chm) ..."
command = """" & p_hhc & """ help\fastcopy.hhp"
Set oExec = osh.Exec(command)
Do While oExec.StdOut.AtEndOfStream <> True
'输出内容
ReadLine = oExec.StdOut.ReadLine
WScript.Echo ReadLine
Loop
If fso.FileExists("help\FastCopy.chm") Then
fso.MoveFile "help\FastCopy.chm","doc\FastCopy.chm"
End If
curDir = osh.CurrentDirectory + "\"
Dim platform,bit
platform = Split("x86,x64", ",")
bit = Split("win-32bit,win-64bit", ",")
For xi = 0 To 1
zipName = "FastCopy-M_" & verNum & "_" & bit(xi) & ".zip"
WScript.Echo "向压缩包添加文件 / Add files to " & zipName & ""
'7-Zip解压文件的命令行
command = """" & p_7zip & """ a -tzip"
command = command & " """ & zipName & """ " '压缩包地址
command = command & " doc "
command = command & " """ & curDir & "Output\Release\" & platform(0) & "\FastExt1.dll"" "
command = command & " """ & curDir & "Output\Release\" & platform(1) & "\FastEx64.dll"" "
command = command & " """ & curDir & "Output\Release\" & platform(xi) & "\FastCopy.exe"" "
command = command & " """ & curDir & "Output\Release\" & platform(xi) & "\setup.exe"" "
Set oExec = osh.Exec(command)
Do While oExec.StdOut.AtEndOfStream <> True
ReadLine = oExec.StdOut.ReadLine
WScript.Echo ReadLine
Loop
Next
Msgbox "完成 / Done."
Set fso=Nothing
Set osh=Nothing