zoukankan
html css js c++ java
读写类似web.config的xml格式文件
'
读写类似web.config的xml格式文件
Public
Class Config
Class
Config
私有成员变量
#Region
"私有成员变量"
'
配置文件路径
Private
sPath
As
String
'
配置文件对象(xml格式)
Private
xDoc
As
Xml.XmlDocument
#End Region
构造函数
#Region
"构造函数"
'
默认构造函数(取得当前目录下的app.config配置)
Public
Sub New()
Sub
New
()
Dim
assemblyFilePath
As
String
=
System.Reflection.Assembly.GetExecutingAssembly().Location
Dim
assemblyDirPath
As
String
=
System.IO.Path.GetDirectoryName(assemblyFilePath)
Dim
configFilePath
As
String
=
assemblyDirPath
&
"
\app.config
"
sPath
=
configFilePath
xDoc
=
New
XmlDocument
xDoc.Load(sPath)
End Sub
'
用户指定配置文件的构造函数
Public
Sub New()
Sub
New
(
ByVal
s_Path
As
String
)
sPath
=
s_Path
xDoc
=
New
XmlDocument
xDoc.Load(sPath)
End Sub
#End Region
公共接口
#Region
"公共接口"
'
'' -----------------------------------------------------------------------------
'
'' <summary>
'
'' 读取属性
'
'' </summary>
'
'' <param name="keyName">属性名称</param>
'
'' <returns>属性值</returns>
'
'' -----------------------------------------------------------------------------
Public
Function GetValue()
Function
GetValue(
ByVal
keyName
As
String
)
As
String
Dim
str
As
String
=
""
Dim
xElement
As
XmlElement
=
getElement(keyName)
If
Not
xElement
Is
Nothing
Then
str
=
xElement.GetAttribute(
"
value
"
)
End
If
Return
str
End Function
'
'' -----------------------------------------------------------------------------
'
'' <summary>
'
'' 设置属性
'
'' </summary>
'
'' <param name="keyName">属性名称</param>
'
'' <param name="keyValue">属性值</param>
'
'' <param name="bCreate">新增标志(为True的时候当属性不存在时则新增这个属性,默认为False)</param>
'
'' <returns>成功返回True,反之为False</returns>
'
'' -----------------------------------------------------------------------------
Public
Function SetValue()
Function
SetValue(
ByVal
keyName
As
String
,
ByVal
keyValue
As
String
,
Optional
ByVal
bCreate
As
Boolean
=
False
)
As
Boolean
Dim
flag
As
Boolean
=
True
Try
Dim
xElement
As
XmlElement
=
getElement(keyName)
If
Not
xElement
Is
Nothing
Then
xElement.SetAttribute(
"
value
"
, keyValue)
ElseIf
bCreate
Then
Dim
xNode
As
XmlNode
=
getXmlNode()
xElement
=
xDoc.CreateElement(
"
add
"
)
xElement.SetAttribute(
"
key
"
, keyName)
xElement.SetAttribute(
"
value
"
, keyValue)
xNode.AppendChild(xElement)
End
If
xDoc.Save(sPath)
Catch
flag
=
False
End
Try
Return
flag
End Function
#End Region
私有成员
#Region
"私有成员"
'
取得单个元素
Private
Function getElement()
Function
getElement(
ByVal
elemName
As
String
)
As
XmlElement
Dim
xElement
As
XmlElement
Try
Dim
node
As
XmlNode
=
getXmlNode()
xElement
=
CType
(node.SelectSingleNode((
"
//add[@key='
"
&
elemName
&
"
']
"
)), XmlElement)
Catch
xElement
=
Nothing
End
Try
Return
xElement
End Function
'
取得节点
Private
Function getXmlNode()
Function
getXmlNode()
As
XmlNode
Return
xDoc.SelectSingleNode(
"
//appSettings
"
)
End Function
#End Region
End Class
查看全文
相关阅读:
html实现打印预览效果
layui-table 对表格数据进行处理之后的排序问题
layui-table与layui-rate评分转换成星级的使用
使用apache的poi来实现数据导出到excel的功能——方式二
java获取配置文件中的key=value值
layDate——设置最大日期不能超过当前日期
layDate——初步使用
echarts使用——柱状图
layui内部定义的function,外部调用时候,提示某函数未定义现象解决方案
layui table异步调用数据的时候,数据展示不出来现象解决方案
原文地址:https://www.cnblogs.com/freemantc/p/304800.html
最新文章
java.lang.ClassNotFoundException: net.sf.ezmorph.Morpher
java把html标签字符转换成普通字符(反转换成html标签)
Failed to load JavaHL Library. SVN
MyEclipse 10、9、8 添加jadClipse反编译插件
Hibernate or JPA Annotation中BLOB、CLOB注解写法
Redis的一些配置
Redis的安装与部署(CentOS6.5)
Tomcat --> Cannot create a server using the selected type
Struts2-零配置
SpringSecurity3基础篇
热门文章
项目资源的查找
WPF 验证没有通过无法保存数据(非常好)+ 虚似数据库
非常漂亮的一个验证实例
wpf 制作必输项的*标记
Simple Validation in WPF
关于WPF的验证
wpf值转换器IValueConverter例子
How to Add Columns to a DataGrid through Binding and Map Its Cell Values
WPF DataGrid显格式
WPF:获取DataGrid控件单元格DataGridCell
Copyright © 2011-2022 走看看