Include file ve Visual Basic Scriptu

V případě, že používáte Visual Basic Script pro nejrůznější drobné i robustnější aplikace, hodí se používat “knihovny”. Jenže oproti ASP v klasickém VB Scriptu neexistuje nativní includování souborů. Naštěstí existuje poměrně elegantní způsob, jak to zařídit pomocí procedury ExecuteGlobal, viz příklad procedury IncludeFile, která “přilinkuje” knihovnu:

sub IncludeFile(aFileName)
ExecuteGlobal LoadStringFromFile(aFileName)
end sub

function LoadStringFromFile(aFilename)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f=FS.OpenTextFile(aFileName,1,false,-2)
LoadStringFromFile=f.ReadAll
f.Close
Set f=Nothing
Set fs = Nothing
end function

Označeno s: , , ,

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *

*