xieguigang
/
microsoft-visualbasic-runtime
0
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

removes unused attributes

This commit is contained in:
xieguigang 2020-02-19 17:32:29 +08:00
parent e71f482b11
commit 2dceb49c75
8 changed files with 17 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ComponentModel/Settings/Inf/INIProfile.vb
View File

@ -93,7 +93,6 @@ Namespace ComponentModel.Settings.Inf
''' <returns></returns>
''' <remarks></remarks>
<MethodImpl(MethodImplOptions.AggressiveInlining)>
<ExportAPI("GetValue", Info:="Get profile data from the ini file which the data is stores in a specific path like: ``section/key``")>
Public Function GetPrivateProfileString(section$, key$, path$) As String
Return path.readDataLines(True) _
.ToArray _
@ -208,7 +207,6 @@ Namespace ComponentModel.Settings.Inf
''' </remarks>
'''
<MethodImpl(MethodImplOptions.AggressiveInlining)>
<ExportAPI("SetValue", Info:="Setting profile data from the ini file which the data is stores in a specific path like: ``section/key``. If the path is not exists, the function will create new.")>
Public Sub WritePrivateProfileString(section$, key$, value$, path$)
Using ini As New IniFile(path)
Call ini.WriteValue(section, key, value)

1
Extensions/IO/Path/ProgramPathSearchTool.vb
View File

