一、字典、哈希表同样是读取txt文本为什么要使用字典哈希表不使用数组呢时间复杂度不同。数组遍历的时间复杂度O(n)哈希表时间复杂度O(1)二、字典的具体实现summary 从字典中读取 Double 值键不存在或解析失败时返回默认值/summaryPrivate Shared FunctionGetDouble(dict AsDictionary(Of String,String),key As String,defaultVal As Double)As Double Dim val As StringNothing If Not dict.TryGetValue(key,val)Then Return defaultVal Dim result As Double If Double.TryParse(val,NumberStyles.Float,CultureInfo.InvariantCulture,result)Then Return result Return defaultVal End Functionsummary 从字典中读取可空 Double 值键不存在或值为空时返回 Nothing/summaryPrivate Shared FunctionGetNullableDouble(dict AsDictionary(Of String,String),key As String)As Double?Dim val As StringNothing If Not dict.TryGetValue(key,val)Then Return Nothing If String.IsNullOrEmpty(val)Then Return Nothing Dim result As Double If Double.TryParse(val,NumberStyles.Float,CultureInfo.InvariantCulture,result)Then Return result Return Nothing End Functionsummary 从字典中读取 Integer 值键不存在或解析失败时返回默认值/summaryPrivate Shared FunctionGetInt(dict AsDictionary(Of String,String),key As String,defaultVal As Integer)As Integer Dim val As StringNothing If Not dict.TryGetValue(key,val)Then Return defaultVal Dim result As Integer If Integer.TryParse(val,NumberStyles.Integer,CultureInfo.InvariantCulture,result)Then Return result Return defaultVal End Functionsummary 从字典中读取枚举值键不存在或解析失败时返回默认值/summaryPrivate Shared FunctionGetEnum(Of T As Structure)(dict AsDictionary(Of String,String),key As String,defaultVal As T)As T Dim val As StringNothing If Not dict.TryGetValue(key,val)Then Return defaultVal Dim result As TNothing If[Enum].TryParse(Of T)(val,True,result)Then Return result Return defaultVal End Function