Могли бы приложить файл с примером и абстрактными ссылкам. Короче, могу предложить такую UDF [vba]
Код
Function TT(S As String) As String Dim arr: arr = Split(Application.WorksheetFunction.Trim(S)) Dim s1 As String For i = 0 To UBound(arr) arr(i) = Right(arr(i), Len(arr(i)) - InStrRev(arr(i), "/")) Next i TT = Join(arr, "|") End Function
[/vba]
Могли бы приложить файл с примером и абстрактными ссылкам. Короче, могу предложить такую UDF [vba]
Код
Function TT(S As String) As String Dim arr: arr = Split(Application.WorksheetFunction.Trim(S)) Dim s1 As String For i = 0 To UBound(arr) arr(i) = Right(arr(i), Len(arr(i)) - InStrRev(arr(i), "/")) Next i TT = Join(arr, "|") End Function
[s]Ctrl+H--найти--*/ (звездочка и косая) --заменить--|(прямая). Мне кажется должно сработать. Глупость написал, не верьте не сработает. Если только адрес папки менять http://feed.p5s.ru/images/big/1/ на |
[s]Ctrl+H--найти--*/ (звездочка и косая) --заменить--|(прямая). Мне кажется должно сработать. Глупость написал, не верьте не сработает. Если только адрес папки менять http://feed.p5s.ru/images/big/1/ на |gling
ЯД-41001506838083
Сообщение отредактировал gling - Вторник, 14.07.2015, 21:07