Counting occurences of a string (in a cell)

Question

This is a little like the topic "Counting occurences of a word," except I want to be able to count how many times a specified search string occurs in a cell, not count how many cells contain the string. I would also like a formula that gave the offset of the starting character of the search string into the cell, such that a zero signified that the search string did not occur.
Basically, I want a general set of tools to parse a cell's string data, enabling me to determine where in the cell's string data each occurrence of another string is located & to extract parts of the string data relative to where the search string occurs.
For example, if the cell contains the string, "1ab2cd2e" I want to be able to extract "cd" & "e" based on the characteristic that they follow "2."

Answer 1

Here it is:
--(SCRIPT decoupeur.app]
Save the script as a Script, an Application or an Application Bundle named decoupeur
Put the file in the folder
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:Numbers:
Maybe you would have to create the folder Numbers and even the folder Applications by yourself.
To use it,
Select the group of cells to convert
Copy to the clipboard
Select the destination cell
Goto Scripts > Numbers > decoupeur
You will be asked to define the separator to use.
Given the separator "2", the strings of the kind "1zer6sd2az2rt8aa2er7kkk5uu2a"
would be parsed and return az TAB rt TAB er TAB a
The converted values will be pasted at the cursor.
Yvan KOENIG 30juin 2008
property theApp : "Numbers"
property menuFenetre : 10
property premierNom : 6
property nomDuDocActif : ""
property theDelim : ""
property listeLignes : {}
property listeTemp : {}
property msg90 : ""
property msg91 : ""
property msg92 : ""
--=============
on run
tell application "System Events" to if not (UI elements enabled) then set (UI elements enabled) to true (*
Active le GUI scripting
• Enable GUI scripting *)
my nettoie()
my controleVersion()
set nomDuDocActif to my getFrontDoc()
if nomDuDocActif = "" then return
my prepareMessages()
try
set txtDatas to the clipboard as Unicode text
on error (*
The clipboard was empty *)
return
end try
set my listeLignes to every paragraph of txtDatas
set srcNbRows to count of my listeLignes
if txtDatas contains tab then (*
several columns *)
error "Can't treat several columns" number 8001
else (*
single column *)
tell application theApp
set choix to choose from list {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0"} with prompt msg90 default items {"2"} OK button name msg91 cancel button name msg92
end tell
if choix is false then error -128
set theDelim to item 1 of choix
repeat with i from 1 to srcNbRows
if item i of my listeLignes is not "" then set item i of my listeLignes to my decipher(item i of my listeLignes)
end repeat
end if
set the clipboard to my recolle(listeLignes, return)
my pasteIt()
my nettoie()
end run
--=============
on pasteIt()
tell application theApp to activate
tell application "System Events" to tell (first process whose title is theApp)
click menu item nomDuDocActif of menu 1 of menu bar item menuFenetre of menu bar 1
keystroke "v" using {command down}
end tell
end pasteIt
--=============
on decoupeur(n)
local d, ms, m
set d to n div 1
set ms to (n - d) * 60
set m to round (ms)
return (d as text) & "°" & m & "’" & (round ((ms - m) * 60)) & "”"
end decoupeur
--=============
on decipher(source)
local i, itm, shortimem, j
set my listeTemp to my decoupe(source, theDelim)
set my listeTemp to items 2 thru -1 of my listeTemp
repeat with i from 1 to count of my listeTemp
set itm to item i of my listeTemp
set shortItem to ""
repeat with j from 1 to length of itm
if character j of itm is not in "1234567890" then
set shortItem to shortItem & character j of itm
else
exit repeat
end if
end repeat
set item i of my listeTemp to shortItem
end repeat
return my recolle(my listeTemp, tab)
end decipher
--=============
on getMinutesSeconds(t, d)
local ll
set ll to my decoupe(t, d)
return {(item 1 of ll) as integer, (item 2 of ll) as text}
end getMinutesSeconds
--=============
on decoupe(t, d)
local l
set AppleScript's text item delimiters to d
set l to text items of t
set AppleScript's text item delimiters to ""
return l
end decoupe
--=============
on recolle(l, d)
local t
set AppleScript's text item delimiters to d
set t to l as text
set AppleScript's text item delimiters to ""
return t
end recolle
--=============
on nettoie()
set AppleScript's text item delimiters to ""
set my listeLignes to {}
set my listeTemp to {}
set nomDuDocActif to ""
end nettoie
--=============
Get the name of the active document
on getFrontDoc()
local nw, mm
tell application theApp to activate
tell application "System Events" to tell (first process whose title is theApp)
set nw to name of every menu item of menu 1 of menu bar item menuFenetre of menu bar 1
if (count of nw) < premierNom then
set mm to ""
else
repeat with i from premierNom to count of nw
set mm to item i of nw
if (value of attribute "AXMenuItemMarkChar" of menu item mm of menu 1 of menu bar item menuFenetre of menu bar 1) is not in {"", "•"} then exit repeat
end repeat
end if -- (count of nw)…
end tell
return mm
end getFrontDoc
--=============
on controleVersion()
local v
try
set v to version of application theApp
set menuFenetre to 10 (* index of the Windows menu *)
set premierNom to 6 (* index of the first docName in the list of menu names
The list contains one more item than the displayed menu *)
on error (*
• We are here if Numbers ignores the instruction get version *)
tell application "System Events" to set v to get version of (get (application file of (get first process whose title is theApp)))
if v starts with "1" then
set menuFenetre to 10
set premierNom to 6
else (* ready for a Numbers v2 ignoring AppleScript *)
set menuFenetre to 10
set premierNom to 6
end if
end try
end controleVersion
--=============
on parleAnglais()
local z
try
tell application theApp to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z = "Cancel")
end parleAnglais
--=============
on prepareMessages()
if my parleAnglais() is false then
set msg90 to "Choisir le séparateur"
set msg91 to " OK "
set msg92 to "Annuler"
else
set msg90 to "Choose a separator"
set msg91 to " OK "
set msg92 to "Cancel"
end if
end prepareMessages
--=============
--[/SCRIPT]
Yvan KOENIG (from FRANCE lundi 30 juin 2008 11:16:52)