而內建函數並沒有相關的函數可以使用
因此就必須自行撰寫一個簡單的function
程式碼如下
Public Function sCount(ByVal str As String, ByVal find As Char) As Integer Dim count As Integer = 0 For Each s As Char In str If s = find Then count += 1 End If Next Return count End Function
分享與記錄心得的小天地