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

Const $CONST_SCRIPT_TITLE   = StringReplace(@ScriptName, ".au3", "")
Const $CONST_FILE_NAME_MAP  = "D:PrivateDesktopimage_url_mapping.txt"
Const $CONST_FILE_NAME_SRC  = "D:PrivateDesktopMTBackup.txt"
Const $CONST_FILE_NAME_DST  = "D:PrivateDesktopMT_New.txt"
Opt("MustDeclareVars", "1")
; Open files
Global $g_hFileMap = FuncOpenFileHandle($CONST_FILE_NAME_MAP, 0)
Global $g_hFileSrc = FuncOpenFileHandle($CONST_FILE_NAME_SRC, 128)
Global $g_hFileDst = FuncOpenFileHandle($CONST_FILE_NAME_DST, 128+2)
If $g_hFileMap <> -1 And $g_hFileSrc <> -1 And $g_hFileDst <> -1 Then
Global $g_mapping = ObjCreate("Scripting.Dictionary")
Local $sLine = ""
While True
; Read a line from map file
$sLine = FileReadLine($g_hFileMap)
If @error <> 0 Then ExitLoop
; Add a mapping from that line
FuncAddMap($sLine)
WEnd
Local $iLine = 0
While True
; Show current progress
$iLine = $iLine + 1
TrayTip($CONST_SCRIPT_TITLE, "Processing line " & $iLine, 1)
; Read a line from source file
$sLine = FileReadLine($g_hFileSrc)
If @error <> 0 Then ExitLoop
Local $nOffset = 1
While True
; Check if this line still contains references to /mt/ folder
Local $arrayReg = StringRegExp($sLine, "(?U)""/mt/(.+)""", 1, $nOffset)
If @error <> 0 Then ExitLoop
; Extract the filename part
$nOffset = @extended
Local $arrayReg2 = StringRegExp($arrayReg[0], ".+/(.+)", 1)
; Find the new mapped URL for the file
Local $sMap = $g_mapping.Item(StringUpper($arrayReg2[0]))
If $sMap <> "" Then
; Replace the original line with this new mapped URL
$sLine = StringReplace($sLine, """/mt/" & $arrayReg[0] & """", """" & $sMap & """")
EndIf
WEnd
; Output the line to destination file
FileWriteLine($g_hFileDst, $sLine)
WEnd
EndIf
; Close file handles
FuncCloseFileHandle($g_hFileMap)
FuncCloseFileHandle($g_hFileSrc)
FuncCloseFileHandle($g_hFileDst)
Func FuncOpenFileHandle($sFilePath, $nMode)
Local $hFile = FileOpen($sFilePath, $nMode)
If $hFile = -1 Then MsgBox(0, $CONST_SCRIPT_TITLE, "Cannot open " & $sFilePath & "!")
Return $hFile
EndFunc
Func FuncCloseFileHandle($hFile)
If $hFile <> -1 Then FileClose($hFile)
EndFunc
Func FuncAddMap($sLine)
Local $arrayReg = StringRegExp($sLine, ".+/(.+)", 1)
If @error = 0 Then
$g_mapping.Item(StringUpper($arrayReg[0])) = $sLine
EndIf
EndFunc