@ -169,7 +169,6 @@ Namespace FileIO.Path
''' <returns></returns>
''' <remarks></remarks>
'''
<ExportAPI("Search.Scripts", Info:="Search for the path of a script file with a specific extension name.")>
Public Shared Function SearchScriptFile(dir$, keyword$, Optional withExtension$ = Nothing) As IEnumerable(Of String)
Dim scriptFileNameRule$ = $"*{keyword}*{withExtension}"
Dim extNameAssert As Assert(Of String)

25
Extensions/Math/Math.vb
View File

@ -1872,7 +1872,6 @@ Namespace Math
''' <returns></returns>
''' <remarks></remarks>
'''
<ExportAPI("STD", Info:="Standard Deviation")>
<Extension> Public Function SD(values As IEnumerable(Of Double)) As Double
Dim data#() = values.ToArray
Dim avg# = data.Average
@ -1886,7 +1885,6 @@ Namespace Math
''' <returns></returns>
''' <remarks></remarks>
'''
<ExportAPI("STD", Info:="Standard Deviation")>
<Extension> 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
''' <returns></returns>
''' <remarks></remarks>
'''
<ExportAPI("STD", Info:="Standard Deviation")>
<Extension> 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
''' <returns></returns>
''' <remarks></remarks>
'''
<ExportAPI("STD", Info:="Standard Deviation")>
<Extension> 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
''' <returns></returns>
''' <remarks></remarks>
<MethodImpl(MethodImplOptions.AggressiveInlining)>
<ExportAPI("Euclidean", Info:="Euclidean Distance")>
<Extension> 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
<MethodImpl(MethodImplOptions.AggressiveInlining)>
<ExportAPI("Euclidean", Info:="Euclidean Distance")>
<Extension> Public Function EuclideanDistance(Vector As IEnumerable(Of Integer)) As Double
<Extension>
Public Function EuclideanDistance(Vector As IEnumerable(Of Integer)) As Double
Return stdNum.Sqrt((From n In Vector Select n ^ 2).Sum)
End Function
<ExportAPI("Euclidean", Info:="Euclidean Distance")>
<Extension> Public Function EuclideanDistance(a As IEnumerable(Of Integer), b As IEnumerable(Of Integer)) As Double
<Extension>
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
<MethodImpl(MethodImplOptions.AggressiveInlining)>
<ExportAPI("Euclidean", Info:="Euclidean Distance")>
<Extension> Public Function EuclideanDistance(a As IEnumerable(Of Double), b As IEnumerable(Of Double)) As Double
<Extension>
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
''' <param name="a">Point A</param>
''' <param name="b">Point B</param>
''' <returns></returns>
<ExportAPI("Euclidean", Info:="Euclidean Distance")>
<Extension> Public Function EuclideanDistance(a As Byte(), b As Byte()) As Double
<Extension>
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
''' <param name="a">Point A</param>
''' <param name="b">Point B</param>
''' <returns></returns>
<ExportAPI("Euclidean", Info:="Euclidean Distance")>
<Extension> Public Function EuclideanDistance(a As Double(), b As Double()) As Double
<Extension>
Public Function EuclideanDistance(a As Double(), b As Double()) As Double
If a.Length <> b.Length Then
Return -1.0R
Else

1
Extensions/Math/ScaleMaps.vb
View File

@ -193,7 +193,6 @@ Namespace Math
''' <param name="center">either a logical value or a numeric vector of length equal to the number of columns of x</param>
''' <param name="isScale">either a logical value or a numeric vector of length equal to the number of columns of x</param>
''' <returns></returns>
<ExportAPI("Scale", Info:="function centers and/or scales the columns of a numeric matrix.")>
Public Function Scale(<Parameter("x", "numeric matrix")> data As IEnumerable(Of Double),
<Parameter("center", "either a logical value or a numeric vector of length equal to the number of columns of x")>
Optional center As Boolean = True,

6
Extensions/Security/Md5.vb
View File

@ -84,7 +84,6 @@ Namespace SecurityString
''' </summary>
''' <param name="input">任意字符串</param>
''' <returns></returns>
<ExportAPI("GetHashCode", Info:="Gets the hashcode of the input string.")>
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.
''' </summary>
''' <returns></returns>
<ExportAPI("GetHashCode", Info:="Gets the hashcode of the input string.")>
<MethodImpl(MethodImplOptions.AggressiveInlining)>
Public Function GetHashCode(data As IEnumerable(Of Byte)) As Long
Return GetMd5Hash(data.ToArray).ToLong
@ -105,7 +103,6 @@ Namespace SecurityString
''' </summary>
''' <param name="md5">计算所得到的MD5哈希值</param>
''' <returns></returns>
<ExportAPI("As.Long", Info:="Gets the hashcode of the md5 string.")>
<Extension> Public Function ToLong(md5 As String) As Long
Dim bytes = StringToByteArray(md5)
Return ToLong(bytes)
@ -190,7 +187,6 @@ Namespace SecurityString
''' <returns></returns>
''' <remarks></remarks>
'''
<ExportAPI("Md5.Verify", Info:="Verify a hash against a string.")>
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
''' <returns></returns>
''' <remarks></remarks>
'''
<ExportAPI("File.Md5", Info:="Get the md5 hash calculation value for a specific file.")>
<Extension>
Public Function GetFileMd5(<Parameter("Path.Uri", "The file path of the target file to be calculated.")> PathUri As String) As String
Dim size& = PathUri.FileLength
@ -253,7 +248,6 @@ Namespace SecurityString
''' </summary>
''' <param name="value"></param>
''' <returns></returns>
<ExportAPI("SaltValue", Info:="SHA256 8 bits salt value for the private key.")>
Public Function SaltValue(value As String) As String
Dim hash As String = GetMd5Hash(value)
Dim chars() = {

14
Extensions/StringHelpers/StringHelpers.vb
View File

@ -587,7 +587,6 @@ Public Module StringHelpers
''' <param name="ch"></param>
''' <returns></returns>
'''
<ExportAPI("Count", Info:="Counting the specific char in the input string value.")>
<Extension> Public Function Count(str$, ch As Char) As Integer
If String.IsNullOrEmpty(str) Then
Return 0
@ -794,7 +793,6 @@ Public Module StringHelpers
''' <param name="pattern">The regular expression pattern to match.</param>
''' <param name="options"></param>
''' <returns></returns>
<ExportAPI("Regex", Info:="Searches the specified input string for the first occurrence of the specified regular expression.")>
<Extension> Public Function Match(<Parameter("input", "The string to search for a match.")> input$,
<Parameter("Pattern", "The regular expression pattern to match.")> pattern$,
Optional options As RegexOptions = RegexOptions.Multiline) As String
@ -867,7 +865,6 @@ Public Module StringHelpers
''' <param name="tokens"></param>
''' <returns></returns>
''' <remarks></remarks>
<ExportAPI("Tokens.Count", Info:="Count the string value numbers.")>
<Extension> 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
''' <param name="trimTrailingEmptyStrings"></param>
''' <returns></returns>
''' <remarks></remarks>
<ExportAPI("StringsSplit", Info:="This method is used to replace most calls to the Java String.split method.")>
<Extension> Public Function StringSplit(source$, pattern$,
Optional TrimTrailingEmptyStrings As Boolean = False,
Optional opt As RegexOptions = RegexICSng) As String()
<Extension>
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 <see cref="InStr"/> will be used if ``String.Equals`` method have no result.
''' </param>
''' <returns></returns>
<ExportAPI("Located", Info:="String compares using String.Equals")>
<Extension> 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
''' <param name="keyword"></param>
''' <param name="caseSensitive"></param>
''' <returns>返回第一个找到关键词的行数，没有找到则返回-1</returns>
<ExportAPI("Lookup", Info:="Search the string by keyword in a string collection.")>
<Extension>
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)

2
Language/Language/UnixBash/Cowsay.vb
View File

@ -116,8 +116,6 @@ H H EEEEE LLLLL LLLLL OOO ,, W W OOO R R LLLLL DDDD !!
''' <param name="msg"></param>
''' <returns></returns>
'''
<ExportAPI("Cowsay",
Info:="Show cowsay with a specific input message on your console screen. you can using /dead to change its face.")>
Public Function RunCowsay(msg As String, Optional isDead As Boolean = False) As String
If isDead Then
msg = __msgbox(msg) & DeadCow

4
Text/Parser/HtmlParser/HtmlStrips.vb
View File

@ -202,13 +202,13 @@ Namespace Text.Parser.HtmlParser
End Function
''' <summary>
''' 获取两个尖括号之间的内容
''' Gets the string value between two wrapper character.
''' (获取两个尖括号之间的内容)
''' </summary>
''' <param name="html"></param>
''' <returns></returns>
''' <remarks></remarks>
<MethodImpl(MethodImplOptions.AggressiveInlining)>
<ExportAPI("Html.GetValue", Info:="Gets the string value between two wrapper character.")>
<Extension> Public Function GetValue(html As String) As String
Return html.GetStackValue(">", "<")
End Function