Как восстановить каталог пакетов для проекта Visual Studio C ++?

Я бы рекомендовал использовать регулярные выражения вместо строковых операций для этого:

Set fso = CreateObject("Scripting.FileSystemObject")

filename = "C:\VBS\filediprova.txt"

newtext = vbLf & "<tr><td><a href=""..."">Beginning_of_DD_TC5</a></td></tr>"

Set re = New RegExp
re.Pattern = "(\n.*?Test Case \d)"
re.Global  = False
re.IgnoreCase = True

text = f.OpenTextFile(filename).ReadAll
f.OpenTextFile(filename, 2).Write re.Replace(text, newText & "$1")

Регулярное выражение будет соответствовать фиду линии (\n), за которым следует строка, содержащая строку Test Case, а затем номер (\d), и замена добавит этот текст с текстом, который вы хотите вставить (переменная newtext). Установка re.Global = False делает остановку замены после первого совпадения.

Если строка в текстовом файле закодирована как CR-LF (возврат каретки + строка), вам придется изменить \n в \r\n и vbLf в vbCrLf.

Если вам нужно изменить несколько текстовых файлов, вы можете сделать это в цикле следующим образом:

For Each f In fso.GetFolder("C:\VBS").Files
  If LCase(fso.GetExtensionName(f.Name)) = "txt" Then
    text = f.OpenAsTextStream.ReadAll
    f.OpenAsTextStream(2).Write re.Replace(text, newText & "$1")
  End If
Next