Code als String ausführen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Code als String ausführen

    Hallo Zusammen,

    ich komme einfach nicht mehr weiter und dachte ich frage die Profis.
    In dem Forum habe ich schon gesehen das einige Themen zu Codedome besprochen worden sind.

    Habe einen Code den ich so verwenden und anpassen wollte der aber immer Fehler bringt "System.PlatformNotSupportedException: "Operation is not supported on this platform."

    Könntet Ihr mir bitte helfen.

    VB.NET-Quellcode

    1. Public Interface IScript
    2. Property Variable1 As String
    3. Sub DoWork()
    4. End Interface
    7. Public Function GenerateScript(code As String) As IScript
    8. Using provider As New VBCodeProvider()
    9. Dim parameters As New CompilerParameters()
    10. parameters.GenerateInMemory = True
    11. parameters.ReferencedAssemblies.Add(Assembly.GetExecutingAssembly().Location)
    12. Dim interfaceNamespace As String = GetType(IScript).Namespace
    13. Dim codeArray() As String = New String() {"Imports " & interfaceNamespace & Environment.NewLine & code}
    14. Dim results As CompilerResults = provider.CompileAssemblyFromSource(parameters, codeArray)
    15. If results.Errors.HasErrors Then
    16. Throw New Exception("Failed to compile script")
    17. Else
    18. Return CType(results.CompiledAssembly.CreateInstance("Script"), IScript)
    19. End If
    20. End Using
    21. End Function
    24. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    25. Dim builder As New StringBuilder()
    26. builder.AppendLine("Public Class Script")
    27. builder.AppendLine(" Implements IScript")
    28. builder.AppendLine(" Public Property Variable1 As String Implements IScript.Variable1")
    29. builder.AppendLine(" Public Sub DoWork() Implements IScript.DoWork")
    30. builder.AppendLine(" Variable1 = ""Hello World""")
    31. builder.AppendLine(" End Sub")
    32. builder.AppendLine("End Class")
    33. 'MsgBox(builder.ToString)
    36. Dim script As IScript = GenerateScript(builder.ToString())
    37. script.DoWork()
    38. MessageBox.Show(script.Variable1
    39. End Sub



    Vielen Dank

    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    @TBSOG Willkommen im Forum. :thumbup:
    Ich habe Deinen Code in eine WinForm-App eingefügt, Framework 4.8.
    Nachdem ich das Interface direkt in den Namespace verschoben hatte, lief Dein Code sofort:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.CodeDom.Compiler
    2. Imports System.Reflection
    3. Imports System.Text
    5. Public Class Form1
    6. Public Function GenerateScript(code As String) As IScript
    7. Using provider As New VBCodeProvider()
    8. Dim parameters As New CompilerParameters()
    9. parameters.GenerateInMemory = True
    10. parameters.ReferencedAssemblies.Add(Assembly.GetExecutingAssembly().Location)
    11. Dim interfaceNamespace As String = GetType(IScript).Namespace
    12. Dim codeArray() As String = New String() {"Imports " & interfaceNamespace & Environment.NewLine & code}
    13. Dim results As CompilerResults = provider.CompileAssemblyFromSource(parameters, codeArray)
    14. If results.Errors.HasErrors Then
    15. Throw New Exception("Failed to compile script")
    16. Else
    17. Return CType(results.CompiledAssembly.CreateInstance("Script"), IScript)
    18. End If
    19. End Using
    20. End Function
    22. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    23. Dim builder As New StringBuilder()
    24. builder.AppendLine("Public Class Script")
    25. builder.AppendLine(" Implements IScript")
    26. builder.AppendLine(" Public Property Variable1 As String Implements IScript.Variable1")
    27. builder.AppendLine(" Public Sub DoWork() Implements IScript.DoWork")
    28. builder.AppendLine(" Variable1 = ""Hello World""")
    29. builder.AppendLine(" End Sub")
    30. builder.AppendLine("End Class")
    31. 'MsgBox(builder.ToString)
    33. Dim script As IScript = GenerateScript(builder.ToString())
    34. script.DoWork()
    35. MessageBox.Show(script.Variable1)
    36. End Sub
    37. End Class
    39. Public Interface IScript
    40. Property Variable1 As String
    41. Sub DoWork()
    42. End Interface

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    TBSOG schrieb:

    Was meinst du mit:
    Das Interface liegt nicht in einer weiteren Klasse.
    Sieh Dir meinen Code an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!