Question

I have a process I would like to automate, but I am not very good at Bat and/or vb script. I am hoping that someone here can give me a pointer or two.

Here is the manual process:

1. Open the file
2. Search for this text: refname=”Microsoft.VSTS.Build.IntegrationBuild”
3. Go down 3 lines.
4. Append this text below the current line:
5. Save the file

If anyone has any suggestions on how to do this I would love to hear it.

Answer 1

This is pretty quick-and-dirty, but it does work and should get you started.

Const ForReading = 1
Const ForWriting = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\MyTestFile.txt", ForReading, False)

findText = "rename=""Microsoft.VSTS.Build.IntegrationBuild"""
Do
  line = f.ReadLine
  position = InStr(1, line, findText, vbTextCompare)
  output = output & line & vbCrLf
Loop While position = 0    

output = output & f.Readline & vbCrLf
output = output & f.Readline & vbCrLf
output = output & f.Readline & vbCrLf
output = output & "YOUR TEXT HERE" & vbCrLf

Do While f.AtEndOfStream <> True
  output = output & f.Readline & vbCrLf
Loop

f.Close

Set f = fso.OpenTextFile("C:\MyOutputFile.txt", ForWriting, True)
f.Write output
f.close