[VBS] Como leer el contenido que hay en la tercera tabulacion de un fichero txt.

Iniciado por RubenLL, 24 Agosto 2012, 10:53 AM

0 Miembros y 2 Visitantes están viendo este tema.

RubenLL

Hola a todos, quisiera poder leer un fichero txt que esta separado por tabulaciones y extraer en un variable el contenido que hay en la tercera tabulación. ¿ Como podría hacerlo?

Gracias
Servicio técnico informático:
(reparación de placas bases, consolas,reballing,conectores I/O, formateos,etc.)

     http://www.nebburblog.com/reparacionordenadores

blog de Informática general | Internet | Marketing online
      http://www.nebburblog.com

adastra


RubenLL

#2
gracias por la respuesta pero es vbscript.


Tengo este script que quiero que solo muestre el segundo tabulador que es donde aparece una fecha el fichero esta separado por tabulaciones pero esto lo convierte en comas ara que lo muestre en una sola linea ¿ como lo hago?
Código (vb) [Seleccionar]

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
   ("C:\Documents and Settings\usuario\Escritorio\prueba.txt", ForReading)
Do Until objTextFile.AtEndOfStream

   strNextLine = objTextFile.Readline
   arrServiceList = Split(strNextLine , ",")
Wscript.Echo "Server name: " & arrServiceList(0)

Loop
Servicio técnico informático:
(reparación de placas bases, consolas,reballing,conectores I/O, formateos,etc.)

     http://www.nebburblog.com/reparacionordenadores

blog de Informática general | Internet | Marketing online
      http://www.nebburblog.com

Eleкtro

#3
@RubenLL
Los códigos deben ir dentro de la etiqueta [ CODE ]

Código (vb) [Seleccionar]

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
   ("TEST.txt", ForReading)
Do Until objTextFile.AtEndOfStream
   strNextLine = objTextFile.Readline
   arrServiceList = Split(strNextLine, vbtab)          ' vbtab = El delimitador de tabulación.
   Wscript.Echo "Server name: " & arrServiceList(2)    ' (X)   = El token
Loop


Saludos








RubenLL

Gracias, me ha servido :)
Tengo otro problemilla que no se si tu me puedes ayudar, trato de copiar ficheros de un directorio a otro o de un equipo a otro y lo que necesitaria es saber cuando se produce un error de cualquier tipo (no puede copiar fichero...) y si ocurre hacer unas series de acciones, además quiero que si ocurre un error continue con el script, de momento solo tengo este codigo que creo que solo me sirve una linea

Código (vb) [Seleccionar]

Const DontOverwriteExisting = FALSE

Set obj_FS = CreateObject("Scripting.FileSystemObject")

obj_FS.CopyFile "\\servidor\carpeta\imagen.jpg" , "c:\escritorio\", DontOverwriteExisting
On Error Goto 0

Servicio técnico informático:
(reparación de placas bases, consolas,reballing,conectores I/O, formateos,etc.)

     http://www.nebburblog.com/reparacionordenadores

blog de Informática general | Internet | Marketing online
      http://www.nebburblog.com

Eleкtro

Cita de: EleKtro H@cker en 24 Agosto 2012, 19:26 PM@RubenLL
Los códigos deben ir dentro de la etiqueta [ CODE ]

Edita tu último comentario, Haz el favor.



Saludos








RubenLL

Servicio técnico informático:
(reparación de placas bases, consolas,reballing,conectores I/O, formateos,etc.)

     http://www.nebburblog.com/reparacionordenadores

blog de Informática general | Internet | Marketing online
      http://www.nebburblog.com

Novlucker

El pie para que encuentres tu respuesta :P

On Error Resume Next y err.number ;)

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein