elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: [1]
1  Comunicaciones / Redes / Re: donde comprar modulo SFP GPON y tarjeta pci en: 26 Julio 2017, 14:03 pm
Nosotros llevamos un tiempo investigando este tema... y te puedo decir, que actualmente tenemos dos módulos funcionando. Puedes echarle un ojo aquí,  http://goo.gl/ZfGVfm
Próximamente dáremos más información... ya que aún estamos realizando diversos test.
2  Programación / Scripting / Re: Cargar fichero TXT y asignarle a cada linea, una variable. -- VBS -- en: 21 Junio 2015, 11:07 am
No me he dado cuenta, pero pego el código modificado. Por si alguien quiere ver lo simples cambios que he hecho.

Código
  1. Option explicit : Dim file, curLine, curIndex, _
  2.                      varName, varValue
  3.  
  4. ' Instancio el Stream del objeto que lee el archivo de texto.
  5. Set file = CreateObject("Scripting.FileSystemObject"). _
  6.                        OpenTextFile("prueba.txt", 1)
  7.  
  8. ' Itero las lineas del archivo.
  9. Do Until file.AtEndOfStream
  10.  
  11.  
  12.    curLine  = file.Readline
  13.  
  14.    varName  = Trim(Mid(curLine, 1, InStr(curLine, "=") - 1))
  15.    varValue = Trim(Mid(curLine,    InStr(curLine, "=") + 1))
  16.  
  17.    ' Creo la variable dinamicamente.
  18.    ExecuteGlobal varName & "=" & """" & varValue & """"
  19.  
  20.    ' Muestro el nombre de la variable y el valor.
  21.    Execute "WSCript.Echo varName & ""="" & " & varName
  22.  
  23. Loop
  24.  
  25. ' Cierro el Stream.
  26. file.Close()
  27.  
  28. 'Verifico que realmente funciona.
  29. Msgbox "funciona (" & site & ")"
  30. Msgbox "funciona (" & consolide & ")"
  31. Msgbox "funciona (" & consolidante & ")"
  32.  
  33.  
  34. WScript.Quit(0)
  35.  

3  Programación / Scripting / Re: Cargar fichero TXT y asignarle a cada linea, una variable. -- VBS -- en: 21 Junio 2015, 10:56 am
Muchas gracias Electro,

Realmente discrimine el =, ya que sabia que ningún de los valores asignados por ahora, iban a serlo. Pero muy bien pensado. Ya que nunca sabes cuando realmente puede ser, que  eso suceda.

He usado tu ejemplo, pero lo he modificado a mis necesidades. Ya que prefiero usar las variables con el nombre que me muestra en el TXT, en vez que me cargue dinamicamente un prefijo. Aun que realmente, ya lo habías definido usted en el codigo y solo tuve que modificar las cadenas.

Un saludo, Cascuda

4  Programación / Scripting / Cargar fichero TXT y asignarle a cada linea, una variable. -- VBS -- en: 20 Junio 2015, 10:45 am
Llevo  ya unas semanas dándole vueltas, pero no soy capaz de desarrollar la idea que tengo en mente.
Lo que estaba pensando, era leer un archivo TXT y a partir de ahi, sacar de cada linea el nombre de la variable y su valor.

Ejemplo de fichero TXT
Código
  1. site = espanha
  2. lugar= madrid
  3. so = win7
  4. ie = ie9
  5. puesto = 11
  6.  


Donde he llegado sin problema, es leer el nombre de la variable y luego lo que continua "su valor" asi en todas, hasta llegar a la ultima. Pero luego. lo que no he sido capaz de desarrollar. es que me cargue esas variables en el VBS para luego hacer consultas o condiciones o etc...

Código
  1. Const ForReading = 1
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Set ts = fso.OpenTextFile("prueba.txt", ForReading)
  4.  
  5. Do Until ts.AtEndOfStream
  6. strNextLine = ts.Readline
  7. arrServiceList = Split(strNextLine , "=")
  8.  
  9. Msgbox arrServiceList(o)
  10. For i = 1 to Ubound(arrServiceList)
  11. Msgbox arrServiceList(i)
  12. Next
  13. Loop
  14.  


Si me podéis orientar como seguir, ya que mi mente se quedo bloqueada, os lo agradeceria.

Un saludo, Cascuda
5  Programación / Scripting / Re: Remplazar la linea entera... en: 25 Abril 2015, 22:25 pm
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...

6  Programación / Scripting / Remplazar la linea entera... en: 25 Abril 2015, 21:06 pm
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"
Código
  1. BDI.inet.com =
  2.   (DESCRIPTION =
  3.  (ADDRESS_LIST =
  4. (ADDRESS =
  5.   (COMMUNITY = tcp.inet.com)
  6.   (PROTOCOL = TCP)
  7.   (Host = Cascuda.com) pepito.com)
  8.   (Port = 8888) 1234)
  9. )
  10.  )
  11.  (CONNECT_DATA =
  12. (SID = BDI)
  13. (GLOBAL_NAME = BDI.inet.com)
  14.  )
  15.   )

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.


Código
  1. Const ForReading = 1
  2. Const ForWriting = 2
  3.  
  4. Set objFSO = CreateObject("Scripting.FileSystemObject")
  5. Set objFile = objFSO.OpenTextFile("C:\Temp\ADD\tnsnames_prueba.ora", ForReading)
  6.  
  7. strText = objFile.ReadAll
  8. objFile.Close
  9. strNewText = Replace(strText, "BDI.inet.com =", "BDI.inet.com =")
  10. strNewText1 = Replace(strNewText, "(Host =", "(Host = Cascuda.com)")
  11. strNewText2 = Replace(strNewText1, "(Port =", "(Port = 8888)")
  12.  
  13. Set objFile = objFSO.OpenTextFile("C:\Temp\ADD\tnsnames_prueba.ora", ForWriting)
  14. objFile.WriteLine strNewText2
  15.  
  16. objFile.Close



[MOD]: Utiliza las etiquetas GeShi para insertar código.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines