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

• #48126 Fire/SOUL/CD félisten karlkani #48125

  Új Válasz 2021-12-27 12:33:37 #48126

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

  Ok, akkor amennyire lehet "bolondbiztossá" tettem a kódot...(ne vedd magadra)
  Az elején a 2 konstanst kell csak módosítani, nem kell bele se alulvonás, se pont se semmi, csak tiszta szöveg legyen.

  'Fire/SOUL/CD - 2021

Option Explicit

Public Function Fire_Replace(ByVal SourceURL As String) As String

Const SLASH = "/"
Const DOT = "."
Const UNDERSCORE = "_"

'Itt add meg a VALAMI1 és VALAMI2 értékét... :))
'(nem kell alulvonás, se pont, se más, csak szöveg)
Const SOMETHING_1 = "VALAMI1 SZÖVEGE"
Const SOMETHING_2 = "VALAMI2 SZÖVEGE"

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 & _
SOMETHING_1 & SLASH & _
Replace(MyStrArray(5), DOT, UNDERSCORE + SOMETHING_2 + DOT)

Else: Fire_Replace = MyStrArray(0)

End If

End Function

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