Funktion an Hand des Names ausführen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

    Public Class Scripts

        Public Shared Function getDate() As String
            Return Now
        End Function

        Public Shared Function getDate_ToLongDate() As String
            Return Now.ToLongDateString
        End Function
        Public Shared Function getDate_ToShortDate() As String
            Return Now.ToShortDateString
        End Function
        Public Shared Function getDate_ToShortTime() As String
            Return Now.ToShortTimeString
        End Function
        Public Shared Function getDate_ToLongTime() As String
            Return Now.ToLongTimeString
        End Function
        Public Shared Function getCurrentUserName() As String
        End Function
        Public Shared Function getCurrentUserID() As String
        End Function
    End Class



Public Class ScriptManager

        
        Public Shared Function getScripts() As Generic.List(Of String)

            Dim result As New Generic.List(Of String)

            Dim t As Type = GetType(Scripts)
            For Each mi As Reflection.MethodInfo In t.GetMethods
                If mi.Name <> "GetType" And mi.Name <> "ToString" And mi.Name <> "Equals" And mi.Name <> "GetHashCode" Then
                    result.Add(mi.Name)
                End If
            Next

            Return result
        End Function

        Public Shared Function getScriptResult(ByVal ScriptName As String) As String
            Dim t As Type = GetType(Scripts)
            Dim methodInfo As Reflection.MethodInfo = t.GetMethod(ScriptName)
            Dim obj As Object = Activator.CreateInstance(t)

            Dim result As String
            result = methodInfo.Invoke(obj, Nothing)

            Return result
        End Function

    End Class