Variable en un archivo de texto

[Pasote]

Variable en un archivo de texto

Tengo un archivo de texto : micontrol.txt

que tiene en la primera línea : 125.09

ese es el valor de una variable.

Esa variable va en una ruta : X:\Mis documentos\125.09\125.09.proyecto.doc

Tengo que lanzar un programita bat o vbs desde varios sitios y me gustaría saber cómo puedo "sacar" la variable con el script y proponerla en la ruta.....

Gracias

[lokoman]

Iniciado por Pasote

Variable en un archivo de texto

Tengo un archivo de texto : micontrol.txt

que tiene en la primera línea : 125.09

ese es el valor de una variable.

Esa variable va en una ruta : X:\Mis documentos\125.09\125.09.proyecto.doc

Tengo que lanzar un programita bat o vbs desde varios sitios y me gustaría saber cómo puedo "sacar" la variable con el script y proponerla en la ruta.....

Gracias

Hola!!!!
Verifica el siguiente codigo y nos avisas!!!!!!!!

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("d:\test.txt")
Set objFS = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("WScript.Shell")
Const FOR_READING = 1

strFilePath = "d:\test.txt"
Set objTS = objFS.OpenTextFile(strFilePath, FOR_READING)

Variable =objTS.Readline
RutaDoc = "d:\" & Variable & ".proyecto.doc"

WshShell.Run RutaDoc
Set WshShell = Nothing

PD:Trata de usar un Path corto

[Pasote]

Lo intento. El path está ya prefijado y no puedo cambiarlo.

Exactamente es del tipo :

Y:\GABINETE\PROYECTOS\125.09\125.09.proyecto.doc

y no tengo forma de acortarlo más.

Probaré con el código y comentaré :

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("Y:\GABINETE\PROYECTOS\MODELOS\CONT ROL\MiControl.txt")
Set objFS = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("WScript.Shell")
Const FOR_READING = 1

strFilePath = "Y:\GABINETE\PROYECTOS\MODELOS\CONTROL\MiControl.t xt"
Set objTS = objFS.OpenTextFile(strFilePath, FOR_READING)

Variable =objTS.Readline
RutaDoc = "Y:\GABINETE\PROYECTOS\" & Variable & "\" & Variable & ".proyecto.doc"

WshShell.Run RutaDoc
Set WshShell = Nothing

[Pasote]

No hay interacción alguna. Por cosas del copy/paste , al igual que en el post se ocasiona un espacio en CONT ROL y en t xt , pero lo subsané y no hay interacción .

El código que aporté más arriba no funciona.

Nota : estoy utilizando un vbs

[pkj]

Igual te incluye algún espacio al leer la línea del fichero, o la propia línea no solo contiene el número, sino que contiene algún espacio además.
¿Has probado a ver el resultado en un msgbox?

Prueba a cambiar esta línea:

Variable =Trim$(objTS.Readline)

A veces la cosa más tonta nos hace tropezar.

Saludos