1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Function ReplaceWithVBCRLF(script)
Dim clean
clean = script
clean = Replace(clean, "IF", vbCrLf & "IF", 1, -1, 0)
clean = Replace(clean, "if", vbCrLf & "if", 1, -1, 0)
clean = Replace(clean, "DEL", vbCrLf & "DEL", 1, -1, 0)
clean = Replace(clean, "del", vbCrLf & "del", 1, -1, 0)
clean = Replace(clean, "DELTREE", vbCrLf & "DELTREE", 1, -1, 0)
clean = Replace(clean, "deltree", vbCrLf & "deltree", 1, -1, 0)
clean = Replace(clean, "MSIEXEC", vbCrLf & "MSIEXEC", 1, -1, 0)
clean = Replace(clean, "msiexec", vbCrLf & "msiexec", 1, -1, 0)
ReplaceWithVBCRLF = clean
End Function |
Partager