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
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: 3 years, 8 months telt el-CsTomi.
      • A témakör módosításra került: 3 years, 8 months telt el-CsTomi.
      • A témakör módosításra került: 3 years, 8 months 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.