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

[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

[adastra]

cat fichero.txt | cut -d " " -f3

[RubenLL]

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] Expandir


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

[Eleкtro]

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

Código (vb) [Seleccionar] Expandir


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] Expandir


Const DontOverwriteExisting = FALSE

Set obj_FS = CreateObject("Scripting.FileSystemObject")

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


[Eleкtro]

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

Edita tu último comentario, Haz el favor.



Saludos

[RubenLL]

Ok, ya esta editado

[Novlucker]

El pie para que encuentres tu respuesta

On Error Resume Next y err.number

Saludos