Format a file to get desired output using VBScript

[12061986]

Hello ,

I tried a code which reads the file InputFile.txt (attached) grep particular values and write it to a file in a desired output format is in file OutputFile.txt

Below is the code partially I have done..

 
Dim re, targetString, colMatch, objMatch, nMT
 
Set objFS = CreateObject("Scripting.FileSystemObject")
 
Set rs = New RegExp
 
strFileIN = "..\Inputfile.txt"
strFileOUT = "..\Outputfile.txt"
 
With rs
  .Pattern = "\w+\(\w\.+\)" & "\w+\(\w+\)" 
  .Global = True
  .IgnoreCase = True
End With 
 
Set objFile = objFS.OpenTextFile(strFileIN)
strText = objFile.ReadAll
 
 
 
Set colMatch = rs.Execute(strText)
 
Set objOutFile = objFS.CreateTextFile(strFileOUT,True)    
 
 
For nMT = 0 To colMatch.Count - 4
 
objOutFile.WriteLine colMatch(nMT + 0) &" "& colMatch(nMT + 1) &" "& colMatch(nMT + 2) &" "& colMatch(nMT + 3)
 
Next 
 
 
 
objOutFile.Close
 
 

Help me on correcting my code to get to my desired output as in file OutputFile.txt.

[Rabbit]

You haven't said what is wrong with the code. Not working is too general a statement.

Also, since VBS is closer to VBA than VB6, I'm moving this to the Access forum where you may get more help.

[12061986]

QUEUE(TEST.QA.Q1) TYPE(QLOCAL)
CURDEPTH(0) MAXDEPTH(100000)

On my inputfile.txt , How do I form the regular expression pattern to match above pattern's. pls note word "TEST.QA.Q1" may change and the words delimited by "." dots may vary in numbers.

The pattern That i formed in my code didn't match QUEUE(TEST.QA.Q1).

[Rabbit]

Your regex pattern is malformed. It should be \w+\([\w\.]+\)

[12061986]

Thanks Rabbit . It worked. I will try my code.

[12061986]

QUEUE(Q1.A1.C3.TEMP)         TYPE(QLOCAL)
   CURDEPTH(0)                             MAXDEPTH(1000)

How to take values between ( and ) parenthesis and assign it to a variable ? I tried with mid function, but since my number of characters change it is not a solution. Do we have a special function ?

QUEUE=Q1.A1.C3.TEMP TYPE=QLOCAL CURDEPTH=0 MAXDEPTH=1000

[Rabbit]

You already have the pattern, it's the one I posted earlier.

[12061986]

Corrected my question to be specific. Please check now.

[Rabbit]

You can use the replace function.

[Mariostg]

You are probably looking after placeholders ($1, $2) to use the expression you put between parenthesis in your regular expression. Here is an exemple I have in my codes. It takes a line of text, search for numbers having a negative sign at the end and move it at the beginning of the number.

Function BringForwardNegativeSign(LineToFix As String) As String
'This is to put negative sign in front 6.54- to -6.54 that exist in the DRMIS file.
    Dim re As New RegExp
    re.pattern = "\|( +)([0-9]*,?[0-9]*,?[0-9]*\.[0-9]{2})-"
    re.Global = True
    If (re.test(LineToFix) = True) Then
        BringForwardNegativeSign = re.Replace(LineToFix, "|$1-$2")
    Else
        BringForwardNegativeSign = LineToFix
    End If
End Function
 

[Killer42]

I'd just like to mention here that Instr() may be the function you were looking for. It searches a string for another string and tells you where (or whether) it occurs.