Filmek ill. Telenovella- és filmsorozatok letöltése
Navigátor
 
Bejelentkezés
Felhasználónév:

Jelszó:
SúgóSúgó
Regisztráció
Elfelejtettem a jelszót
 
Összefoglaló tartalmak
 
Tájékoztatások, Leírások
 
Óra
 
Naptár
2024. Március
HKSCPSV
26
27
28
29
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
01
02
03
04
05
06
<<   >>
 
Hasonló tartalmú oldalak
 
Számláló
Indulás: 2012-04-02
 
A Fejléc - Csak a bal oldal szélessége beállítása miatt
 
Filenevek átnevezése

Letöltött filenevek átnevezése


A data.hu-ról (de más szerverről is) letöltött filenevek ékezet nélküli karaktereket tartalmazhat. Ha át szeretnéd nevezni a file-okat ékezetesekre (vagy tetszés szerintire), megteheted egyesével is, de az alábbi EXCEL-Macro futtatásával is.

Ha a filenév egy sorszámot is tartalmaz, akkor egy FOR-ciklusba helyezhető, és S1-től S2-ig átnevezi egy adott mappában a sorszámozott és a megfelelő szerkezetű fileneveket. A lenti Macro a "File" nevű munkalapon dolgozik.

Sub FileÁtnevezés()

'   A filenevek átnevezése a PAT$ nevű mappában történik.
'   A régi név szerkezete: FR$="\..RNE$..\xxx\..RNV$..\"+KIT$
'   Az új  név szerkezete: FU$="\..UNE$..\xxx\..UNV$..\"+KIT$

    Sheets("File").Select: Cells("B16").Select: ii = 0

    PAT$ = "F:\SOROZATOK\A szerelem nevében": ChDir (PAT$)' Az aktuális útvonal, meghajtóval.
    RNE$ = "A_szerelem_neveben_": RNV$ = "":    ' " by Ani001":  ' "":  ' = ".tvrip"
    UNE$ = "A szerelem nevében ": UNV$ = "":    ' " bármilyen":  ' ""
    KIT$ = ".avi":              ' Ez a file kiterjesztése vagy típusa
    S1 = 1: S2 = 170: SS = 3:   ' Az SS - A számjegyek darabszáma, az 'xxx' helyén.
   
    Cells(256 * 5 + 3).Value = PAT$
    Cells(256 * 5 + 6).Value = SS: Cells(256 * 7 + 6).Value = S1: Cells(256 * 9 + 6).Value = S2
    S$ = "'" + Right$("00" + Right$(Str$(S1), Len(Str$(S1)) - 1), SS): Cells(256 * 7 + 7).Value = S$
    S$ = "'" + Right$("00" + Right$(Str$(S2), Len(Str$(S2)) - 1), SS): Cells(256 * 9 + 7).Value = S$
   
    For i = S1 To S2: ii = ii + 1
        S$ = Right$("00" + Right$(Str$(i), Len(Str$(i)) - 1), SS): Cells(256 * 7 + 1).Value = i
        FR$ = PAT$ + "\" + RNE$ + S$ + RNV$ + KIT$: Cells(256 * 7 + 3).Value = FR$
        FU$ = PAT$ + "\" + UNE$ + S$ + UNV$ + KIT$: Cells(256 * 9 + 3).Value = FU$
        Name FR$ As FU$:   '  Ez a filenév átnevező utasítás.
    Next i
    Cells(12 * 256 + 2).Value = ii: Cells(12 * 256 + 3).Value = "db file átnevezve."

End Sub


Magyarázó szövegek. 
A feltételnül beírandó macro-program. Az egész bemásolható.
Elhagyható adatkezelések. Ekkor nem használja a munkalapot.




Feltöltőknek ajánlott filenév-átnevezések

A data.hu egy ideje a feltöltött file-ok neveiből a magyar ékezetes karaktereket nem helyettesíti a neki megfelelő "ékezetlenekkel", hanem egyszerűen kiveszi. Így a feltölött filenevek értelmezése bizonyos esetekben bizonytalan. Akiket érdekel, azoknak ajánlok erre egy megoldást.

Az adott mappában lévő fileneveket a Total Commander segítségével egy szöveges file-ba íratjuk. A TC-t az adott mappára állítjuk és kijelöltetjük az összes file-t, majd a vágólapra másoltatjuk. (Mindkét funkció a 'Kijelölés' menüpontban van.) Majd az adott mappában létrehozunk egy szöveges file-t (pl.:) "Filenevek listája" névvel. Ebbe bemásoljuk a vágólap tartalmát. Ezt a listát módosíthatjuk, törölhetünk belőle sorokat, de ekkor az általunk, a listából törölt file-okat nem fogja átnevezni. A lista első sorába beszúrással beírjuk a sorok (filenevek) számát. (Ez elhagyható, de akkor az értékét be kell írni a macroba, az SS változó helyére, és az SS változó olvasását és írását el kell hagyni!) A macro futtatásakor létrehoz egy másik file-t, amelyben az ékezetmentes filenevek lesznek.
[Korábban ilyen volt a data.hu filenév-átalakítása.]

