读写配置文件的方法
用户配置保存在 下。
<appSettings>
<add key="test" value="test Value" />
</appSettings>
当在交互模式下运行时,配置保存到 fsi.exe.Config 中,在 C:\Program Files (x86)\Microsoft SDKs\F#\3.1\Framework\v4.0
而在正常运行时,会保存到 .EXE 文件相同的目录下,其文件名与 .EXE 的主文件名相同。
#r "System.Configuration.dll"
open System.Configuration
let SetValue key value =
let config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
if config.AppSettings.Settings.[key] = null then
config.AppSettings.Settings.Add(key, value)
else
config.AppSettings.Settings.[key].Value <- value
config.Save(ConfigurationSaveMode.Modified)
ConfigurationManager.RefreshSection("appSettings")
let GetValue key =
let config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
if config.AppSettings.Settings.[key] = null then
""
else
config.AppSettings.Settings.[key].Value
SetValue "test" "test Value"
用户配置保存在 下。
<appSettings>
<add key="test" value="test Value" />
</appSettings>
当在交互模式下运行时,配置保存到 fsi.exe.Config 中,在 C:\Program Files (x86)\Microsoft SDKs\F#\3.1\Framework\v4.0
而在正常运行时,会保存到 .EXE 文件相同的目录下,其文件名与 .EXE 的主文件名相同。
#r "System.Configuration.dll"
open System.Configuration
let SetValue key value =
let config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
if config.AppSettings.Settings.[key] = null then
config.AppSettings.Settings.Add(key, value)
else
config.AppSettings.Settings.[key].Value <- value
config.Save(ConfigurationSaveMode.Modified)
ConfigurationManager.RefreshSection("appSettings")
let GetValue key =
let config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
if config.AppSettings.Settings.[key] = null then
""
else
config.AppSettings.Settings.[key].Value
SetValue "test" "test Value"
GetValue "test"