========================================
Título: Contagem de Caracteres
Descrição: Faz a contagem de quantas vezes que uma string contém em outra.
---------------------------------------------------------
Linguagem: VB.NET Web/WindowsForms
Sintaxe: CharCount(strValue As String, strSearch As String[, ignoreCase As Boolean = False])
Retorno: Integer
Descrição: A função procura pela string strSearch em strValue. Caso o booleano ignoreCase esteja True, converte as strings para minusculo para não diferenciar o maisuculo de minusculo.
Classes: System.String
Limitações: .NET Framework v1.1
Função:
Public Function CharCount(strValue As String, strSearch As String, Optional ignoreCase As Boolean = False) As Integer Dim iCount As Integer = 0 Dim iPos As Integer = -1 If ignoreCase Then strValue = strValue.ToLower strSearch = strSearch.ToLower End If Do iPos = strValue.indexOf(strSearch, iPos + 1) If iPos > -1 Then iCount += 1 End If Loop While iPos > -1 Return iCount End Function
========================================
Código inserido entre as TAGs [ CODE ] e [ /CODE ].
Qualquer dúvida sobre os padrões podem ser postadas nesse tópico. Obrigado a todos
Edição feita por: felipecm, 25/06/2005, 11:33.