define_tag: 'text_to_url', -Required='Field', -optional='target';
    /*
    #############################################################################################################
    ## Custom_tag: [text_to_url]
    ## Version: 1.2.2
    ## Date: 6-8-2004 - updated 11-2005 (03-2007 bugfix) for Lasso 8 by suggestion from Johan Solve
    ## Author: Asle Benoni - asle@benoni.no || use it as you like but at your own risk ;-)
    ## Function: Takes a textinput containing URLs (HTTP, HTTPS, FTP) and email adresses and converts them to clickable links
    ## Platform: Lasso 8.5, 8 7 and Lasso 6.
    ## Availability: FREE - but I would be glad to hear if you are using it or have suggestions/requests for changes
    ## -> and if you keep the author information here ;-)
    ##
    ## A simple tag to make URL and MAILTO links from a text input or field.
    ## It searches for any links beginning with "www..." and converts them to  links.
    ## A link without "www" will also be clickable as long as there it starts with "http://"
    ## Of course it cannot decide if a text like "blueworld.com" is a URL.
    ## The tag should guess all kinds of weird URLS
    ## If the text includes i.ex. Click here links it does not treat them since
    ## these are hardcoded already and you don`t want to change them. It only treats obvious links that
    ## are not already clickable.
    ##
    ## Usage:
    ## text_to_url:'Please visit us at www.sample.com'
    ## -> Please visit us at http://www.sample.com
    ##
    ## text_to_url:'Please visit us at http://sample.com'
    ## -> Please visit us at http://sample.com
    ##
    ## text_to_url:'Please contact us at support@sample.com'
    ## -> Please visit us at suppport@sample.com
    ##
    ## If you want to leave out the "http://" in the link text you must change the value of local:'linktext'
    ##
    #############################################################################################################
    */

    local:'urltext'= '';
    local:'linktext'= '\\1';  // Change this value to '\\3' if you DO NOT want the link text to show a leading 'http://'

    // First we change all "www.xx.xx" to "http://...."
    #urltext = (String_ReplaceRegExp: #Field,
        -Find='((? Visit us "
    #urltext=(String_ReplaceRegExp: #urltext,
        -Find='((?)(https?://|ftp://)((([A-Za-z0-9$_.+!*(),;/?:@&~=-]+)|%[A-Fa-f0-9]{2})+(#([a-zA-Z0-9][a-zA-Z0-9$_.+!*(),;/?:@&~=%-]*))?))',
        -Replace=''+ #linktext +'',-ignorecase);

    // Create email-links from found email
    #urltext = (String_ReplaceRegExp: #urltext,
        -Find='([a-zA-Z0-9._-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{2,4})',
        -Replace='\\1',-ignorecase);

    #urltext = (String_Replace: -Find='\n', -Replace='
\n', #urltext, -EncodeNone);

    return: @#urltext;

/define_tag;