extract only a .csv name file from url string

[sal21]

See in txt attached

for example:

ANPR_archivio_comuni.csv
comuni.csv
cap.csv
comuni_codici-catastali.csv
stemmi.csv

tks

[snb]

Adapt the path:

Code: Select all

Sub M_snb()
   msgbox join(filter(split(replace(createobject("scripting.filesystemobject").opentextfile("G:\OF\nomefilecsv.txt).readall,vbcrlf,"/"),"/"),".csv"),vblf)
End Sub

[HansV]

If you prefer a loop:

Code: Select all

Sub Test()
    Dim f As Integer
    Dim all As String
    Dim lines() As String
    Dim i As Long
    Dim parts() As String
    Dim url As String
    f = FreeFile
    Open "C:\Test\nomefilecsv.txt" For Input As #f
    all = Input(LOF(f), f)
    Close #f
    lines = Split(all, vbCrLf)
    For i = 0 To UBound(lines)
        parts = Split(lines(i), "/")
        url = parts(UBound(parts))
        Debug.Print url
    Next i
End Sub

[sal21]

If you prefer a loop:

Code: Select all

Sub Test()
    Dim f As Integer
    Dim all As String
    Dim lines() As String
    Dim i As Long
    Dim parts() As String
    Dim url As String
    f = FreeFile
    Open "C:\Test\nomefilecsv.txt" For Input As #f
    all = Input(LOF(f), f)
    Close #f
    lines = Split(all, vbCrLf)
    For i = 0 To UBound(lines)
        parts = Split(lines(i), "/")
        url = parts(UBound(parts))
        Debug.Print url
    Next i
End Sub

as usual you read my mind!

work perfect!
Tks bro