Wat heb jij onder je control+V #4

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
108
109
110
111
112
113

<?php
Const ForReading    = 1
Const UltraEdit     = "Uedit32.exe "
Const SourceShare   = "Z:\"
Const cActivityFile = "Y:tmp_includeact.dat"

Dim iCnt
Dim iLine, iCol
Dim iIntLine
Dim cFile, cLine,cUNIXFile

iLine = wscript.arguments(0)
iCol  = wscript.arguments(1)
cFile = wscript.arguments(2)
cUnixFile = Replace(cFile, "", "/")

If iCol = "%col%" Then
  MsgBox "Please open a file from Z: to use this option"
Else
  iIntLine = Int(iLine)


  Set WSHShell = wscript.createobject("WScript.Shell")
  Set objFSO = CreateObject("Scripting.FileSystemObject")

  Set objTextFile = objFSO.OpenTextFile _
      (cFile, ForReading)

  'Patterns for finding a filename (contains / and .)

  Set objPRegExp = New RegExp
  objPRegExp.IgnoreCase = True
  objPRegExp.Pattern = "."
      Set objSlashRegExp = New RegExp
  objSlashRegExp.IgnoreCase = True
  objSlashRegExp.Pattern = "/"

  ' Read the current line from the source file

  Do Until objTextFile.AtEndOfStream
      strNextLine = objTextFile.Readline
      iCnt = iCnt + 1.

      If iCnt = iIntLine Then
        cLine = strNextLine
      End If
  Loop

  cLine = Replace(cLine, "", " ")
  cLine = Replace(cLine, """", " ")
  cLine = Replace(cLine, ",", " ")
  cLine = Replace(cLine, "*", " ")
  cLine = Replace(cLine, ":", " ")
  cLine = Replace(cLine, "(", " ")
  cLine = Replace(cLine, ")", " ")
  cLine = Replace(cLine, "{", " ")
  cLine = Replace(cLine, "}", " ")
  cLine = Replace(cLine, "&", " ")
  cLine = Replace(cLine, "=", " ")

  cSourceLine = split(cLine, " ")
  cFilePath   = split(cUnixFile, "/")

  For i = 1 To UBound(cSourceLine)
    If objPRegExp.Test(cSourceLine

) And objSlashRegExp.Test(cSourceLine

) Then
cOpenSource = cSourceLine

      Exit For
    End If
  Next

  cActivity   = cFilePath(3)
  cCountry    = cFilePath(2)
  cAppl       = cFilePath(1)
  cOpenSource = Replace(cOpenSource, "/","")
  cDisFile    = SourceShare + cAppl + "" + cCountry + "dissrc" + cOpenSource
  cASTDisFile = SourceShare + cAppl + "ASTdissrc" + cOpenSource


  If Not objFSO.FileExists (cASTDisFile) Then
    MsgBox "Error No file found in in line (" & iLine & ") with filename " & cOpenSource  & " : " & cLine
    WScript.Quit(1)
  End If

  If cActivity = "dis" then
    cExecLine = """C:Program Files (x86)Progress SoftwareWebClientbinprowc"" -T %TEMP% -p ""C:Documents and SettingsAll UsersApplication DataHAVI OpenEdge Developer Environment4globjwIncludeActivity.r"""
    cExecLine = cExecLine + " -param """ + cAppl + "," + cCountry + """ "
    Set oExec = WshShell.Exec ( cExecLine )

    Do While oExec.Status = 0
         WScript.Sleep 100
    Loop

    If objFSO.FileExists (cActivityFile) Then
      Set objTextFile = objFSO.OpenTextFile (cActivityFile, ForReading)
        cActivity = objTextFile.Readline
        objTextFile.Close
        objFSO.Deletefile cActivityFile
    End If
  End If

  cActFile  = SourceShare + cAppl + "" + cCountry + "" + cActivity + "src" + cOpenSource

  If cActivity = "dis" Then cActFile = ""

  If objFSO.FileExists (cActFile) Then
    WSHShell.exec UltraEdit & cActFile
  ElseIf objFSO.FileExists (cDisFile) Then
    WSHShell.exec UltraEdit & cDisFile
  ElseIf objFSO.FileExists (cASTDisFile)Then
    WSHShell.exec UltraEdit & cASTDisFile
  End If
End if
?>