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

• #48120 Fire/SOUL/CD félisten karlkani #48119

  Új Válasz 2021-12-27 11:03:12 #48120

  Ú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 #48119 üzenetére

  Ha jól értelmeztem, akkor
  ebből:
  1*file*https://abcdefg.com/abc/123456789/123456789.m3u8

  legyen ez
  1*file*https://abcdefg.com/abc/123456789/valami1/123456789_valami2.m3u8

  Ezen sorokat meg hagyja békén
  1*title*1. lista címe

  Ha igen, jól értettem, akkor Module1-be

  'Fire/SOUL/CD - 2021

Option Explicit

Public Function Fire_Replace(ByVal SourceURL As String) As String

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

MyStrArray = Split(SourceURL, SLASH)
If WorksheetFunction.CountA(MyStrArray) > 1 Then

Fire_Replace = MyStrArray(0) & SLASH & _
MyStrArray(1) & SLASH & _
MyStrArray(2) & SLASH & _
MyStrArray(3) & SLASH & _
MyStrArray(4) & SLASH & _
"valami1" & SLASH & _
Replace(MyStrArray(5), DOT, "_valami2.")

Else: Fire_Replace = MyStrArray(0)

End If

End Function

  Használata függvényként

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