F＃如何列出具有自定义属性的函数？

Question

我正在尝试创建某种类型的界面，但是我找不到如何在F＃中使用自定义属性，因为MSDN仅显示CLR属性的用法。 这是我想要实现的：

open System

type Command (name : string) =
    inherit Attribute()    
    member this.Name = name

[<Command("something")>]
let doSomething () = 
    Console.Write("I'm doing something") 

[<Command("somethingElse")>]
let doSomethingElse () =
    Console.Write("I'm doing something else") 

[<EntryPoint>]
let main args =
    let command = Console.ReadLine()
    // find function where Command.Name = command and call it
    Console.Read()
    0

Answer 1

为了扩展您的答案 ，一种更通用的方法是获取所有类型，然后过滤具有您要查找的属性的函数（因为一旦您的应用程序扩展并且不再打包所有内容，您的方法就会崩溃。进入Program类）：

let getCommands () =
    let types = Assembly.GetExecutingAssembly().GetTypes()
    let commands = 
        types 
        |> Array.collect (fun typ -> typ.GetMethods())
        |> Array.choose (fun mi -> 
            mi.CustomAttributes 
            |> Seq.tryFind (fun attr -> attr.AttributeType = typeof<Command>)
            |> Option.map (fun attr -> attr, mi))

    let commandsMap = 
        commands
        |> Seq.map (fun (attr, mi) -> 
            let name =
                let arg = attr.ConstructorArguments.[0]
                unbox<string> arg.Value
            name, mi)
        |> Map.ofSeq

    commandsMap

这将从正在执行的程序集中的所有类型中获取所有功能，然后过滤掉没有命令属性的所有内容。 然后，它构建一个映射，其中的键是属性参数，值是函数的MethodInfo 。

Answer 2

好，找到了。

Reflection.Assembly.GetExecutingAssembly().GetType("Program").GetMethods()

Program类型名在代码中不可行，因此无法在typeof<Program> ，但是该类型存在并且可以从汇编中获取。