LiveCode Forums.

Code: Select all

// Example 1: Using "(" as the beginning tag and ")" as the ending tag
put "James hit the ball in the (23)rd soccer game in Milano." into tText
put filterTags (tText, "(,)" )

Code: Select all

// Example 2: Using beginning tag "---" and "---/" as ending tag
put "James played the ball in the at the ---23rd---/ soccer game." into tText
put filterTags (tText, "---,---/" )

Code: Select all

function filterTags pString,pDels
   ## Extract text that is between two different delimiters/tags
   
   if pString = "?" then 
      return "filterTags ( pString, pDels ). "& \
            "Param 'pDels': One or two delimiters ('tags','separators') "& \
            "as comma separated items."
   end if
  
   local a,b
   
   if the number of items of pDels is 2 then
      put item 1 of pDels into pDel1
      put item 2 of pDels into pDel2
   else
      return empty
   end if
   
   if pDel1 is pDel2 then return empty -- requires two tags that are different
   
   put offset( pDel1 , pString ) + length( pDel1 ) into a
   put offset( pDel2 , pString ) - 1 into b
   
   if a > 0 AND b > a then
      return char a to b of pString
   else
      return empty
   end if
end filterTags
s

Code: Select all

on mouseUp pMouseButton
  constant kLd = "}}"
  constant kId = "{{"
  put fld "f1" into tText
  set the linedelimiter to kLd
  set the itemdelimiter to kId
  repeat for each line tLine in tText
    put the last item of tLine & cr after tFound
  end repeat
  delete the last char of tFound
  put tFound into fld "f2"
end mouseUp

Code: Select all

Code of field "f1":

Code: Select all

Code of the Button:

Code: Select all

function inBeet_BL theString, theStart, theEnd, offNum
   /* inBeet_BL() is a very fast function - it extracts data between 2 search hits.
   
   # theString (String): The data you're searching in;
   
   # theStart, theEnd (String): what is before and after your desired text,
   . assumed that theEnd comes AFTER theStart, and that at least theEnd is not empty;
   . If you look for something at the beginning of theString, leave theStart empty -
   . in case of mode 2 (2-line return) you need to set offNum to 0.
   
   # OffNum (Int, optional): skip [offNum] chars at the beginning of theString;
   . 2 modes of action, depending on the value of offNum:
   
   - Mode 1: When offNum is empty, it just returns the found string, or empty;
   - Mode 2: When offNum <> empty, it returns a 2-line result:
   .        line 1 is the pos of the last char touched in theString (= last char found of theEnd) 
   .        and line 2 is the found string. Use line 1 as offNum for your next repeat!
   
   What negative values do for offNum is left as an exercise - it has a (strange) use too!
   axwald @ forums.livecode.com, GPL v3, 10/2020   */
   
   if (offNum is not empty) then
      if theStart is empty then 
         put 1 into theStart
      else
         put offset(theStart,theString,offNum) + len(theStart) + offNum into myStart
      end if
      if myStart is (len(theStart) + offNum) then return empty
      put offset(theEnd,theString,myStart) + (myStart)-1 into myEnd
      if myEnd is (myStart)-1 then return empty
      return myEnd & CR & char myStart to myEnd of theString
   else
      return char (offset(theStart,theString) + len(theStart)) to \
            (offset(theEnd,theString,(offset(theStart,theString) + len(theStart))) \
            + (offset(theStart,theString) + len(theStart))-1) \
            of theString
   end if
end inBeet_BL

Code: Select all

(?<=delim1)(.*)(?=delim2)

Code: Select all

on mouseUp
   answer twoTags(fld 1,comma,"epoch")
end mouseUp

function twoTags tText,firsttag,secondTag
   set the itemDel to firstTag
   put item 2 to 1000 of tText into temp
   set the itemDel to secondTag
   return item 1 of temp
end twoTags

Code: Select all

on mouseUP
   constant T = "_1qwerty_2 _1asdf_2"
   
   put "Text in: " &tab& T &cr& \
         "regex:" &tab& "result:" &cr into fld 1
   
   constant rexStam1 = "(?<=_1)(.*)(?=_2)"
   if matchText( T, rexStam1, gotIt) then
      put rexStam1 &tab& gotIt &cr after fld 1
   end if
   
   constant rexStam2 = "_1(.*)_2"
   if matchText( T, rexStam2, gotIt) then
      put rexStam2 &tab& gotIt &cr after fld 1
   end if
   
   -- constant rexTdz1 = "?????"
   if matchText( T, rexTdz1, gotIt) then
      put "rexTdz1" &tab& gotIt &cr after fld 1
   end if
end mouseUP

Code: Select all

on mouseUp
   answer twoTags(fld 1,comma,"epoch")
end mouseUp

function twoTags ttext,firstTag,secondTag,accum
   set the itemDel to firstTag
   put item 2 to 10000 of tText into temp
   set the itemDel to secondTag
   put item 1 of temp after accum
   
   delete item 1 of tText
   if firstTag is in tText and secondTag is in tText then
      put twoTags(tText,firstTag,secondtag,accum) after accum
   else
      return accum
   end if
end twoTags

Code: Select all

(?<=delim1)(.*?)(?=delim2)

Code: Select all

delim1(.*?)delim2