Viva,
O código que se segue serve para contar os "Espaços" existentes numa String:
Mas o que eu queria era contar o número de caracteres ">" ou "<" existentes.
Podem-me ajudar?
Obrigado
Bruno Gordino
O código que se segue serve para contar os "Espaços" existentes numa String:
- Código:
Function SpaceCount(myData) As Integer
Dim intChr As Integer
Dim intCount As Integer
For intChr = 1 To Len(myData)
If Mid(myData, intChr, 1) = Space(1) Then
intCount = intCount + 1
End If
' allow for window events in loop
DoEvents
Next intChr
SpaceCount = intCount
End Function
Mas o que eu queria era contar o número de caracteres ">" ou "<" existentes.
Podem-me ajudar?
Obrigado
Bruno Gordino
Última edição por brunogor em 11/2/2016, 17:27, editado 1 vez(es)