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

• #48121 Fferi50 Topikgazda karlkani #48119

  Új Válasz 2021-12-27 11:04:58 #48121

  Ú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

  

  Fferi50

  Topikgazda

  válasz karlkani #48119 üzenetére

  Szia!
  A módosított makró:
  Sub modosit()
Dim a As String, cl As Range
For Each cl In ActiveSheet.UsedRange.Columns("A").Cells 'az A helyére írd az adataid oszlopát
    If InStr(cl.Value, "/") > 0 Then
       a = cl.Text
       a = Left(a, InStrRev(a, "/")) & "valami_" & Mid(a, InStrRev(a, "/") + 1) ' a valami_ legyen idézőjelek között
       a=replace(a,".","_valami2.")
       cl.Value = a
    End If
Next
End Sub
Üdv.

• #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