Inkluder vbs (script) i visual basic

Spørgsmålet skyldes at jeg vil lave grafisk interface til et lille script, og stadig have mulighed for at ændre scriptet.

Hvis scriptet blot returnerer en tekststreng, som du har vist, kunne en måde at komme omkring det være, at den skriver til en lille txt-fil. Og dit VB program kalder så scriptet, og læser derefter outputtet i filen.

Den eneste forskel er vist, at der bliver oprettet en fil, men den kan du jo bare slette igen fra VB programmet, når du har læst i det.

Tror ikke du kan det du vil, med direkte at bruge en funktion e.l. i et script. Tror!

En måde er at bruge "Microsoft Script Control" (findes under Project - Components). Tilføj sådan en til en form. Eksempel på brug:

Sub test_script()
  Dim a As Integer
  Dim b As Integer
  Dim c As Integer
 
  ScriptControl1.AddCode hentkode(App.Path & "\script.vbs")
 
  a = 12
  b = 23
  c = ScriptControl1.Eval("plus(" & a & "," & b & ")")
 
End Sub

Function hentkode(filnavn As String) As String
  Dim fso As FileSystemObject
  Dim ts As TextStream
 
  Set fso = New FileSystemObject
  Set ts = fso.OpenTextFile(filnavn, ForReading)
  hentkode = ts.ReadAll
  ts.Close
End Function


Indhold af script.vbs:

Function plus(a, b)
  plus = a + b
End Function

muta?