Feltöltés után visszaállítható az eredeti, ékezetes karaktereket is tartalmazó filenevek a másik macro futtatásával.
 

Az EXCEL-Macro programlistái az alábbiak:


Sub Ékezetmentesítés()

    Sheets("File").Select: PAT$ = "F:\SOROZATOK\Twin Peaks": ChDir (PAT$): ' A teljes útvonal!
    FF$ = "Twin Peaks ": Cells(256 * 16 + 3).Value = PAT$ + "\" + FF$
    Cells(256 * 17 + 3).Value = ""

'   Az FF$ a filenévből elhagyható, az megkülönböztetésre szolgál, ha több is van egy helyen.

'   Megnyitja az első file-t olvasásra, a másikat írásra.
    Open PAT$ + "\" + FF$ + "Filenevek listája.txt" For Input Access Read As 1
    Open PAT$ + "\" + FF$ + "Filenevek ékezetmentesen.txt" For Output Access Write As 2
    Input #1, SS: Print #2, SS: ii = 0:  '   Az elsőből olvassa, a másikba írja a darabszámot.

    For i = 1 To SS
        Input #1, AA$: UU$ = AA$
        While Right$(AA$, 4) <> ".avi":  '   Addig olvas amíg az .avi részt nem találja.
'           Itt most csak .avi típusú file-ok vannak, de típusok felsorolhatók.  

            Input #1, AA$: UU$ = UU$ + ", " + AA$ 
(**) A vessző után szóköz van!
        Wend
        RR$ = UU$: HH = Len(UU$)
        For j = 1 To HH - 4
            X = 0: A$ = Mid$(UU$, j, 1)
            If A$ = "á" Then X = 1: B$ = "a":  '   Az alábbi helyettesítés egyértelmű.
            If A$ = "é" Then X = 1: B$ = "e"
            If A$ = "í" Then X = 1: B$ = "i"
            If A$ = "ó" Or A$ = "ö" Or A$ = "ő" Then X = 1: B$ = "o"
            If A$ = "ú" Or A$ = "ü" Or A$ = "ű" Then X = 1: B$ = "u"
            If A$ = "Á" Then X = 1: B$ = "A"
            If A$ = "É" Then X = 1: B$ = "E"
            If A$ = "Í" Then X = 1: B$ = "I"
            If A$ = "Ó" Or A$ = "Ö" Or A$ = "Ő" Then X = 1: B$ = "O"
            If A$ = "Ú" Or A$ = "Ü" Or A$ = "Ű" Then X = 1: B$ = "U"
            If X = 1 Then Mid$(UU$, j, 1) = B$:  '   Az adott helyen kicseréli a karaktert.
        Next j
        Print #2, UU$:  '   A másik file-ba beírja a módosított filenevet, feltétel nélkül.
        RR$ = PAT$ + "\" + RR$: UU$ = PAT$ + "\" + UU$:  '  Az útvonalat a filenév elé írja.
        If RR$ <> UU$ Then:  '   Ha volt csere, akkor végrehajtja az átnevezést.
            ii = ii + 1: Name RR$ As UU$:   '  Ez a filenév átnevező utasítás.
        End If
    Next i

    Cells(19 * 256 + 2).Value = ii: Cells(12 * 256 + 3).Value = "db file átnevezve, az ékezetes betűk ékezetmentesítésével."
   
    Close 1: Close 2
   
End Sub


(**) Következetesen kell alkalmazni az eredeti filenév írásánál a 'vessző' utáni azonos számú szóközt.


(**) Ha az eredeti filenév 'vessző(ke)t' is tartalmaz, akkor következetesnek kell lenni abban, hogy a 'vessző' után mindig azonos számú szóköz (SPACE) legyen. A nulla is egy szám, ha nulla, akkor nincs szóköz. A 'vessző' a file olvasáskor azt jelenti, hogy az adott beolvasást nem a sor végéig kell olvasnia, hanem a 'vesszőt' megelőző karakterig. A filenév így darabolódna és helytelen filenév kerülne kiolvasásra. Ezekben az esetekben mesterségesen fel kell építeni az eredeti filenevet.

================================================================================================


Sub Ékezetvisszaállítás()

    Sheets("File").Select: PAT$ = "F:\SOROZATOK\Twin Peaks": ChDir (PAT$): ' A teljes útvonal!
    FF$ = "Twin Peaks ": Cells(256 * 17 + 3).Value = PAT$ + "\" + FF$
'   Az FF$ a filenévből elhagyható, az megkülönböztetésre szolgál, ha több is van egy helyen.
'   Mindkét file-t olvasásra nyitja meg.
    Open PAT$ + "\" + FF$ + "Filenevek listája.txt" For Input Access Read As 1
    Open PAT$ + "\" +
