Con questa Regular Expression potete trasformare in un
solo colpo tutte le entries del vostro App.Config/Web.Config in proprietà VB.NET
di tipo String.
Il valore eventualmente specificato nell'attributo Value sarà ritornato come
valore di default in caso di assenza della Setting.
Parte Search:
<add[\s\t\n]+key\s*=\s*"(?<Key>([^"]+?(?<TerminaleKey>([^"\.]+))))"[\s\t\n]+value\s*=\s*"(?<Value>([^"]+))"\s*((\/>)|(.*?<\/add>))
Parte Replace:
Private m_${TerminaleKey}
As String
Public Property ${TerminaleKey}() As String
Get
If m_${TerminaleKey}
Is Nothing Then
Dim C As New System.Configuration.AppSettingsReader
Try
m_${TerminaleKey} = DirectCast(C.GetValue("${Key}", GetType(String)), String)
Catch ex As Exception
m_${TerminaleKey} =
"${Value}"
End Try
End If
Return
m_${TerminaleKey}
End Get
Set(ByVal Value As String)
m_${TerminaleKey} = Value
End Set
End Property
Enjoy
System.Text.RegularExpressions! 