Hàm kiểm tra tần xuất xuất hiện trong chuổi , số lần xuất hiện trong chuổi
Posted: Sat 08/08/2015 3:44 pm
Mới sưu tầm code này ở bên kia, thây shay quá copy qua đây để có ai dùng thì dùng
Code: Select all
'Hàm kiểm tra tần xuất xuất hiện trong chuổi , số lần xuất hiện trong chuổi
Public Function numberofchar(arraychar As Char(), chardata As Char) As Integer
If arraychar.Length = 0 Then
Return 0
End If
If Len(chardata) = 0 Then
Return 0
End If
Dim number As Integer = 0
For Each chartemp As Char In arraychar
If chartemp = chardata Then
number += 1
End If
Next
Return number
End Function