FF$ + "Filenevek ékezetmentesen.txt" For Input Access Read As 2
    Input #1, SS: Input #2, SS: ii = 0:  '   Mindkettőből kiolvassa a darabszámot.
   
    For i = 1 To SS: EE$ = "": MM$ = ""
        Input #1, AA$: EE$ = AA$:  '   Az eredeti fileneveket olvassa be.

        While Right$(AA$, 4) <> ".avi"
            Input #1, AA$: EE$ = EE$ + ", " + AA$  (**) A vessző után szóköz van!
        Wend
        Input #2, BB$: MM$ = BB$:  '   A módosított fileneveket olvassa be.
        While Right$(BB$, 4) <> ".avi"
            Input #2, BB$: MM$ = MM$ + ", " + BB$  (**) A vessző után szóköz van!
        Wend
        MM$ = PAT$ + "\" + MM$: EE$ = PAT$ + "\" + EE$:  '  Az útvonalat a filenév elé írja.
        If MM$ <> EE$ Then:  '   Ha volt csere, akkor végrehajtja a visszanevezést.
            ii = ii + 1: Name MM$ As EE$:   '  Ez a filenév (át/vissza)nevező utasítás.
        End If
    Next i

    Cells(19 * 256 + 2).Value = ii: Cells(12 * 256 + 3).Value = "db file átnevezve, az ékezetes betűk visszaállításával."
   
    Close 1: Close 2
   
End Sub



Az EXCEL használatának megtanítására nem vállalkozom, de...

A megyarázatokon túl mellékelek egy EXCEL-file-t, amelyben a fenti három macro is megtalálható, az Alt-F8 billentyűvel kiválasztható egy macro, majd a 'Szerkesztés' gombra kattintva előjön a VBA szerkesztő felület.

A file linkje:   http://data.hu/get/5450461/Filenevek.xls

A Melrose Place sorozatának letöltött file-jainak átnevezésére is külön EXCEL-állományt tettem fel. A RAR-file tartalmazza az átnevezéshez szükséges két adatfile-t. Itt is rövid megjegyzések vannak a MACRO magyarázatánál.

 A file linkje:   http://data.hu/get/5647011/Melrose_Place_-_Filenevek_atnevezesehez.rar 

 

 

 

Filmek, Filmsorozatok és Telenovella sorozatok letöltése


Szeretnél egy jó receptet? Látogass el oldalamra, szeretettel várlak!    *****    Minõségi Homlokzati Hõszigetelés. Vállaljuk családi házak, lakások, nyaralók és egyéb épületek homlokzati szigetelését.    *****    Amway termék elérhetõ áron!Tudta, hogy az általános tisztítószer akár 333 felmosásra is alkalmas?Több info a weboldalon    *****    Florence Pugh magyar rajongói oldal. Ismerd meg és kövesd az angol színésznõ karrierj&#232;t!    *****    Fele királyságomat nektek adom, hisz csak rátok vár ez a mesebirodalom! - Új menüpont a Mesetárban! Nézz be te is!    *****    DMT Trip napló, versek, történetek, absztrakt agymenés:)    *****    Elindult a Játék határok nélkül blog! Részletes információ az összes adásról, melyben a magyarok játszottak + egyéb infó    *****    Florence Pugh Hungary - Ismerd meg az Oppenheimer és a Dûne 2. sztárját.    *****    Megnyílt az F-Zero Hungary! Ismerd meg a Nintendo legdinamikusabb versenyjáték-sorozatát! Folyamatosan bõvülõ tartalom.    *****    A Cheer Danshi!! nem futott nagyot, mégis érdemes egy esélyt adni neki. Olvass róla az Anime Odyssey blogban!    *****    A 1080° Avalanche egy méltatlanul figyelmen kívül hagyott játék, pedig a Nintendo egyik remekmûve. Olvass róla!    *****    Gundel Takács Gábor egy különleges könyvet adott ki, ahol kiváló sportolókkal a sport mélységébe nyerhetünk betekintést.    *****    21 napos életmódváltás program csatlakozz hozzánk még!Január 28-ig 10% kedvezménnyel plusz ajándékkal tudod megvásárolni    *****    Szeretne egy olyan általános tisztítószert ami 333 felmosásra is elegendõ? Szeretne ha csíkmentes lenne? Részletek itt!!    *****    Új játék érkezett a Mesetárba! Elõ a papírral, ollóval, és gyertek barkácsolni!    *****    Tisztítószerek a legjobb áron! Hatékonyság felsõfoka! 333 felmosásra elengedõ általános tisztítószer! Vásároljon még ma!    *****    Hayashibara Megumi és Okui Masami rajongói oldal! Albumok, dalszövegek, és sok más. Folyamatosan frissülõ tartalom.    *****    A legfrissebb hírek a Super Mario világából és a legteljesebb adatbázis a Mario játékokról.Folyamatosan bõvülõ tartalom.    *****    333 Felmosásra elegendõ! Szeretne gazdaságosan felmosni? Szeretne kiváló általános tisztítószert? Kiváló tisztítószerek!    *****    Ha tél, akkor téli sportok! De akár videojáték formájában is játszhatjuk õket. A 1080°Snowboarding egy kiváló példa erre