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
 
Egy Kedves Látogató munkái, feltöltései
 
Óra
 
Naptár
2018. December
HKSCPSV
26
27
28
29
30
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
<<   >>
 
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


STAR STABLE ONLINE BLOG - Kattints ha te is játszol a játékkal, vagy csak érdekel :) Puszi Daisy    *****    ANEZKABLOG megnyitotta kapuit, ahol a valódi, õszinte életét, véleményét olvashatjátok el!    *****    Duguláselhárítás Debrecen    *****    Visszaszámlálás indul! A popzene 2018-as évét foglaljuk össze. Dalok, albumok, videoklipek.    *****    STAR STABLE ONLINE - R A J O N G Ó I O L D A L - Daisy Doveer - STAR STABLE ONLINE    *****    Aranysárkányok korának 617-edik esztendejében...    *****    If this is the end in fire we should burn together    *****    Keresett karakterek // Szerepjáték // Csatlakozz // Varázslat és Sárkányvér // Aneliath    *****    snowflakes in the wrong place    *****    &#9819; ANELIATH &#9737; varázslat és sárkányvér    *****    every monster was a (wo)man first    *****    Fedett lovardák,kör karámok, angol lovas bokszok, gép-takarmány tárolók gyártás,szerelését, építését vállaljuk!    *****    Meditációk az okkult életrõl    *****    SZÉP AJÁNDÉK EGY SZEMÉLYES HOROSZKÓP.SZEREZZ ÖRÖMET SZERETTEIDNEK KARÁCSONYRA,EGY SZEMÉLYISÉG ÉS SORS ANALÍZISSEL!VÁRLAK    *****    MINDIG SZÉP AJÁNDÉK EGY SZEMÉLYES HOROSZKÓP. Szerezz örömet SZERETTEIDNEK Karácsonyra egy tartalmas elemzéssel!    *****    A horoszkóp a lélek tükre, egyszer mindenkinek bele kell néznie. Tegyél egy próbát, én segítek az értelmezésben. Várlak!    *****    Rendelj szeretteidnek, asztrológiai elemzéseket, a 20-25 oldalas születési horoszkóp elõrejelzéssel,nagyon szép ajándék!    *****    Hamarosan, karácsony:rendelj, születési, elõrejelzési, párkapcsolati, fogamzási,hold horoszkópot, biotérképet ajándékba!    *****    szekelyhirdeto    *****    Te mit tennél, hogy a legnagyobb titkod, titok is maradjon?