reklama

reklama

Poslední příspěvky

Stran: 1 ... 8 9 [10]
91
Hledám software / Re:indexprint
« Poslední příspěvek od j kdy 20. 10. 2016, 18:07:19 »
Koukám stále nezodpovězeno i po 5 letech. Zrovna řeším podobný problém a nic nenacházím (našel jsem právě jen tuto pravěkou diskuzi) - všechny programy (včetně samotných windows počínaje snad už verzemi 9x) umí udělat náhledy na obrazovku, ale bez možnosti tisku, irfanview něco takového možná umělo, stálo by to za pokus, mě jeho výsledky kdysi neuspokojovaly.
Dospěl jsem ke skriptu v kancelářském programu microsoft word (neumím ale to samé udělat v libre office, tam ty skripty fungují jinak). Třeba se to někomu hodí.
Vlastně jsem něco podobného řešil už asi před 10 lety, v době, kdy jsem si pořídil první digitální fotoaparát. Zkoušel jsem jak generátor HTM tak právě skript ve vordu (pro HTM ale bylo  nutné zkonvertovat (zmenšit) obrázky, aby načítání netrvalo 2O let). Našel jsem výsledky (několik souborů s náhledy svých prvních fotek), ale skript jakoby se propadnul do země a než prohledávat 10 let staré soubory nebo zálohy, to jsem si říkal, že bude rychlejší napsat znovu, vždyť to není až tak složitý problém.
V té době jsem dospěl ke kompromisnímu počtu sedmi sloupců, při kterém jsou obrázky ještě dost "čitelné." V novém skriptu jsem nechal tento počet volitelný. Pět sloupců vede na dost velké obrázky, 10 sloupců udělá (na A4) obrázky velikosti poštovní známky na kterých je poznat les od moře. Pak jsem neměl dlouho čas si s tím hrát, takže tehdejší pokusy zapadly v prachu dějin.

Současnou podobu sktriptu, který ale ještě vyžaduje mnoho úprav, přikládám níže. Doplnil jsem jej o komentáře.
Raději bych to viděl v libreoffice, který mám na více počítačích (ten m$ mám jen na jednom, je moc drahý). Bohužel LO nemá ani dokumentaci makrojazyka ani záznam maker (ani další vymoženosti běžné ve vývojových prostředích) a makro přenesené z m$ v lo nefunguje (objekty a jejich metody existují asi pod jinými názvy a není možné zjistit pod jakými a tak většina příkazů z wordu nefunguje). Proměnné s diakritikou kupodivu LO nevadí.
K použití: Sktript je možné vložit do globální šablony nebo do libovolného dokumentu do libovolného modulu maker. Pro experimenty je nejlépe jej vložit do nového prázdného dokumentu. Konfigurace se děje pomocí proměnných, ovládací formulář vytvořím později, pokud vůbec. Nastavuje se počet sloupců (který určuje velikost miniatur) i počet řádků (který určuje jejich počet). Není (zatím) rozumně ošetřen konec, tedy musí být obrázků přinejmenším stejně jako řádkyxsloupce. Opačná situace není testovaná, ale pravděpodobně dojde k přerušení běhu buď na konci souboru nebo při pokusu načíst obrázek s prázdným řetězcem. Dále je nutné upravit jméno souboru se seznamem a počet znaků cesty, které se nemají kopírovat do popisku. Dále je možné měnit okraje a podobné drobnosti.



