Sub CountMatches(text As String,pattern As String) As Int
Dim tmp_count As Int = 0
Dim Matcher1 As Matcher
Matcher1 = Regex.Matcher(pattern, text)
Do While Matcher1.Find
tmp_count = tmp_count +1
Loop
Return tmp_count
End Sub
Needed a fast way to take a recordset and group and count a specified column, so that is get the unique items of that column and count the occurrences of all those unique items.
This the best I could come up with:
Sub GroupAndCountRS(RS1 As ResultSet, iColumn As Int) As Map
Dim i As Int
Dim...
Hey,
if you download a file with Google Chrome for example and you have you've already downloaded this one time, then a number will appear next to it. This is now easy possible with this peace of code.
checkfilename(File.DirDefaultExternal,"mytestname.jpg",0,"mytestname.jpg")
Sub...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.