diff --git a/ComponentModel/Settings/Inf/INIProfile.vb b/ComponentModel/Settings/Inf/INIProfile.vb
index 66b630e2..76cd5597 100644
--- a/ComponentModel/Settings/Inf/INIProfile.vb
+++ b/ComponentModel/Settings/Inf/INIProfile.vb
@@ -93,7 +93,6 @@ Namespace ComponentModel.Settings.Inf
'''
'''
-
Public Function GetPrivateProfileString(section$, key$, path$) As String
Return path.readDataLines(True) _
.ToArray _
@@ -208,7 +207,6 @@ Namespace ComponentModel.Settings.Inf
'''
'''
-
Public Sub WritePrivateProfileString(section$, key$, value$, path$)
Using ini As New IniFile(path)
Call ini.WriteValue(section, key, value)
diff --git a/Extensions/IO/Path/ProgramPathSearchTool.vb b/Extensions/IO/Path/ProgramPathSearchTool.vb
index a0297175..c0d2b851 100644
--- a/Extensions/IO/Path/ProgramPathSearchTool.vb
+++ b/Extensions/IO/Path/ProgramPathSearchTool.vb
@@ -169,7 +169,6 @@ Namespace FileIO.Path
'''
'''
'''
-
Public Shared Function SearchScriptFile(dir$, keyword$, Optional withExtension$ = Nothing) As IEnumerable(Of String)
Dim scriptFileNameRule$ = $"*{keyword}*{withExtension}"
Dim extNameAssert As Assert(Of String)
diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb
index 7e2a8bd1..9a91c5a0 100644
--- a/Extensions/Math/Math.vb
+++ b/Extensions/Math/Math.vb
@@ -1872,7 +1872,6 @@ Namespace Math
'''
'''
'''
-
Public Function SD(values As IEnumerable(Of Double)) As Double
Dim data#() = values.ToArray
Dim avg# = data.Average
@@ -1886,7 +1885,6 @@ Namespace Math
'''
'''
'''
-
Public Function SD(values As IEnumerable(Of Integer)) As Double
Return values.Select(Function(x) CDbl(x)).SD
End Function
@@ -1897,7 +1895,6 @@ Namespace Math
'''
'''
'''
-
Public Function SD(values As IEnumerable(Of Long)) As Double
Return values.Select(Function(x) CDbl(x)).SD
End Function
@@ -1908,7 +1905,6 @@ Namespace Math
'''
'''
'''
-
Public Function SD(values As IEnumerable(Of Single)) As Double
Return values.Select(Function(x) CDbl(x)).SD
End Function
@@ -1920,20 +1916,19 @@ Namespace Math
'''
'''
-
Public Function EuclideanDistance(vector As IEnumerable(Of Double)) As Double
' 由于是和令进行比较，减零仍然为原来的数，所以这里直接使用n^2了
Return stdNum.Sqrt((From n In vector Select n ^ 2).Sum)
End Function
-
- Public Function EuclideanDistance(Vector As IEnumerable(Of Integer)) As Double
+
+ Public Function EuclideanDistance(Vector As IEnumerable(Of Integer)) As Double
Return stdNum.Sqrt((From n In Vector Select n ^ 2).Sum)
End Function
-
- Public Function EuclideanDistance(a As IEnumerable(Of Integer), b As IEnumerable(Of Integer)) As Double
+
+ Public Function EuclideanDistance(a As IEnumerable(Of Integer), b As IEnumerable(Of Integer)) As Double
If a.Count <> b.Count Then
Return -1
Else
@@ -1942,8 +1937,8 @@ Namespace Math
End Function
-
- Public Function EuclideanDistance(a As IEnumerable(Of Double), b As IEnumerable(Of Double)) As Double
+
+ Public Function EuclideanDistance(a As IEnumerable(Of Double), b As IEnumerable(Of Double)) As Double
Return EuclideanDistance(a.ToArray, b.ToArray)
End Function
@@ -1953,8 +1948,8 @@ Namespace Math
''' Point A
''' Point B
'''
-
- Public Function EuclideanDistance(a As Byte(), b As Byte()) As Double
+
+ Public Function EuclideanDistance(a As Byte(), b As Byte()) As Double
If a.Length <> b.Length Then
Return -1.0R
Else
@@ -1968,8 +1963,8 @@ Namespace Math
''' Point A
''' Point B
'''
-
- Public Function EuclideanDistance(a As Double(), b As Double()) As Double
+
+ Public Function EuclideanDistance(a As Double(), b As Double()) As Double
If a.Length <> b.Length Then
Return -1.0R
Else
diff --git a/Extensions/Math/ScaleMaps.vb b/Extensions/Math/ScaleMaps.vb
index 76273237..1a3a645b 100644
--- a/Extensions/Math/ScaleMaps.vb
+++ b/Extensions/Math/ScaleMaps.vb
@@ -193,7 +193,6 @@ Namespace Math
''' either a logical value or a numeric vector of length equal to the number of columns of x
''' either a logical value or a numeric vector of length equal to the number of columns of x
'''
-
Public Function Scale( data As IEnumerable(Of Double),
Optional center As Boolean = True,
diff --git a/Extensions/Security/Md5.vb b/Extensions/Security/Md5.vb
index 31012bd2..f19a5285 100644
--- a/Extensions/Security/Md5.vb
+++ b/Extensions/Security/Md5.vb
@@ -84,7 +84,6 @@ Namespace SecurityString
'''
''' 任意字符串
'''
-
Public Function GetHashCode(input As String) As Long
Dim md5 As String = MD5Hash.GetMd5Hash(input)
Return ToLong(md5)
@@ -94,7 +93,6 @@ Namespace SecurityString
''' Gets the hashcode of the input string.
'''
'''
-
Public Function GetHashCode(data As IEnumerable(Of Byte)) As Long
Return GetMd5Hash(data.ToArray).ToLong
@@ -105,7 +103,6 @@ Namespace SecurityString
'''
''' 计算所得到的MD5哈希值
'''
-
Public Function ToLong(md5 As String) As Long
Dim bytes = StringToByteArray(md5)
Return ToLong(bytes)
@@ -190,7 +187,6 @@ Namespace SecurityString
'''
'''
'''
-
Public Function VerifyMd5Hash(input As String, comparedHash As String) As Boolean
If String.IsNullOrEmpty(input) OrElse String.IsNullOrEmpty(comparedHash) Then
Return False
@@ -226,7 +222,6 @@ Namespace SecurityString
'''
'''
'''
-
Public Function GetFileMd5( PathUri As String) As String
Dim size& = PathUri.FileLength
@@ -253,7 +248,6 @@ Namespace SecurityString
'''
'''
'''
-
Public Function SaltValue(value As String) As String
Dim hash As String = GetMd5Hash(value)
Dim chars() = {
diff --git a/Extensions/StringHelpers/StringHelpers.vb b/Extensions/StringHelpers/StringHelpers.vb
index 53e1b35c..c56534c7 100644
--- a/Extensions/StringHelpers/StringHelpers.vb
+++ b/Extensions/StringHelpers/StringHelpers.vb
@@ -587,7 +587,6 @@ Public Module StringHelpers
'''
'''
'''
-
Public Function Count(str$, ch As Char) As Integer
If String.IsNullOrEmpty(str) Then
Return 0
@@ -794,7 +793,6 @@ Public Module StringHelpers
''' The regular expression pattern to match.
'''
'''
-
Public Function Match( input$,
pattern$,
Optional options As RegexOptions = RegexOptions.Multiline) As String
@@ -867,7 +865,6 @@ Public Module StringHelpers
'''
'''
'''
-
Public Function TokenCount(tokens As IEnumerable(Of String), Optional ignoreCase As Boolean = False) As Dictionary(Of String, Integer)
If Not ignoreCase Then
' 大小写敏感
@@ -918,10 +915,11 @@ Public Module StringHelpers
'''
'''
'''
-
- Public Function StringSplit(source$, pattern$,
- Optional TrimTrailingEmptyStrings As Boolean = False,
- Optional opt As RegexOptions = RegexICSng) As String()
+
+ Public Function StringSplit(source$, pattern$,
+ Optional TrimTrailingEmptyStrings As Boolean = False,
+ Optional opt As RegexOptions = RegexICSng) As String()
+
If source.StringEmpty Then
Return {}
End If
@@ -1053,7 +1051,6 @@ Public Module StringHelpers
''' If fuzzy, then will be used if ``String.Equals`` method have no result.
'''
'''
-
Public Function Located(collection As IEnumerable(Of String), text$,
Optional caseSensitive As Boolean = True,
Optional fuzzy As Boolean = False) As Integer
@@ -1101,7 +1098,6 @@ Public Module StringHelpers
'''
'''
''' 返回第一个找到关键词的行数，没有找到则返回-1
-
Public Function Lookup(source As IEnumerable(Of String), keyword As String, Optional caseSensitive As Boolean = True) As Integer
Dim method As CompareMethod = If(caseSensitive, CompareMethod.Binary, CompareMethod.Text)
diff --git a/Language/Language/UnixBash/Cowsay.vb b/Language/Language/UnixBash/Cowsay.vb
index 111ca097..42a8b027 100644
--- a/Language/Language/UnixBash/Cowsay.vb
+++ b/Language/Language/UnixBash/Cowsay.vb
@@ -116,8 +116,6 @@ H H EEEEE LLLLL LLLLL OOO ,, W W OOO R R LLLLL DDDD !!
'''
'''
'''
-
Public Function RunCowsay(msg As String, Optional isDead As Boolean = False) As String
If isDead Then
msg = __msgbox(msg) & DeadCow
diff --git a/Text/Parser/HtmlParser/HtmlStrips.vb b/Text/Parser/HtmlParser/HtmlStrips.vb
index 5e6dc2f1..371de64a 100644
--- a/Text/Parser/HtmlParser/HtmlStrips.vb
+++ b/Text/Parser/HtmlParser/HtmlStrips.vb
@@ -202,13 +202,13 @@ Namespace Text.Parser.HtmlParser
End Function
'''
- ''' 获取两个尖括号之间的内容
+ ''' Gets the string value between two wrapper character.
+ ''' (获取两个尖括号之间的内容)
'''
'''
'''
'''
-
Public Function GetValue(html As String) As String
Return html.GetStackValue(">", "<")
End Function