ExtractURL ( link )

- Extract the url, removing the queryparams

Average rating: 5.0 (1 vote) Log in to vote

Raul Hernandez - Show more from this author
https://www.awce.dev/

Sample input:

https://www.briandunning.com/filemaker-custom-functions/new_function.php

Sample output:

https://www.briandunning.com

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

/* EXTRACTURL
by Juan Teixeira , Raul Hernandez
Bitwok

- Extract the url, removing the queryparams

*/
Let(
    [
        // Aseguramos que la URL comience correctamente
        urlCorregida = Case(
            Left ( url ; 7 ) ≠ "http://" and Left ( url ; 8 ) ≠ "https://";
            "http://" & url;
            url
        );
        // Dividimos la URL en partes usando "/"
        partes = Substitute ( urlCorregida ; "/" ; ¶ );
        // Contamos la cantidad de partes
        cantidadPartes = ValueCount ( partes )
    ];
    // Verificamos si la URL tiene al menos tres "/"
    If ( cantidadPartes < 4;
        // Si hay menos de tres "/", retornamos la URL tal cual
        urlCorregida;
        // De lo contrario, reconstruimos la URL hasta el tercer "/"
        Let(
            [
                protocolo = GetValue(partes; 1);
                dominio = GetValue(partes; 2);
                ruta1 = GetValue(partes; 3);
                // Añadimos "/" al final si la URL original tenía más de tres "/"
                finalSlash = If( cantidadPartes > 4; "/" ; "" )
            ];
            protocolo & "//" & dominio & "/" & ruta1 & finalSlash
        )
    )
)

- Extract the url, removing the queryparams

Comments

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

ExtractURL ( link )

Comments

Support this website.

Support this website.