VBScript

sahanalk · 06-05-2008, 08:00 AM

Hi,
I have a ".vbs" file.

The contents of this file are

Set oISM = CreateObject("SAAuto12.ISWiProject")
oISM.OpenProject "C:\Trunk\Installer\VOIP Client.ism"

oISM.ProductVersion = "1.0.0"
'oISM.PackageCode = oISM.GenerateGUID()
'oISM.ProductCode = oISM.GenerateGUID()

oISM.SaveProject
oISM.CloseProject

Set oISM = Nothing

In this the Product Version in this script has to be taken by text file ".txt" the contents of which are are

1.0.0

How do I take it from the text file?

Thanks,
Sahana

**jamiemac2005** · 06-05-2008, 09:15 AM

Hey Sahana,

So it creates a text file with the contents 1.0.0... is that all thats in the text file?

I have limited knowledge of vbscript so excuse me if i go wrong anywhere... I think this is the sort of thing you need to do:

Code:

dim fso, fileToGet, myfileStream, textToRead
set fso = CreateObject ("Scripting.FileSystemObject")
set fileToGet = fso.GetFile("c:\<the file path etc>")
set myFilestream = fileToGet.OpenAsTextStream (1)
set textToRead = myFileStream.readAll;
myFileStream.Close

textToRead will then hold the entire contents of the txt file, if you only want a bit of it then use the read function(google it)

Cheers,
Jamey

06-05-2008, 08:00 AM	#1 (permalink)
sahanalk Registered User Join Date: Jun 2008 Posts: 1 OS: XP	VBScript Hi, I have a ".vbs" file. The contents of this file are Set oISM = CreateObject("SAAuto12.ISWiProject") oISM.OpenProject "C:\Trunk\Installer\VOIP Client.ism" oISM.ProductVersion = "1.0.0" 'oISM.PackageCode = oISM.GenerateGUID() 'oISM.ProductCode = oISM.GenerateGUID() oISM.SaveProject oISM.CloseProject Set oISM = Nothing In this the Product Version in this script has to be taken by text file ".txt" the contents of which are are 1.0.0 How do I take it from the text file? Thanks, Sahana

06-05-2008, 09:15 AM	#2 (permalink)
jamiemac2005 Design Team Member Join Date: Jul 2007 Location: Coventry, UK Posts: 1,880 OS: Vista, various linux distros	Re: VBScript Hey Sahana, So it creates a text file with the contents 1.0.0... is that all thats in the text file? I have limited knowledge of vbscript so excuse me if i go wrong anywhere... I think this is the sort of thing you need to do: Code: dim fso, fileToGet, myfileStream, textToRead set fso = CreateObject ("Scripting.FileSystemObject") set fileToGet = fso.GetFile("c:\<the file path etc>") set myFilestream = fileToGet.OpenAsTextStream (1) set textToRead = myFileStream.readAll; myFileStream.Close textToRead will then hold the entire contents of the txt file, if you only want a bit of it then use the read function(google it) Cheers, Jamey