TextFindDateValues ( TextToSearch ; ValuesFound )

Returns a Value List of Dates Found in a String.

Average rating: 4.9 (24 votes) Log in to vote

Hal Gumbert - Show more from this author
CampSoftware
http://www.campsoftware.com

Sample input:

Input 1: TextFindDateValues ( "1/7/2012 7am Breakfast at Tiffany's; Meet outside." ; "" )

Input 2: TextFindDateValues ( "1/5/2012 Get gift for Hal for his birthday on 1/7/2012." ; "" )

Sample output:

Output 1: "1/7/2012"

Output 2: "1/5/2012¶1/7/2012"

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*

TextFindDateValues ( TextToSearch ; ValuesFound )

Hal Gumbert, CampSoftware.com

Returns a Value List of Dates Found in a String.

Parameters:
TextToSearch = the text to search
ValuesFound = used to track found values 

Return Value:
A Value List of Found Values

Input: TextFindDateValues ( "1/7/2012 7am Breakfast at Tiffany's; Meet outside." ; "" )
Output: "1/7/2012"

Input: TextFindDateValues ( "1/5/2012 Get gift for Hal for his birthday on 1/7/2012." ; "" )
Output: "1/5/2012¶1/7/2012"

*/

Let ( [

// Get the Word to examine.
theWord = MiddleWords ( TextToSearch ; 1 ; 1 ) ; 

// Is the Word a Date?
theWordIsADate = If ( (not IsEmpty ( GetAsDate ( theWord ) ) ) and ( GetAsDate ( theWord ) ≠ "?" ) ; 1 ; 0 ) ;

// Add the Word to the Value List if it is a Date.
theValuesFound = ValuesFound & If ( theWordIsADate ; If ( not IsEmpty ( ValuesFound ) ; "¶" ; "" ) & theWord ; "" ) ;

// The Words to be examined.
theWordsRemaining = MiddleWords ( TextToSearch ; 2 ; WordCount ( TextToSearch ) )

] ; 

// If there are no words remaining, return the Values, otherwise, search the remaining words.
If ( IsEmpty ( theWordsRemaining ) ; theValuesFound ; TextFindDateValues ( theWordsRemaining ; theValuesFound ) )

)

TextFindDateValues ( TextToSearch ; ValuesFound )

Hal Gumbert, CampSoftware.com

Returns a Value List of Dates Found in a String.

Parameters:
TextToSearch = the text to search
ValuesFound = used to track found values

Return Value:
A Value List of Found Values

Input: TextFindDateValues ( "1/7/2012 7am Breakfast at Tiffany's; Meet outside." ; "" )
Output: "1/7/2012"

Input: TextFindDateValues ( "1/5/2012 Get gift for Hal for his birthday on 1/7/2012." ; "" )
Output: "1/5/2012¶1/7/2012"

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

TextFindDateValues ( TextToSearch ; ValuesFound )

Comments

Support this website.

Support this website.