Search Results

had found and I ended up breaking my code. With a little fault finding I worked out that the m.find... As String, blnCaseSensitive As Boolean, intExtractGroup As Int) As String Dim m As Matcher If...
link: was what did the search, now I see that it only sets the pattern and matcher.find executes the search...
link: It works as it should be. Find is called multiple times in most cases. It searches for the next...
link: Validate_Email(EmailAddress As String) As Boolean Dim MatchEmail As Matcher = Regex.Matcher("^...

= "(\w+).*\W+(\w+)$" Dim Matcher As Matcher = Regex.Matcher(Pattern, Text) Result.Initialize If Matcher.Find Then For i = 1 To Matcher.GroupCount Result.Append(Matcher.Group(i).SubString2(0,1)) Next End If Result.ToString.ToUpperCase End Sub...

HighlightCsTextWithRegex(OriginalText As String, searchWord As String) As CSBuilder Dim escapedSearchWord As String = RegexEscapeSpecialChars(searchWord) Dim pattern As String = "(?i)" & escapedSearchWord ' (?i) case-insensitive! Dim matcher As Matcher = Regex.Matcher(pattern....Find Dim startIndex As Int = matcher.GetStart(0) Dim endIndex As Int = matcher...This simple function highlights all occurrences of a search term in a given text and returns...

, CaseSensitive As Boolean) As Int Dim MatcherX As Matcher Dim Counter As Int If CaseSensitive Then MatcherX = Regex.Matcher(Pattern, Text) Else MatcherX = Regex.Matcher2(Pattern, Regex.CASE_INSENSITIVE, Text) End If Counter = 0 Do While MatcherX.Find... Dim Matcher1 As Matcher = Regex.Matcher("\d+", Text) Do While Matcher1.Find lstResult.Add(Matcher1.Match) Loop Return lstResult End Sub Note: I know very little about...

B4X: Ejemplo busqueda. Dim Text As String = $"HolaÿMundo Texto sin el carácter especial. Aquí hay un Alt+255: ÿ"$ Dim Pattern As String = "\xFF" Dim Matcher As Matcher = Regex.Matcher(Pattern, Text) Do While Matcher.Find Log(Matcher.Match) Loop 164658 usar Regex.Replace 'reemplazar Regex.IsMatch 'verificar si existe ...

.Matcher($"<A HREF="(.+?)">"$, s) If matcher.Find Then... As Matcher = Regex.Matcher($"(<A HREF=".+?">)"$, s2) If matcher.Find Then...
link: <A HREF="(.+?)"> Name</A>"$,s) If matcher.Find Then Log("...
link: = Regex.Matcher(Pattern, html) Do While Matcher.Find Dim InsideTag As String = Matcher.Group...
link: While Matcher.Find If Not(Matcher.Group(2) = Null) Then Values.Add(Matcher.Group(2)) If...

(+):\/\/(+)(?::(\d+))?(\/*)?(?:\?(*))?(?:#(.*))?"$ Dim Matcher As Matcher = Regex.Matcher(Pattern, URL) Dim Result As Map : Result.Initialize If Matcher.Find Then Result.Put("url", Matcher.Group(0)) Result.Put("scheme", Matcher.Group(1)) Result.Put("domain", Matcher.Group(2)) Result.Put("port", Matcher.Group(3)) Result.Put("path", Matcher.Group(4)) Result.Put...

("\w+@\w+\.\w+", data) Do While matcher1.Find = True Log(matcher1.Match) Loop This code...) If matcher1.Find = True Then Dim days, months As Int months = matcher1.Group(1... with regular expressions you can find many good tutorials online. I recommend you to start....Split("+", data) Find matches in string Here we have a long string and we want to find all.... As an example we will find and print email addresses in text: Dim data As String data...

CSBuilder is supported by B4A and B4J. There are some differences in the supported properties. A more powerful cross platform alternative: BCTextEngine / BBCodeView - Text engine + BBCode parser + Rich Text View This sub searches for matches and uses CSBuilder to mark the matches. 157518... Dim lastMatchEnd As Int = 0 Dim m As Matcher = Regex.Matcher(Pattern, Input) Do While m.Find Dim currentStart As Int = m.GetStart(GroupNumber) cs.Append(Input.SubString2...

" & italicPattern & "|" & urlPattern Dim matcher As Matcher = Regex.Matcher(combinedPattern, markdown) Dim lastEnd As Int = 0 Do While matcher.Find cs.Append(markdown.SubString2(lastEnd, matcher.GetStart(0))) If matcher.Group(1) <> Null Then cs.Typeface(Typeface.DEFAULT_BOLD).Append(matcher.Group(1)).PopAll Else If...
link: lastEnd As Int = 0 Do While matcher.Find cs.Append(markdown.SubString2(lastEnd, matcher...