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
 
Tájékoztatások, Leírások
 
Egy Kedves Látogató munkái, feltöltései
 
Óra
 
Naptár
2017. Szeptember
HKSCPSV
28
29
30
31
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
01
<<   >>
 
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 Dallas régi szériájának letöltött file-jainak átnevezésére 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/5608981/Dallas_-_Filenevek_atnevezesehez.rar

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


Butterfly-Wings - Egy18 éves lány blogja; érdekes cikkekkel, videókkal, véleményekkel várja a látogatókat. ^-^    *****    Tokio Hotel FANFICTION | Tokio Hotel véleményblog | Tokio Hotel FANFICTION fordítások | Tokio Hotel Fanfiction | TH blog    *****    A karma és az asztrológia kapcsolata    *****    Engedd meg, hogy horoszkópod elkészítésével szabad választásodban segítségedre lehessek. Várlak a csillagjövõ oldalon!!!    *****    &#9835; Vár Téged is az egyetlen magyar nyelvû, megbízható Zara Larssonnal foglalkozó forrás! &#9835; ZL Hungary &#9835; ZL Magyarország &#9835;    *****    WISE-VOGUE | MERT A DIVATBAN IS LEHETSZ BÖLCS! - ÚJ BLOG TERMÉKTESZTEKKEL, TIPPEKKEL, ÖTLETEKKEL A MINDENNAPOKRA    *****    Nettó Bruttó Bérkalkulátor 2018    *****    A HUN Tv kezet nyújt, Asztrológiai elõadásom az Élet Magazin mûsorában.    *****    INGYEN letölthetõ OSHO könyvek, ezoterikus olvasmányok, Asztrológia: tanácsadás, oktatás.    *****    ***Munkatársakat keresek kezdetben mellékjövedelemként / Napi 1-2 óra munkával, majd késõbb akár fõállásban is!***    *****    Ingyenes tanácsadás,rendeld meg a tetszésed szerinti elemzést és minden kérdésedre választ adok.Részletek az oldalon!    *****    Születési,baba,hold horoszkóp,elõrejelzés,párkapcsolati elemzés,fogamzási képlet! Ingyenes tanácsadás!Várlak!Kattints!    *****    Csillagászati ismeretek kézdõk és haladók részére. INGYENES ASZTRO-suli minden tanulni vágyónak!    *****    ** Portálépítés - G-Portál & HTML & CSS & Wordpress segítségek, kódok, sablonok, egyedi scriptek **    *****    ASHLEY TISDALE! Újra megnyitott az oldal! ASHLEY TISDALE! Újra megnyitott az oldal! ASHLEY TISDALE! ASHLEY TISDALE!    *****    CSILLAGKÉPEK - a fokok szimbólumai    *****    SELENA GOMEZ MAGYARORSZÁG - 6 ÉVE ONLINE - SELENA GOMEZ MAGYARORSZÁG - 6 ÉVE ONLINE - SELENA GOMEZ MAGYARORSZÁG    *****    JENNIFER LAWRENCE MAGYARORSZÁG JENNIFER LAWRENCE MAGYARORSZÁG JENNIFER LAWRENCE MAGYARORSZÁG JENNIFER LAWRENCE    *****    Minimálbér, garantált bérminimum és szakmai minimálbér 2018 évben - 4 és 6 órás részmunkaidõs foglalkoztatás bére!    *****    Minimálbér, garantált bérminimum és szakmai minimálbér 2018 évben - 4 és 6 órás részmunkaidõs foglalkoztatás bére!