GetURLAtSelection ( )

Gets the URL in a textfield

Be the first to rate this function Log in to vote

Mars Aussendorf - Show more from this author
Mars Consult

Sample input:

Some text containing fully displayed URLs

Sample output:

An URL

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

Let ( [  content = Get(InhoudActiefVeld)
    ; content = Substitute ( content  ;  [ " " ; ¶ ]  )  // end Substitute 
	; cursorPos = Get(StartActieveSelectie)
	; pos0 = Position ( content ; "¶"; cursorPos; -1)  + 1
	; pos1 = Position ( content ; "¶"; pos0; 1)
     ; pos1 = If ( pos1 = 0; Length (content) + 1; pos1)
	; rip = pos1 - pos0
	; result = Middle ( content ; pos0 ; rip )
     ; protocol = Let ( p = Position ( result ; ":/" ; 1 ; 1 ); If ( p = 0; ""; Left ( result; p - 1 ) ) )
     ; allowedprotocols = "http¶https¶ftp¶fmp¶fmnet¶ftps¶webdav¶evernote"
  ] ;

Case ( FilterValues ( allowedprotocols ; protocol ) ≠ "" ; result; 

Left ( result; 4 ) = "www." or Right (result; 3 ) = ".nl" or Right ( result; 4 ) = ".com"; "https://" & result; 

"" )



) // end Let



/* 
Update d.d. 02-08-2021
Mars Consult d.d. 07-07-2021 | 18-07-2021 | 
gets an url clicked on a text position.

Edit the "allowed protocols" to fit desired use.




*/

When entering a field, this function will return the URL if it is at the position where you click.
Apply in a triggered script (OnObjectEnter) to actually open the URL.
Use this function in conjunction with my CF 'Format_URLs' to have URLs highlighted in the textfield.

This CF is based on the excellent idea of Wakido: https://web.wakido.com/downloads/hyperlinks-in-text-fields/

Comments

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

GetURLAtSelection ( )

Comments

Support this website.

Support this website.