Reemplazar una cadena variable en vbs - string, vbscript

Necesito reemplazar una marca de tiempo de cadena (n) con una cadena de corrección 6) en vbs. donde n puede ser cualquier valor y la cadena de búsqueda debe distinguirse entre mayúsculas y minúsculas.

StrLine = fle1.ReadLine

"strLine = (reemplazar (strLine," TIMESTAMP (0) "," TIMESTAMP (6) ")

Por favor, ayúdame esto para cualquier valor de n.

Respuestas

Utilice un Regexp.Reemplazar:

>> Set r = New RegExp
>> r.Pattern = "TIMESTAMP(d+)"
>> For Each s In Split("TIMESTAMP(1) TIMESTAMP(11) TIMESTAMP(9)")
>>     WScript.Echo s, r.Replace(s, "TIMESTAMP(6)")
>> Next
>>
TIMESTAMP(1) TIMESTAMP(6)
TIMESTAMP(11) TIMESTAMP(6)
TIMESTAMP(9) TIMESTAMP(6)

Puede usar Reemplazar pero no puede omitir ninguno de los parámetros opcionales.

strLine = Replace (fle1.ReadLine, "TIMESTAMP (0)", "TIMESTAMP (6)", 1, -1, 1)

Set regEx = CreateObject("VBScript.RegExp")
"regEx.Pattern = "(TIMESTAMP([0-9].?))"
"regEx.IgnoreCase = True

"strLine=regEx.Replace(strLine, "TIMESTAMP(6)")

Finalmente lo hice ya que soy muy nuevo en eso, pero aprendiendo cosas. por cierto muchas gracias por la ayuda.