使用F#Interactive时,我需要捕获F#函数的输入和输出。当程序在Visual Studio下使用F5或Ctrl-F5运行时,我能够让NLog正常工作。包含输出到日志的语句的相同方法也可以正常工作,并在通过F#Interactive调用时调用;日志文件中没有任何内容。
我还尝试使用F#Interactive来设置对NLog的引用,当从F#Interactive运行时,日志中仍然没有任何内容。
#I @"..\packages\NLog.2.0.0.2000\lib\net40"
#r @"NLog.dll"
我甚至发现this让我尝试了这些
NLog.Config.SimpleConfigurator.ConfigureForConsoleLogging()
NLog.Config.SimpleConfigurator.ConfigureForFileLogging(<full file name>)
并且日志文件中仍然没有任何内容。
任何人都知道Nlog是否可以与F#Interactive一起使用?
如果是这样,它是如何完成的?
修改
当单独运行时,我能够让NLog与fsi.exe一起使用。所以现在问题似乎是让NLog找到配置文件,因为NLog无法从Visual Studio的fsi.exe位置找到配置文件。看看在NLog.dll目录中使用NLog.dll.nlog。
答案 0 :(得分:11)
使用F#Interactive的NLog的问题是NLog认为Temp
目录在哪里找NLog.config
并且从不成功。解决这个问题的方法是以编程方式为NLog找到NLog.config
。
从Visual Studio中运行F#Interactive时,它会将当前工作目录设置为临时文件。
> System.Environment.CurrentDirectory;;
val it : string = "C:\Users\Eric\AppData\Local\Temp"
NLog日志记录需要三个组件:
一个。参考NLog.dll
湾配置文件
C。从代码调用记录器方法。
__SOURCE_DIRECTORY__
。请参阅F# Spec 3.11标识符替换不是直接进入F#Interactive解决方案,而是使用以下进程,因为需要创建DLL来设置和保存用于F#Interactive的NLog的函数。
创建一个包含三个项目的解决方案并安装NLog
解决方案名称:NLogExample
项目1 - 库,名称:日志 - 保存调用NLog的扩展功能
项目2 - 库,名称:MyLibrary - 用于生成使用日志功能的演示DLL
项目3 - 控制台应用程序,名称:主要 - 用于生成使用日志功能的演示EXE。
一个。手动创建NLog.config
湾从正在运行的项目中访问NLog.config
C。将消息记录到文件
一个。以编程方式创建配置
湾为正在运行的项目创建配置并将消息记录到文件
使用F#Interactive
使用Visual Studio创建三个项目。
为所有三个项目安装NLog。
注意:要使这些示例在从F#Interactive运行__SOURCE_DIRECTORY__;;
时起作用,它应报告属于项目的目录和 NOT Temp
目录。
注意:此答案中的所有路径都与解决方案目录相关
当您在实际解决方案目录中看到<Solution directory>
替换时。
路径:<Solution director>\NLog.config
<?xml version="1.0" encoding="utf-8" ?>
<nlog xmlns="http://www.nlog-project.org/schemas/NLog.xsd"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
throwExceptions="true">
<targets>
<target xsi:type="File"
name="file"
fileName="<Solution directory>\log.txt"
autoFlush="true"
/>
</targets>
<rules>
<logger name="*"
minlevel="Trace"
writeTo="file"
/>
</rules>
</nlog>
注意:请务必将<Solution directory>
更改为实际路径并设置autoFlush="true"
注意:向解决方案添加NLog.config
可以更轻松地查看/修改文件。
在Log.Library1.fs
中namespace Log
module MyLog =
let configureNLog () =
let projectPath = __SOURCE_DIRECTORY__
let soulutionPath = projectPath + "\.."
let configPath = soulutionPath + @"\NLog.config"
let xmlConfig = new NLog.Config.XmlLoggingConfiguration(configPath)
NLog.LogManager.Configuration <- xmlConfig
let NLogConfigToString () =
let targets = NLog.LogManager.Configuration.AllTargets
let out = ""
let out = Seq.fold (fun out target -> out + (sprintf "%A\n" target)) out targets
let rules = NLog.LogManager.Configuration.LoggingRules
let out = Seq.fold (fun out rule -> out + (sprintf "%A\n" rule)) out rules
out
let printNLogConfig () =
Printf.printfn "%s" (NLogConfigToString ())
并为Log项目添加对System.XML
在Main.Program.fs
中open Log
[<EntryPoint>]
let main argv =
MyLog.configureNLog ()
MyLog.printNLogConfig ()
0 // return an integer exit code
并为Main项目添加对Log
项目的引用,并将Main项目设置为启动项目。
运行时,应输出到控制台:
File Target[file]
logNamePattern: (:All) levels: [ Trace Debug Info Warn Error Fatal ] appendTo: [ file ]
在Log.Library1.fs
中namespace Log
open NLog
module MyLog =
let configureNLog () =
let projectPath = __SOURCE_DIRECTORY__
let soulutionPath = projectPath + "\.."
let configPath = soulutionPath + @"\NLog.config"
let xmlConfig = new NLog.Config.XmlLoggingConfiguration(configPath)
NLog.LogManager.Configuration <- xmlConfig
let NLogConfigToString () =
let targets = NLog.LogManager.Configuration.AllTargets
let out = ""
let out = Seq.fold (fun out target -> out + (sprintf "%A\n" target)) out targets
let rules = NLog.LogManager.Configuration.LoggingRules
let out = Seq.fold (fun out rule -> out + (sprintf "%A\n" rule)) out rules
out
let printNLogConfig () =
Printf.printfn "%s" (NLogConfigToString ())
let evalTracer = LogManager.GetLogger("file")
在Main.Program.fs
中open Log
open Library1
[<EntryPoint>]
let main argv =
MyLog.configureNLog ()
MyLog.printNLogConfig ()
// Add as many of these as needed
MyLog.evalTracer.Trace("In Main @1.")
MyFunctions.test001 ()
0 // return an integer exit code
并为Main项目添加对MyLibrary
项目的引用。
在MyLibrary.Library1.fs
中namespace Library1
open Log
module MyFunctions =
let test001 () =
MyLog.evalTracer.Trace("In Library @1.")
并为MyLibrary项目添加对Log
项目的引用。
运行时,日志文件log.txt
应包含类似于:
2016-03-28 11:03:52.4963|TRACE|file|In Main @1.
2016-03-28 11:03:52.5263|TRACE|file|In Library @1
如果存在NLog.config
文件,请将其删除以验证代码是否已创建新配置但未创建文件。
要使用F#以编程方式设置配置,您需要知道:
To Log.Library1.fs add
let configureNLogPrgramatically () =
let config = new NLog.Config.LoggingConfiguration()
let fileTarget = new NLog.Targets.FileTarget()
let projectPath = __SOURCE_DIRECTORY__
let soulutionPath = projectPath + "\.."
let filePath = soulutionPath + @"\log.txt"
let layout = new NLog.Layouts.SimpleLayout(filePath)
fileTarget.Name <- "file"
fileTarget.FileName <- layout
fileTarget.AutoFlush <- true
config.AddTarget("file", fileTarget)
let rule1 = new NLog.Config.LoggingRule("*",NLog.LogLevel.Trace,fileTarget)
config.LoggingRules.Add(rule1)
NLog.LogManager.Configuration <- config
在Main.Program.fs
中open Log
open Library1
[<EntryPoint>]
let main argv =
MyLog.configureNLogPrgramatically ()
MyLog.printNLogConfig ()
// Add as many of these as needed
MyLog.evalTracer.Trace("In Main @1.")
MyFunctions.test001 ()
0 // return an integer exit code
运行时,日志文件log.txt
应包含类似于:
2016-03-28 11:16:07.2901|TRACE|file|In Main @1.
2016-03-28 11:16:07.3181|TRACE|file|In Library @1.
并注意NLog.config
文件 NOT 已创建。
在MyLibrary.Script.fsx
中// print out __SOURCE_DIRECTORY__ to make sure we are not using the Temp directory
printfn __SOURCE_DIRECTORY__
#I __SOURCE_DIRECTORY__
// Inform F# Interactive where to find functions in Log module
#I "../Log/bin/Debug/"
#r "Log.dll"
open Log
// Functions in Log module can now be run.
MyLog.configureNLogPrgramatically ()
MyLog.printNLogConfig ()
// Inform F# Interactive where to find functions in MyLibrary module
#I "../MyLibrary/bin/Debug/"
#r "MyLibrary.dll"
open Library1
// Functions in MyLibrary module can now be run.
MyFunctions.test001 ()
使用F#Interactive
执行脚本时Microsoft (R) F# Interactive version 14.0.23413.0
Copyright (c) Microsoft Corporation. All Rights Reserved.
For help type #help;;
>
<Solution directory>\MyLibrary
val it : unit = ()
--> Added <Solution directory>\MyLibrary' to library include path
--> Added <Solution directory>\MyLibrary\../Log/bin/Debug/' to library include path
--> Referenced <Solution directory>\MyLibrary\../Log/bin/Debug/Log.dll'
File Target[file]
logNamePattern: (:All) levels: [ Trace Debug Info Warn Error Fatal ] appendTo: [ file ]
--> Added <Solution directory>\MyLibrary\../MyLibrary/bin/Debug/' to library include path
--> Referenced <Solution directory>\MyLibrary\../MyLibrary/bin/Debug/MyLibrary.dll'
val it : unit = ()
>
日志文件log.txt
应包含类似于:
2016-03-28 11:42:41.5417|TRACE|file|In Library @1.
此外,这将在您仍有活动的F#Interactive会话时进行记录,因此您可以查看执行命令之间的日志。