Új hozzászólás Aktív témák

• #47692 Fire/SOUL/CD félisten karlkani #47691

  Új Válasz 2021-11-07 08:58:58 #47692

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz karlkani #47691 üzenetére

  Module1-be kerülő kód

  'Fire/SOUL/CD - 2021

Option Explicit

Public Function URLConverter(SourceURL As String) As String

Const SLASH = "/"
Dim MyStrArray() As String

MyStrArray = Split(SourceURL, SLASH)

URLConverter = ("https://www.filmorias.com/ugras-a-videohoz/" & _
MyStrArray(11) & SLASH & _
MyStrArray(12) & SLASH _
)

End Function

  Eredmény

  Ha esetleg hiperlinkként szeretnéd visszakapni, akkor az A1 cellába így használd:
  =HIPERHIVATKOZÁS( URLConverter(A3))

  Természetesen, ha a forrás URL formátuma megváltozik, akkor már nem fog működni a függvény rendesen...

Új hozzászólás Aktív témák