teken tellen

Status
Niet open voor verdere reacties.

famlam

Gebruiker
Lid geworden
15 okt 2008
Berichten
416
Hoe kun je één teken tellen (dus hoe vaak een teken in een string voorkomt)?

ik weet dat je dat op deze manier kan doen, maar deze is wel erg omslachtig.
Bestaat er misschien iets als textbox1.text.countchar(";")??

Code:
Dim tekens As Integer = 0
Dim tezoekenteken As Char = ";"
For Each t As Char In textbox1.Text
    If t = ";" Then tekens += 1
Next
 
Code:
Imports System.Text.RegularExpressions

Public Class Form1
    Dim tekens As Integer = 0

    Private Sub Form1_Load...
        Dim objRegex As New Regex(";")
        tekens = objRegex.Matches(Textbox1.Text).Count
    End Sub
End Class
 
Hey,

Denk van niet. Heb die functie wel in mn text manipulatie class zitten.

Meer specifiek deze functie

Code:
        ''' <summary>Returns the amount of times one or more chars have been found in the DynStr</summary>
        ''' <param name="charsToSearch">Required. String. The characters you want to search in the DynStr</param>
        Public Overridable Function CountChars(ByVal charsToSearch As String) As Int64
            If Me.Length < 1 Then Return 0
            For Each chr As Char In Me.Text
                CountChars -= CInt(charsToSearch.Contains(chr))
            Next
        End Function

Door die boolean naar een integer te converteren spaar je die if-structuur uit, en win je dus aan snelheid :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan