Registrace nového uživatele     Návod     Kluby     Archív  Lopuchu     Lopuch.cz  

Což takhle
dát si Lopuch?

Lopuch.cz
Jméno:
Heslo:
Podpora LCD:
 
Archiv klubu Delphi [ŽP: neomezená] (kategorie Programování) moderuje Šéf Lopuchu.
  • Klub Pascal - diskuze obecne o jazyce Pascal
  • Torry's Delphi Pages - stránky se spoustou komponent, tutoriálů a informací o Delphi - doporučuje 6 z 5ti vývojářů
    • Download Opera
      Nastavení klubu     Nastavení práv     Homepage     Anketa     Přítomní     Oblíbené     Lopuch     Kategorie  
    autor: 
    text: 
    vyplnit a 
    Help
       
    [ 118 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  
    jockey 1.2.2006 10:37  119
    Tak jsem to vyřešil takhle. Řešení sice mizerné, ale funkční. Teď jdu řešit 2.část: ze vzniklého souboru udělat přehled, kdy daný uživatel pracoval(=první spuštění a poslední ukončení každého dne)..
    jockey 1.2.2006 07:35  118
    Tedy krátce řečeno: potřebuji převést win-text do klasického DOS texťáku s ASCII znaky.
    jockey 1.2.2006 07:30  117
    LucidPotřebuji jen uložit do nového souboru řádky s (uživatel - 'XXXXXXX') a řádky, kde se odhlásil - tedy v příkladu ten poslední. A z nich jen části řetězce: datum a čas a dál jen číslo sezení+uživatele a u ukončovacích jen číslo sezení(takže celou tu větičku).

    Přebytečné znaky (spoustu 0,FF a FE na začátku souboru) jsem odfiltroval. Zkoušel jsem to přes textfile-readln i přes file-blockread, ale k výsledku jsem se dopracoval jen částečně: mám datum a čas, ale problémy dělají české znaky v texty. Možná, kdybych odfiltroval vše kromě klasických ASCII, tak by to šlo. Jdu to zkusit..
    lucid Lucid mlčet a naslouchat - zážitek, který bolí tak moc a tak krásně 31.1.2006 21:49  116
    JockeyJake mas kriterium pro to, zda radku zachovat, nebo zahodit? A s temi zachovanymi pak budes chtit delat co - vypsat, zapsat do souboru, nejak dal zpracovavat ...
    jockey 31.1.2006 18:34  115
    PomocProsím o nakopnutí, jak nejlépe vyzobat z tohoto souboru jen některé řádky.

    V Delphi jsem zatím nic moc(spíš nic, než moc) nedělal. Já zarytý TurboPascalist zvyklý na DOSovské textové soubory si s těmi ANSI a UNICODE a jinými vymoženostmi nevím rady. Hledal jsem dnes s přestávkami celý den, ale použitelného jsem nenašel nic.. Ještě si beru domů na večer knížku "1001 tipů a triků pro Delphi" :o(
    ender Ender 30.1.2006 13:24  114
    Zkus si prosím to co jsem napsal krok za krokem ;-) Když v notepadu otevřeš .rtf, mělo by ti to ukázat text s formátovacími informacemi, který rozhodně nebude vypadat stejně jako když to otevřeš ve wordpadu - malý příklad: 

    {\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fswiss\fcharset238{\*\fname Arial;}Arial CE;}}
{\colortbl ;\red255\green0\blue0;\red192\green192\blue192;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 Test\cf1\b\fs32 Test\cf2\ul\b0\i\fs52 Test\cf0\ulnone\i0\fs20\par
}

    Tohle zkus nakopírovat do toho stringlist editoru...
    fontan 30.1.2006 08:57  113
    TRichEditO notepadu nebyla zmínka.? Napsal a formátoval jsem to ve Wordpadu. Pak jsem to clipboardem přenesl do Strin List Editoru. Tam to ještě bylo zformátované jako v tom wordpadu, ale po jeho zavření zbyl jen plain text.
    ender Ender 24.1.2006 19:51  112
    Naivní nápad - uložit .rtf, otevřít v notepadu, zkopírovat text i s formátovacími informacemi a to celé vložit do string list editoru?
    fontan 19.1.2006 14:11  111
    TRichEditNazdar, TRicgEdit umí zobrazit soubor *.rtf včetně barev a fontů, leč jen v "runtime" načtením souboru. Potřeboval bych jej vyplnit už "designtime", ale neumím to. Sice do string list editoru nakopíruju např. z wordu přes clipboard formátovaný text a ten se hezky zobrazí, ale hned jak string list editor zavřu, formátovací údaje jsou zapomenuty. Umíte to někdo líp?
    Dík.
    fontan 12.12.2005 13:47  110
    nekronedivím se, lidi jsou ochotni prodat/zaplatit /za každou blbinu, i když jim to komplikuje život :-). Ba ne, uznávám, že občas by se to mohlo hodit, ale převážně preferuju standardní způsob nastavování budíku.
    nekromancer 12.12.2005 08:55  109
    fontan: 99: Budeš se divit, ale stává se mi že si nastavuju místo budíka alarm do kalendáře :-)
    A na ThinkGeeku se slušně prodává budík, u kterýho si můžeš nastavit časy buzení samostatně pro každý den týdne.
    fontan 8.12.2005 15:05  108
    pepakumáš pravdu, jen jsem se fanaticky snažil hájit to, že datum není potřeba. Jen tak na okraj, nevím na jakém procesoru by se projevil rozdíl ve výkonu, ale přesto souhlasím, že se má psát efektivní kód.
    pepak pepak - Pepak.net 8.12.2005 14:09  107
    Fontan: Tu predchozi reakci jsem trochu prehnal. Ale stejne, tvuj kod se mi vubec nelibi.
    pepak pepak - Pepak.net 8.12.2005 14:05  106
    Fontan: Uzasny. A tenhle vypocet budes delat kazdou sekundu (nebo jak casto se bude displej aktualizovat)? Ja bych radsi na zacatku vypocital cas budiku (viz prispevek 104) a potom jednou za sekundu pocital CasDoSpusteniBudiku := CasBudiku-Now. No ale kazdy je sveho stesti strujcem, ze? (V tomto pripade vsak take strujcem nestesti uzivatelu tohoto programu. Ale co, mam Pentium D, takze klidne muzu jedno jadro vyhradit pro aktualizaci budiku :-))
    fontan 8.12.2005 13:47  105
    pepakunemusí, ale nemusí, zajímá, kolik zbývá do spuštění budíku, resp, jestli ho má spustit a ne, DatumČas spuštění budíku
    CasBudiku := EncodeTime(HodinaBudiku,MinutaBudiku,SekundaBudiku);
    CasDoSpusteniBudiku := CasBudiku - frac(now);
    i f CasDoSpusteniBudiku menší než 0 t h e n
    CasDoSpusteniBudiku := CasDoSpusteniBudiku + 1;
    if CasDoSpusteniBudiku větší než MinulyCasDoSpusteniBudiku t h e n
    spustbudik
    e l s e
    MinulyCasDoSpusteniBudiku := CasDoSpusteniBudiku;
    [ 118 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  

    (c) 2001-2011 Lopuch.cz   
    Kontakt