Search Results

ChatGPT answered: Dim m As Matcher = Regex.Matcher(pat, str) If m.Find() Then Log("URL is valid") Else Log("URL is not valid") End If
link: Dim pat, str As String pat="^https?:\/\/+\.{2,}(:+)?(\/*)?$" str="https://www.b4x.-questions.26/" Dim m As Matcher = Regex.Matcher(pat,str

:#(.*))?"$ 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

Private Sub SplitAsList(Text As String) As List Dim lstResult As List lstResult.Initialize Dim Matcher1 As Matcher Dim Pattern As String Pattern = $"\"(*?)\"|(+)"$ Matcher1 = Regex.Matcher(Pattern, Text) Dim Block As String Do While Matcher1.Find Block =
link: Questa funziona (pattern generato da ChatGPT): Private Sub Split(Text As String) As List Dim lstResult As List lstResult.Initialize Di
link: :\n|$))" ' una riga di esempio Dim dati As String = "15601,01/18/2012,02:58:26,""RICETTA A"" ,120, 50, 70, 60, 120 , 2

Extracts the first letter of a first name and last name. If you wish, you can extract the first letter of the first name and the full last name. Log(GetNameLetter("ti-logistic")) Log(GetNameLetter("Aeric Poon")) Log(GetNameLetter("McFarland, Dave")) Log(GetNameLetter("A & W")) L

CIF.ToUpperCase) Matcher1.Find Dim Checksum = 0, Pos = 0 As Int For Each Val As Int In Regex.Split("", Matcher1.Group(2)) Dim Sum As Int For Each Num As Int In Regex.Split("", (Val*(2-(Pos Mod 2))).As(String)) Su

MiniHtmlParser will not help here as you actually need to find the json string and then parse it. The problem here is that the json string is broken. So you end with: Dim m As Matcher = Regex.Matcher($"\"price\": \"(\d+)\""$, s) If m.Find Then Log(m.Group(1)) End If

Sub OccurrIndexes(SubString As String, Text As String, CaseSensitive As Boolean) As List Dim lstResult As List : lstResult.Initialize If CaseSensitive = False Then SubString = SubString.ToLowerCase Text = Text.ToLowerCase End If Dim StartIndex As Int = Text.

Public Sub Extract( strPattern As String, strText As String, blnCaseSensitive As Boolean, intExtractGroup As Int) As String Dim m As Matcher If blnCaseSensitive Then m = Regex.Matcher(strPattern, strText) Else m = Regex.Matcher2(strPattern, Regex.CASE_INSENSITIVE,
link: I don't think that there is a bug in Matcher.Find. Can you post a full example that demonstrates it?
link: Attached a simple example (taken from a code sample here on the forum)... #Region Service Attributes #StartAtBoot: False #ExcludeFromLibrary:
link: I should have realised that it would be my mistake, I hadn't realised that calling matcher.find triggered a search for another match and returned true

other: Private Sub Log("*** Free format of names and surnames ***") Dim Matcher1 As Matcher = Regex.Matcher("(+)", B4XFloatTextField1.Text) Do While Matcher1.Find Log("Found: " & Matcher1.Match) Loop Log("*** Fixed format First Middle Last ***") I
link: simple test. Validate the entry by separating the names and surnames Private Sub Dim Matcher1 As Matcher = Regex.Matcher("(+)", B4XFloatTextFie
link: Log("*** Fixed format First Middle Last ***") Log(ToMixCase(B4XFloatTextField1.Text)) If Regex.IsMatch("^(+)\h*(.+)\h*\b(\w+)$", B4XFl

Sub CountOccurrences (text As String, match As String) As Int Dim count As Int Dim m As Matcher = Regex.Matcher($"\Q${match}\E"$, text) Do While m.Find count = count + 1 Loop Return count End Sub
link: If you are searching for a single character then the simplest way: Sub CountOccurrences (text As String, match As String) As Int Dim count As Int

Powered by ColBERT