37 lines
1015 B
Plaintext
37 lines
1015 B
Plaintext
Dim curRow, prevRow, rowCount, lineSize
|
|
|
|
prevRow = ""
|
|
rowCount= 0
|
|
lineSize = 900
|
|
|
|
Set re1 = New RegExp
|
|
re1.Pattern = "\+[0-9]*"
|
|
re1.Global = True
|
|
|
|
Set re2 = New RegExp
|
|
re2.Pattern = ".*sspuser\(\)"
|
|
re2.Global = False
|
|
re2.IgnoreCase = True
|
|
|
|
Set re3 = New RegExp
|
|
re3.Pattern = ".*(" & WScript.Arguments.Item(0) & "\(\)<-)"
|
|
're3.Pattern = ".*<-(.*\(\)<-" & WScript.Arguments.Item(0) & "\(\)<-)"
|
|
re3.Global = False
|
|
re3.IgnoreCase = True
|
|
|
|
|
|
With WScript
|
|
Do
|
|
curRow = re3.replace(re2.replace(re1.Replace(WScript.StdIn.ReadLine, ""),""), "$1")
|
|
If rowCount = 0 Then prevRow = curRow
|
|
|
|
rowCount = rowCount + 1
|
|
If curRow <> prevRow Then
|
|
WScript.StdOut.WriteLine Space(6-Len(rowCount - 1)) & rowCount - 1 & " " & Space(lineSize-Len(prevRow)) & prevRow
|
|
rowCount = 1
|
|
End If
|
|
prevRow = curRow
|
|
Loop Until WScript.StdIn.AtEndOfStream
|
|
WScript.StdOut.WriteLine Space(6-Len(rowCount)) & rowCount & " " & Space(lineSize-Len(prevRow)) & prevRow
|
|
End With
|