Foro de elhacker.net

Hola gente, he estado buscando en el foro pero sin encontrar solución alguna... Puede ser por que no he buscado bien, o no supe buscar correctamente lo que quería hacer.

Os voy a explicar mi problema: Quiero modificar un archivo, que es donde se define las conexiones del Oracle. Llego a hacerlo... me modifica la conexión, pero me desplaza el texto que tengo después de Host y Port

Ejemplo de como queda el archivo modificado: "Os dejo la parte del código donde modifica, ya que tiene definido mas conexiones Oracle"

BDI.inet.com = 
					   (DESCRIPTION =
						  (ADDRESS_LIST =
							 (ADDRESS =
							   (COMMUNITY = tcp.inet.com)
							   (PROTOCOL = TCP)
							   (Host = Cascuda.com) pepito.com)
							   (Port = 8888) 1234)
							 )
						  )
						  (CONNECT_DATA =
							 (SID = BDI)
							 (GLOBAL_NAME = BDI.inet.com)
						  )
					   )

Como veis, me pone correctamente (Host = Cascuda.com) pero, me deja el nombre que tenia el antiguo Host desplazado hacia la derecha y lo mismo que me pasa, con el dato del puerto.

Y este es el código VBS que estoy utilizando... creo que me falta algo por definir. Pero no me doy cuenta de que podrá ser.

Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Temp\ADD\tnsnames_prueba.ora", ForReading)
 
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "BDI.inet.com =", "BDI.inet.com =")
strNewText1 = Replace(strNewText, "(Host =", "(Host = Cascuda.com)")
strNewText2 = Replace(strNewText1, "(Port =", "(Port = 8888)")
 
Set objFile = objFSO.OpenTextFile("C:\Temp\ADD\tnsnames_prueba.ora", ForWriting)
objFile.WriteLine strNewText2 
 
objFile.Close

---

[MOD]: Utiliza las etiquetas GeShi para insertar código.

Con la función Replace nada vas a conseguir ya que le indicas el texto exacto a reemplazar, si quieres reemplazar una cadena de texto desconocida entonces puedes hacerla coindicir utilizando expresiones regulares:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set sourceFile = FSO.OpenTextFile("source file.txt", 1)
Set targetFile = FSO.OpenTextFile("target file.txt", 2, True)
 
Set hostRegex = New RegExp : hostRegex.Pattern = "\(Host\s+=\s+.+\)"
Set portRegex = New RegExp : portRegex.Pattern = "\(Port\s+=\s+\d+\)"
 
host = "foro.elhacker.net"
port = "80"
 
text = sourceFile.ReadAll
text = hostRegex.Replace(text, "(Host = " & host & ")")
text = portRegex.Replace(text, "(Port = " & port & ")")
 
targetFile.Write text
 
sourceFile.Close
targetFile.Close
 
wScript.Quit(0)

Si quieres algo un poco más elaborado puedes asignar agrupaciones en las expresiones y luego utilizarlas en el objeto RegExp.

Saludos

Muchas gracias Elektro, me has abierto los ojos despues de días atascado con este problema. He probado el código y me fallo el cambio del Port, pero ya voy a buscar ahora mismo lo que pasa...