i wrote a program that automatially deletes http(/s)://(/www.) from any thing it finds in the clipboard. - (Moved)

[muchki]

i wrote a program that automatially deletes http(/s)://(/www.) from any thing it finds in the clipboard.

now i want it to delete the 'page' specifiation (the ending) of the URL leaving only the whole site URL.

    my first guess is to 
############################################################################
    (a) put the value of the variable set to clipget() into an array of single characters 
        ###    here is my question: #### how do i do that?   ###;
############################################################################
    (b) point to the third backslash in the string ;
    (c) set the value to null;
    (d) move to the next argument and do the same;
    (e) repeat until end of array;
    (f) write the values of the array to a variable
    (g) clipput() the string
    (h) exit 
i'm new to autoit.

how do i load a variable containing the arguements of clipget() into an array?

many thanks in advance

this is what i have until now:

i.stack.imgur.com/gJMYo.png

Click2Trim.au3

Edited December 16, 2019 by muchki

[TheSaint]

@muchki - Welcome to the forum.

This seems to be a question you are asking, and you are likely to get it noticed more (and more responses) if you post in the General Help forum section.

I recommend you use the Report post option (top right) to ask a MOD to move it to that forum.

[JLogan3o13]

Moved to the appropriate forum, as the AutoIt Example Scripts forum very clearly states:

Quote

Share your cool AutoIt scripts, UDFs and applications with others.

---

Do not post general support questions here, instead use the AutoIt Help and Support forums.

Moderation Team

[Musashi]

On 12/16/2019 at 8:47 PM, muchki said:

i wrote a program that automatially deletes http(/s)://(/www.) from anything it finds in the clipboard. Now i want it to delete the 'page' specifiation (the ending) of the URL leaving only the whole site URL.

$sURLFull can contain one, but also multiple URLs. Set this variable with ClipGet. Result : an array with 1..n matches or error.

; from : https://www.autoitscript.com/forum/topic/190236-replace-url-and-split/
#include <StringConstants.au3>
#include <Array.au3>

Local $sURLFull, $sPattern, $aArray
$sURLFull = "Text with different URL's im e.g. https://www.autoitscript.com/forum/topic/169097-forum-rules/" & @CRLF & _
            " or another one https://autoit.de/wcf/forenregeln/" & @CRLF & _
            " and www.autoit.de/subdir/"

$sPattern = "(?m)(?:https?:\/\/)?(?:www\.)?((?:[a-zA-Z\x{00a1}-\x{ffff}0-9.\-])+(?:\.[a-zA-Z]{2,63}))"
$aArray = StringRegExp($sURLFull, $sPattern, $STR_REGEXPARRAYGLOBALMATCH )
If @error Then
    ConsoleWrite ("! >>> Error : " & @error & @CRLF)
Else
    _ArrayDisplay($aArray)
EndIf

 

Edited December 22, 2019 by Musashi
added @error check

[Nine]

Here one regexp way :

#include <Constants.au3>
#include <GUIConstants.au3>

Opt ("MustDeclareVars", 1)

Const $aURL[] = ["http://autoitscript.com/blablabla", _
  "https://autoitscript.com/blablabla", _
  "http://www.autoitscript.com/blablabla", _
  "https://www.autoitscript.com/blablabla"]

For $i = 0 To UBound($aURL)-1
  ConsoleWrite (StringRegExp($aURL[$i],"(?i)https?:\/\/(?:www.|)(.+?)\/",$STR_REGEXPARRAYMATCH)[0] & @CRLF)
Next

But to answer your question in (a), check StringSplit ($sString, "") will create an array of single characters

Edited December 22, 2019 by Nine