Telefonszámunk: 1-472-0679

[Resolved] képfájlok neveinek kiemelése váltakozó hosszúságú szakaszból

Kezdőlap Fórumok Excel témák [Resolved] képfájlok neveinek kiemelése váltakozó hosszúságú szakaszból

Topic Resolution: Resolved

Ennek a témakörnek tartalma 3 hozzászólás, 2 résztvevő. Utolsó frissítés:  horvimi 1 hónap telt el.

4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • #7363

    CsTomi
    Felhasználó

    Üdv Kedves Szakik,

    Van egy adott feladat ami meghaladja a képességeimet és ebben kérnék egy kis segítséget hogyan érdemes belekezdeni.
    Egy webáruház termékképeinek adatait kellene átalakítani egy exporthoz megfelelő formátummá.
    A kép fájlok nevei egy adott elérési úttal szerepelnek váltakozó hosszúságban.
    A céloszlopból kellene kinyerni a képek fájlneveit úgy hogy ahol több van azt egy | karakterrel válassza el a cellán belül. A képfájlok elérési útja és annak hossza változó. Képlettel kellene ezt a folyamatot automatizálnom.

    Bemenet:
    /img/p/1/0/0/5/1005.jpg
    /img/p/1/0/1/8/1018.jpg|/img/p/1/0/10.jpg|/img/p/2/0/1/201.jpg
    /img/p/1/5/5/155.jpg|/img/p/6/9/8/698.jpg
    /img/p/1/1.jpg|/img/p/1/2/12.jpg|/img/p/1/2/3/123.jpg|/img/p/1/2/3/4/1234.jpg

    Célformátum:
    1005.jpg
    1018.jpg|10.jpg|201.jpg
    155.jpg|698.jpg
    1.jpg|12.jpg|123.jpg|1234.jpg

    Mellékeltem egy táblázatot is példaként. (Office2016)

    Előre is köszönöm az ötleteket…

    Üdv, Tamás

    • A témakör módosításra került: 1 hónap telt el- CsTomi.
    • A témakör módosításra került: 1 hónap telt el- CsTomi.
    • A témakör módosításra került: 1 hónap telt el- horvimi.
    Attachments:
    You must be logged in to view attached files.
    #7367

    horvimi
    Adminisztrátor

    Szia!

    Függvényes megoldást nem sikerült kitalálnom hozzá, így maradt a makró.
    Volt hozzá kedvem,és ötletem is úgyhogy gyorsan összedobtam neked.

    Az eredeti szöveget szétdobja egy tömbbe a “|” jel mentén, minden elemben megkeresi az utolsó slash utáni szöveget és csak az marad benne, végül összeilleszti “|” jellel elválasztva. Elég egyszerű

    Function getmultiplefilenames(text As String) As String
    Dim arr() As String
    Dim last_slash_pos As Long
    Dim i As Integer
    Dim res As String
    
        arr = Split(text, "|")
        For i = 0 To UBound(arr)
            last_slash_pos = InStrRev(arr(i), "/")
            arr(i) = Mid(arr(i), last_slash_pos + 1, 99)
        Next i
        res = Join(arr, "|")
        getmultiplefilenames = res
    End Function

    UDF-ként is használható, így töltöm vissza, az eredmény oszlopban ott vannak a képnevek ahogy szeretted volna.

    Imre

    Attachments:
    You must be logged in to view attached files.
    #7369

    CsTomi
    Felhasználó

    Köszönöm szépen!

    Kipróbáltam és tökéletesen működik.
    Egyszerűen zseniális.
    Eddig nem mélyedtem bele a makrók világába mert tartottam tőle, de most konkrétan kedvet kaptam a makrókkal való ismerkedéshez, kísérletezéshez. 😀

    Rengeteg fejtőréstől mentettél meg.

    Köszönet érte!

    Üdv, Tamás

    #7371

    horvimi
    Adminisztrátor

    Örülök, hogy segített.
    Mondjuk ez nem kezdő szintű makró.
    Rövid ugyan, de kell hozzá programozói ismeret, tapasztalat, és persze VBA ismeret is, hogy itt hogy kell ezt megcsinálni.

    Ha el akarod kezdeni, indulásnak ez tökéletes lehet:
    https://videotanfolyam.pentaschool.hu/courses/excel-automatizalas-makrok-alapjai

    Imre

4 bejegyzés megtekintése - 1-4 / 4

Be kell jelentkezni a hozzászóláshoz.