Sub FotPokW()
'
' FotPok Makro
' Makro zaznamenáno 18.10.2016, zaznamenal xxx
'
    psl = 10 'počet sloupců
    POC = 10 'počet řádků 'pozor není zatím ošetřen konec, obrázků musí být stejně nebo více, než řádků x sloupců
    Documents.Add DocumentType:=wdNewBlankDocument   'Nový dokument

    With ActiveDocument.PageSetup                    'Zmenšení výchozích okrajů, 1 cm je tak akorát, výchozí 1 palec je příliš
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
    End With
   
    'Vložení tabulky pro náhledy
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        psl, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
   
    'Tohle přidal Word při záznamu makra, myslím, že to je zbytečné, ale nechávám to
    With Selection.Tables(1)
        If .Style <> "Mřížka tabulky" Then
            .Style = "Mřížka tabulky"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
 
  'šířka miniatury = stránka zmenšená o okraje podělená počtem miniatur na řádce, navíc je ubraný milimetr jako korekce (možná by stačilo i půl, nula ale ne)
  š = (ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - ActiveDocument.PageSetup.RightMargin) / psl - MillimetersToPoints(1)
 
  'V této verzi jsem neřešil procházení adresáře/adresářů. Lze to we vordu udělat stylem jako ve starém pascalu (nerekurzivně).
  'Zde používám předem připravený seznam souborů, ve kterém je fullpath každé jednotlivé fotky na samostatném řádku (lze pohodlně vytvořit např v double commanderu nebo prostě dir *.jpg /s/b >seznobr.txt v příkazovém řádku windows)
  Open "X:\SeznObr.txt" For Input As #1  'zde nahraďte můj název seznamu mezi uvozovkami tím vaším
  potlacit=20     'kolik znaku z fullpath souboru oříznout
  For J = 1 To POC Step 1
   For I = 1 To psl Step 1
     Line Input #1, obr
     With Selection.Cells(1)
         .TopPadding = CentimetersToPoints(0)
         .BottomPadding = CentimetersToPoints(0)
         .LeftPadding = CentimetersToPoints(0)
         .RightPadding = CentimetersToPoints(0)
         .FitText = True
     End With
     With Selection.InlineShapes.AddPicture(obr)
          k = .Width
          l = .Height
          .Width = š  'tady by bylo lepší použít metodu proportional width; v době psaní jsem o ní nevěděl
          .Height = l / k * š
         
     End With
     Selection.Font.Size = 6 'aby se to tam vešlo
     Selection.TypeText Text:=Chr$(10) & Replace(Mid$(obr, potlacit), "\", Chr$(13))
     Selection.MoveRight Unit:=wdCharacter, Count:=1
   Next I
   Selection.MoveRight Unit:=wdCell, Count:=1
  Next J
  Close #1
End Sub


92
Operační systémy / nefunguje sd karta .surne
« Poslední příspěvek od carolitos888 kdy 12. 10. 2016, 12:53:35 »
kupil som fotoramik, kde bola sd karta naformatoval som ju v ramku ale notas ju vobec neberie a neviem stiahnut fotky s notbooku na kartu, prosim kto by vedela poradit? díííííík
93
Hardware / Re:flash disk je chráněn proti zápisu
« Poslední příspěvek od ZdenekC kdy 11. 10. 2016, 15:27:24 »
lis dis ani sel dis nefunguje, ale dostal jsem se tam přes diskpart.

C:\Windows\system32>lis dis
lis není názvem vnitřního ani vnějšího příkazu,
spustitelného programu nebo dávkového souboru.

C:\Windows\system32>sel dis 2
sel není názvem vnitřního ani vnějšího příkazu,
spustitelného programu nebo dávkového souboru.

C:\Windows\system32>diskpart

Microsoft DiskPart verze 6.1.7601
Copyright (C) 1999-2008 Microsoft Corporation.
V počítači: MIRONET

DISKPART> list disk

  Disk ###  Stav           Velikost Volné    Dyn  Gpt
  --------  -------------  -------- -------  ---  ---
  Disk 0    Online          931 GB  7168 KB
  Disk 1    Žádné médium       0 B      0 B
  Disk 2    Žádné médium       0 B      0 B
  Disk 3    Žádné médium       0 B      0 B
  Disk 4    Žádné médium       0 B      0 B
  Disk 5    Online         7659 MB      0 B

DISKPART> sel disk 5

Nyní je vybrán disk 5.

DISKPART> det dis

JetFlash Transcend 8GB USB Device
ID disku: 00000000
Typ   : USB
nStav : Online
Cesta   : 0
Cíl : 0
ID logické jednotky: 0
Cesta umístění : UNAVAILABLE
Aktuální stav jen pro čtení: Ano
Jen pro čtení: Ne
Spouštěcí disk: Ne
Disk stránkovacího souboru: Ne
Disk souboru režimu hibernace: Ne
Disk výpisu systému: Ne
Disk v clusteru: Ne

  Svazek ###  Ltr  Jmenovka     Fs     Typ         Velikost Stav       Info
  ----------  ---  -----------  -----  ----------  -------- ---------  --------
  Svazek 8     L                FAT32  Vyměniteln  7659 MB  V pořádku

DISKPART>
94
Hardware / Re:flash disk je chráněn proti zápisu
« Poslední příspěvek od Daniel Tengler kdy 07. 10. 2016, 09:19:47 »
Jde o to jak se používá a v jakém formátu je.


Otvřete okno příkazové řádky cmd.exe
napište:
lis dis
odentrujte a dále zapište
sel dis 2
2 = číslo flash disku, zadáte podle toho co uvidíte a poznáte podle velikosti
odentrujte a dále zapište
det dis
odentrujte


Nyní vidíte to, co zde nevidíme a nemůžeme přesně radit.
Udělejte PrintScreen obrazovky a nahrajte sem obrázek výsledku DET DIS.

95
Hardware / Re:flash disk je chráněn proti zápisu
« Poslední příspěvek od ZdenekC kdy 07. 10. 2016, 09:08:07 »
Ještě dodatek.
Vzhledem k ohromnému počtu lidí se stejným (a vlastně velmi specifickým) problémem mám pocit, že to není případ "odešlé" flashky. Není třebas možné, že by šlo o dosti svéráznou ochranu autorských práv?
Zná někdo radu co s tím?
96
Operační systémy / Zasekavaju sa mi animacie na ploche
« Poslední příspěvek od tupek kdy 06. 10. 2016, 07:40:38 »
Pardon za sposob pisania mam ENG klavesnicu

Ahojte, vcera som zapol pc a zacal sa spravat cudne. priecinky aj internet sa normalne otvori ale ak idem mysou na priecinok iba ukazat nezobrazi sa tam ten ramcek a ked kliknem na priecinok objavi sa tak za 3 sec. ze som ho oznacil. To iste spravca uloh. Otvoril som ho nech skontrolujem procesy vsetko v poho ale jak som prepol zoradenie od najviac zatazujucich po najmenej trvalo to 5 sec nez sa to zoradilo a takto trva kazdy ukon ktory som spravil.Tiez ked sa otvori okno s informaciou tak to trva 20 ces nez sa zobrazi. Prebehol som PC Nortonom a nenaslo nic.

Poprosim o radu v com moze vznikat tento problem.

PC ma rok,
Grafika - ASUS STRIX-GTX980TI 6GB
Procesor - Intel Core i7-5820K
RAM - Kingston 32GB KIT DDR4 SDRAM 2666MHz CL13 HyperX Savage Black
Doska - ASUS x99-A / USB 3.1
97
Hardware / Re:flash disk je chráněn proti zápisu
« Poslední příspěvek od ZdenekC kdy 06. 10. 2016, 06:30:08 »
Mám stejný problém. Žádný z postupů nezabral.
I když jsem pomocí diskpartu zrušil readonly.
Zkoušel jsem přeformátovat ve win, v DOSu, v linuxu, v tailsu. Vždy se stejným hlášením, že medium (nebo svazek) je chráněno proti zápisu.
Zkoušel jsem Partition manager. Stejný výsledek.
Nevěřím, že by flash byla špatná. Lze z ní bez problémů číst.
Podle předchozích pokusů problém nesouvisí ani s konkrétním PC nebo druhem operačního systému.
(Podle řady příspěvků mám pocit, že i u nových flashek tento problém vzniká, takže kupováním nových a nových se problém nevyřeší a navíc stojí peníze.)
Zná někdo radu co s tím?


98
Hardware / Re:flash disk je chráněn proti zápisu
« Poslední příspěvek od Daniel Tengler kdy 05. 10. 2016, 13:38:58 »
Zálohovat data určitě jde.
Koupě nového disku je za 1.
Výdrž disku je cca. 5000x přepsání !!
O nic člověk nepřijde.
Start => do pole vyhledávání napsat cmd a odentrovat


dále do okna příkazového řádku napsat:
robocopy "x:\" "D:\záloha disku" / MIR
x: je název Flash disku
d:\záloha disku je ádresář, kam chceš zálohu uložit (nesmí před tím existovat)
 ;D
99
Hardware / Re:flash disk je chráněn proti zápisu
« Poslední příspěvek od lahvas kdy 05. 10. 2016, 13:35:04 »
Děkuji za info, ještě to zkusím a pak, kdyžtak koupím novu, mám tam citlivá data (pracovní i osobní), takže reklamovat to nebudu.
100
Hardware / Re:flash disk je chráněn proti zápisu
« Poslední příspěvek od Daniel Tengler kdy 05. 10. 2016, 12:46:49 »
Další možností je zakázat/povolit funkce Windows,
nebo
požádat někoho o vzdálené připojení a opravu problému ( to už zdarma asi u nikoho nebude ).
Je dost možné, že disk uzamkl i antivir ...
Spustit msconfig a zakázat antivir při startu, dále restartovat do nouzového režimu a otestovat postupy tam.


Těch dalších možností jsou mraky ......
Já jedu též na Win 7,
8 nebo 10 mi do baráku nesmí  ;D
Stran: 1 ... 8 9 [10]