Una sencilla funcioncilla que sirve para contar el número de caracteres que tiene una cadena. Por ejemplo, imaginar que queremos saber el número de puntos que tiene un nombre de un fichero. Pues podéis utilizar esto:
Public Class Form1
Private Function ContarCaracteres(ByVal cadena As String, ByVal caracter As Char) As Integer
Dim n As Integer
Dim contador As Integer = 0
For n = 0 To Len(cadena) - 1
If cadena.Chars(n) = caracter Then
contador = contador + 1
End If
Next n
Return contador
End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
MessageBox.Show(ContarCaracteres("cocodrilo", "o"))
End Sub
End Class
Si pusieras comentarios en el codigo seria bravazo :P solo para entender un poco más la lógica de tu funcion.
ResponderEliminarIntentaré ponerlos, aunque en una función tan sencillita creo que no hacen falta. Un saludo.
ResponderEliminarno lo entendi mucho porque aun no entro al tema de funciones... pero mas adelante talvez si.. guardare el codigo, gracias por el esfuerzo.
ResponderEliminarLo entendi, de diez muy facil y censillo gracias...
ResponderEliminarPodrías haber colocado algunos comentarios, para ti puede que sea algo sumanete básico, pero para quienes comienzan a programar no lo es para nada.
ResponderEliminarMsgBox((From Caracteres In "cocodrilo" Where Caracteres = "o").Count)
ResponderEliminarUn usuario dice que el código es "bravazo" pero despues dice que no lo entiende mucho...
ResponderEliminar¿?
.
¿Cómo entonces sabe que es bravazo?
.
En verdad que no necesita comentarios solo hay que leerlo línea por línea y entender lo que hace.
.
felicitaciones por el código, simple y efectivo.