B4A Library String Functions

Dim s As String
s = "The quick brown fox jumped over the lazy old dog."
word2 = Split(s, " ")(2)  '<-- "brown"
word3 = Split(s, " ")(3)  '<-- "fox"

Sub getWord(str As String, Delimiter As String, n As Int) As String 
  Return Regex.Split(Delimiter, str)(n)
End Sub

Sub SplitGetWord(CurrentString As String, Split_At_Delimiter As String, GetElement As Int) As String
   '*** Original Function by RBSoft modified with suggestions from Jost aus Soest
   Dim t As List
   t = Regex.Split(Split_At_Delimiter, CurrentString)
   rs = iif(GetElement-1 <= t.Size -1, t.Get(GetElement-1), "Invalid Element Selected")
   Return rs
End Sub

Sub Join(Strings() As String, Delimiter As String) As String

   Dim i As Int
   Dim sb As StringBuilder

   sb.Initialize
   sb.Append(Strings(0))
   For i = 1 To Strings.Length - 1
      sb.Append(Delimiter).Append(Strings(i))
   Next'i
   Return sb.ToString

End Sub

Sub ExtractBetween(CurrentString As String, FirstWord As String, LastWord As String) As String
   Split_At_Delimiter = Chr(32)
   Dim t As List
   t = Regex.Split(Split_At_Delimiter, CurrentString)
   Dim newstr As String : st = 0 : ed = 0 : newstr = ""
   For l = 0 To t.Size -1
      If t.Get(l) = FirstWord Then
         st = l
      End If
      If t.Get(l) = LastWord Then
         ed = l
      End If   
   Next
   For l = (st +1) To (ed -1)
      newstr = newstr & t.Get(l) & " "
   Next
   Return newstr.Trim
End Sub

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)

    Dim myVar As String
    
    myVar = "This is a test"
    
    Dim myPos As Int
    
    
    myVar = ExtractBetween("This is a test.  This is only a test. For the next sixty seconds.","only", "sixty")
    myVar = ExtractBetween("<tag1>This is a test.</tag1>  <tag2>This is only a test.</tag2> <tag3>For the next sixty seconds you will be sujected to intense radiation.</tag3>", "<tag1>", "</tag1>")
    myVar = ExtractBetween("<tag1>This is a test.</tag1>  <tag2>This is only a test.</tag2> <tag3>For the next sixty seconds you will be sujected to intense radiation.</tag3>", "<tag2>", "</tag2>")
    myVar = ExtractBetween("<tag1>This is a test.</tag1>  <tag2>This is only a test.</tag2> <tag3>For the next sixty seconds you will be sujected to intense radiation.</tag3>" ,"<tag3>", "</tag3>")
    
    
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ExtractBetween(ExtractFrom As String, StartingWith As String, EndingAt As String) As String
        
        If ExtractFrom.Length = 0 Then
            Return "Nothing to Extract"
        End If
        
        'Sub Mid(Text As String, Start As Int, Length As Int) As String 

        If InStr(ExtractFrom, StartingWith) > -1 Then
        Else
            Return StartingWith & " - not found"
        End If
        
        If InStr(ExtractFrom, EndingAt) > -1 Then
        Else
            Return EndingAt & " - not found"
        End If
        
        Dim myStartPos As Int
        myStartPos = InStr(ExtractFrom, StartingWith)        
        myStartPos = myStartPos + StartingWith.Length + 1
        
        Dim myLength As Int
        myLength = ExtractFrom.Length - myStartPos + 1
                
        Dim myVarWithLeftRemoved As String
        myVarWithLeftRemoved = Mid(ExtractFrom, myStartPos, myLength)
                
        myStartPos = 1        
        myLength = InStr(myVarWithLeftRemoved, EndingAt)
            
        Dim myVarWithRightRemoved As String
        'Sub Left(Text As String, Length As Long)As String
        myVarWithRightRemoved = Left(myVarWithLeftRemoved, myLength )
                
        Dim myVar As String
        myVar = Trim(myVarWithRightRemoved)
        Msgbox ("*" & myVar & "*","")
        
        Return myVar
                
End Sub

Sub InStr(StrVar As String,SearchStr As String)As Long    'Same as At()
    '*** Function by RBSoft
    Dim x As Long
    x = StrVar.IndexOf(SearchStr)
    Return x
End Sub
Sub MB(Message As String)
    Msgbox(Message, "")
End Sub
Sub Left(Text As String, Length As Long)As String 
    If Length>Text.Length Then Length=Text.Length 
    Return Text.SubString2(0, Length)
End Sub
Sub Right(Text As String, Length As Long) As String
    If Length>Text.Length Then Length=Text.Length 
    Return Text.SubString(Text.Length-Length)
End Sub
Sub Mid(Text As String, Start As Int, Length As Int) As String 
    If Len(Text) = 0 Then
        Return ""
    End If    
    Return Text.SubString2(Start-1,Start+Length-1)
End Sub
Sub Len(Text As String) As Long
    Return Text.Length
End Sub
Sub Trim(Text As String) As String
    Return Text.Trim
End Sub