Jag har kommit på två sätt att räkna en viss bokstav/tecken. Finns det någon annan inbyggd .net-funktion för detta?
Dim antal_komman as integer = ListLen("Jag, är, en, ful gris",",")
Dim antal_komman as integer = ListLen2("Jag, är, en, ful gris",",")
Private Function ListLen(ByVal inStr As String, ByVal chr As Char) As Int16
Return CLng(inStr.Length - inStr.Replace(chr, String.Empty).Length)
End Function
Private Function ListLen2(ByVal inStr As String, ByVal chr As Char) As Int16
Return CLng(inStr.Split(chr).Length - 1)
End Function
Jag gjorde en liten klass för att testa subbar och funktioner som hittas här: http://www.webforum.nu/showthread.php?p=1402005
Ganska kul att se resultatet.
Nickemannens variant var bra mycket långsammare...i min uträkning.
ListLen1: 0,0481759553239308
ListLen2: 0,0493012380065064
ListLen3: 4,18607141410431
ListLen4: 0,046162291576164
Du har rätt, den verkar tom segra! :birp
Sen märkte jag att vb-funktionen CallByName verkar vara en riktig segis, men det skall inte påverka testet för att jämföra de sinsemellan.
Hmm, känner att RegEx blivit lite orättvisst behandlad.
RegEx regEx = new RegEx(@"\,", RegExOptions.Compiled);
får inte ligga i metoden utan måste vara en medlem i klassen annars blir den klart långsammast.
Men den vinner ändå antagligen inte.
Men när det blir mer än ett tecken man skall söka på så tror jag nog att RegularExpressions kan bli snabbare.
'Räknar förekomsten av kommatecken med regexp
Private _regEx As Regex = New Regex("\,", RegexOptions.Compiled)
Public Function ListLen5(ByVal inStr As String, ByVal chr As Char) As Int16
Return _regEx.Matches(inStr).Count
End Function
Även om det inte slår dom första 2 alternativen. Men som sagt är det fler tecken så tror jag denna sopar mattan med de andra :). Eller om det skall vara ett tecken som t.ex. A som också kan vara ett litet a.
262 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
