Обрезать ссылку после 4го знака "/" drek.xbntk

[Soderling]

Здравствуйте. Помогите с регуляркой

нужно обрезать https://t.me/aaa/bbb до вида
...https://t.me/aaa...
точки поставил что бы текст нормально отобразился, иначе иконка телеги появляется. Точек не должно быть)

 

[Norm]

Local $sString = "https://t.me/aaa/bbb/htlikj/lkjkl"
Local $sResult = StringRegExpReplace($sString, "(https?://[^/]+/[^/]+).*", "$1")
MsgBox(0, "Result", $sResult)

 

[joiner]

StringTrimRight('https://t.me/aaa/bbb', 4)

 

[Norm]

Не думаю, что строка выглядит именно так

 

[joiner]

Точно, ошибся

 

[Alecsis]

А может, проще так? Если, конечно , нужно ловить именно 4-е вхождение «/»

Local $sInput = 'https://t.me/aaa/bbb'
Local $iPos = StringInstr($sInput, 1, 4)
Local $sResult
$sResult = ($iPos > 0) ?  StringLeft($sInput, $iPos-1) : $sInput

 

[Norm]

Выглядит не очень-то проще и ошибка там ещё.
А как быть, если не https: , а http:

 

[Alecsis]

Выглядит не очень-то проще и ошибка там ещё.
А как быть, если не https: , а http:

Sorry, действительно косяк

Local $sInput, $iPos, $sResult, $iOccurrence
$iOccurrence = 4
;
$sInput = 'https://t.me/aaa/bbb'
$iPos = StringInstr($sInput, '/', 1, $iOccurrence)
$sResult = ($iPos > 0) ?  StringLeft($sInput, $iPos-1) : $sInput
ConsoleWrite('Рез-т обрезания #1 =' & $sResult & @CRLF)
;
$sInput = 'http://t.me/aaa/bbb'
$iPos = StringInstr($sInput, '/', 1, $iOccurrence)
$sResult = ($iPos > 0) ?  StringLeft($sInput, $iPos-1) : $sInput
ConsoleWrite('Рез-т обрезания #2 =' & $sResult & @CRLF)

>"C:\DevTools\AutoIt3\SciTE\..\AutoIt3.exe"       /ErrorStdOut "d:\Alecsis\Prog\AutoIt\_Debug\xxx.au3"     
Рез-т обрезания #1 =https://t.me/aaa
Рез-т обрезания #2 =http://t.me/aaa
>Exit code: 0    Time: 0.0542

 

[Norm]

Вы правы в том, что в Вашем примере не нужно думать над паттерном для регулярки, в этом и заключается простота.
Но опять же Ternary, тоже не все начинающие знают. Поэтому ещё проще для понимания, было бы так:

$iPos = StringInstr($sInput, "/", 0, 4)
If $iPos Then
     $sResult = StringLeft($sInput, $iPos-1)
Else
     $sResult = $sInput
EndIf

Но по простоте кода, это будет проще.

$sResult = StringRegExpReplace($sString, "(https?://[^/]+/[^/]+).*", "$1")

 

[Alecsis]

[…] Но опять же Ternary, тоже не все начинающие знают.

Но по простоте кода, это будет проще.

$sResult = StringRegExpReplace($sString, "(https?://[^/]+/[^/]+).*", "$1")

Imho, простота кода и простота понимания = несколько разные вещи. Насчёт Ternary согласен (лень было городить if/then/else), а вот регулярка для начинающих — вообще адский мутант-вуглускр… Собсс-но, тут можно навертеть ещё кучу вариантов, однако ж главное, что вопрос ТСа решён.

 

[Soderling]

Огромное спасибо все!!!!!