ValidURL ( style ; URL )

Validates and reformats formats URL, extracts domain, supports mailto & callto

Average rating: 3.9 (60 votes) Log in to vote

Roger Biel
2Geckos Consulting, LLC
www.2geckos.com

Sample input:

ValidURL ( "Domain" ; www.2Geckos.com )
ValidURL ( "URL" ; filemaker@2Geckos.com )
ValidURL ( "www" ; www.2Geckos.com )
ValidURL ( "link" ; www.2Geckos.com )

Sample output:

2Geckos.com
mailto:filemaker@2Geckos.com
http://www.2Geckos.com/
www.2geckos.com

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

/*ValidURL( style ; URL )
 style = "Domain";2geckos.com
 style = "URL";"http://2geckos.com/";
 style = "www";"http://www.2geckos.com/";
 style = "link";"<a href = \"http://www.2geckos.com/">;
*/
Let([  IsEmail = If( IsEmpty(ValidEmail ( URL)) ; 0 ; 1 ) ;
IsCall = If( Left( URL ; 7 ) = "callto:" ; 1 ;0 );
weblink = Substitute(URL;["\\";"/"]);
result = Filter(GetAsText(TrimAll(weblink;1;2));"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklomnopqrstuvwxyz1234567890:./-?|!#~@$%^ &*()_+ = {}[]");
result = TextStyleRemove(TextSizeRemove(TextFontRemove(TextColorRemove(result)));AllStyles);
result1 = Case(not IsEmpty(Filter(result;"?|!#@$%^ &*()+ = {}[]"));result;// do not format if special characters
	MimeType(result;"") ≠  "unknown";result;
	Right(result;1)= "/";result;
	result & "/");
result1 = Case(Left(result1;1)= "/";Right(result1;Length(result1)-1);
Left(result1;4)≠  "http" and not IsEmpty(result1);"http://" & result1;
result1);

result2 = If(PatternCount(result1;"www.")>0;result1; Substitute ( result1; "://"; "://www.") );

// Strip additional url from path to determin root domain
Domain = Substitute(result1;["https:";""];["http:";""];["www.";""];["//";""]);
Domain = Case(PatternCount(Domain;"m?")>0;Left(Domain;Length(Domain)- Position(Domain;"?";1;1));
	PatternCount(Domain;"/")>0;Left(Domain;Position(Domain;"/";1;1));
	PatternCount(Domain;"@")>0;Right(Domain;Length(Domain)- Position(Domain;"@";1;1));
	"");
sufix = Case(PatternCount(Domain;".co.uk")>0;".co.uk";PatternCount(Domain;".me.uk")>0;".me.uk";PatternCount(Domain;".org.uk")>0;".org.uk";PatternCount(Domain;".com")>0;".com";PatternCount(Domain;".org")>0;".org";PatternCount(Domain;".net")>0;".net";PatternCount(Domain;".biz")>0;".biz";PatternCount(Domain;".info")>0;".info";PatternCount(Domain;".us")>0;".us";PatternCount(Domain;".edu")>0;".edu";PatternCount(Domain;".gov")>0;".gov";PatternCount(Domain;".bz")>0;".bz";PatternCount(Domain;".cc")>0;".cc";"");
Domain = Left(Domain;Position(Domain;sufix;1;1)-1)& sufix ;

email = Case( not IsEmail ; "" ;
	Left( URL ; 7 ) = "mailto:" ; URL;
	 "mailto:" &  ValidEmail ( URL) );
call = If( not IsCall ; "" ; URL )

];
Case(	Left(URL;1)= ">";URL;
	Left(URL;1)= "#";URL;
	IsEmpty( Domain ) ; "" ;
	style = 0;Domain;
	style = "Domain";Domain;
	IsEmail ; email ; IsCall ; URL ;
	style = 2 or style = "Link" ;"<a href = \"" & result1 & "\">" & result & "</a>& nbsp;";
	style = "URL";result1;
	style = "www";result2;
	style = 1;result1;
	style = 3;result1;
	TextColor(result;RGB(0;0;255))
)
)

I'm worked on this function for a long time and have been adding features that I've found useful in many scripts and auto-enter fields.

Although it is working great I would appreciate any feedback or suggestions on how to improve it.

Comments

		IKBM, Florida May 2, 2012
Is there a dependency to ValidEmail()? Where can I get that?

		Roger Biel, Casa Grande, Arizona May 2, 2012
My apologies for not uploading ValidEmail(), that is used in this function. It is now uploaded.

		Gianluca, Milan Dec 19, 2015
Ciao Roger, The function is not working with italian .it sites.

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

ValidURL ( style ; URL )

Comments

Support this website.

Support this website.