Anonymní profil Jarda – Programujte.com

#14 Sniper
Mělo mě to hned napadnout, byl jsem blízko, jen sem si měl pořádně přečíst funkci, děkuji za pomoc, moc mi to pomohlo.

#7 JoDiK
Hned na to kouknu, díky B.

#4 JoDiK

Tak sem to spáchal takto:

Var
  Radek: string;
  s:string;
  Soubor: TextFile;
  PrvniZnak:integer;
  PosledniZnak:integer;
  ulozeno:string;
  DelkaRadku:integer;
  Pocatek:integer;
  CetnostZnaku:integer;

begin

      If trim(s) <> '' then
      close;
      AssignFile(Soubor,'text.txt');
      Reset(Soubor);

     while not Eof(Soubor) do
     begin
       ReadLn(Soubor, Radek);
       Delete(Radek,1,1);

       For Pocatek:=0 to 30  do         // - zde je to 30 zadáné ručně
        begin
          PrvniZnak:=pos('>', Radek);
          PosledniZnak:=pos('<', Radek);
          DelkaRadku:=length(Radek)-1;

          If PosledniZnak > PrvniZnak then
            begin
             ulozeno:= Copy(Radek,PrvniZnak+1,PosledniZnak-PrvniZnak-1);
             Delete(Radek,1,PosledniZnak);
             Memo1.Text:=Radek;
             Memo2.Text:=Memo2.Text+ulozeno;
            end;
        end;
       //Label8.Caption:=inttostr(DelkaRadku);              pouze pro kontorlu cyklů
       //label1.Caption:=inttostr(PrvniZnak);
       //label2.Caption:=inttostr(PosledniZnak);
       //label10.Caption:=inttostr(CetnostZnaku);
      end;
end;

Problém je v tom, že jsem nepřišel na to jak zjistit četnost znaku '>' v textu (což je poslední znak), tím bych nastavil počty cyklů.

A další značný problém je v tom, že když budu provádět více jak 50 cyklů, tak už PC zamrzne :), nějaký nápad?

Připojen obrázek.

#4 JoDiK

Děkuji za odkazy, nastuduji, vyzkouším a popřemýšlím.

A ještě díky za trpělivost, nerad otravuji s maličkostmi, i když pro mě je to jak objevit Ameriku.

Až budu mít nějaký kloudný výstup, tak se pochlubím.

#2 JoDiK

Díky inspiroval jsem se.

Dnes jsem zabředl do řetězců, něco nového jsem se naučil, ale pořád to nestačí.

Zjistil, jsem že soubor (text souboru) načítám po řádcích až do té doby něž jsem na konci souboru, tedy v každém řádku bych měl být schopen najít určitý znak nebo slovo (měl bych hledat po řádcích), zatím umím zjisti kolikátý v pořadí je hledaný znak (nebo začátek slova):

Var
  Radek2: string;
  Soubor2: TextFile;
  cislo:integer;

 begin
  AssignFile(Soubor2,'text.txt');
  while not Eof(Soubor2) do
  begin
  ReadLn(Soubor2, Radek2);
  cislo:=pos('<',Radek2);

  Memo1.lines.Add(Radek2);
  end;
   label1.Caption:=inttostr(cislo);

......

Uvedený zápis vyhodí pozici asi jen posledního nalezeného znaku <, což asi nebude vadit, když bych pak mazal od konce, se znakem > bych to mohl provést stejným způsobem.

Tedy bych zjistil, že poslední pozice uvedených znaků.

A teď to přijde, zde jsem úplně mimo:

Od posledního znaku > bych měl provést mazání až do konce textu  to včetně tohoto znaku - nenašel jsem nikde jakým způsobem (jakým nástrojem) toho docílit.

Pak by mi mělo stačit opět najít poslední > a taky poslední <, tedy bych měl mít zjištěno odkud kam mazat, a takhle bych měl pokračovat až do (začátku textu).

Já vím, že to píšu jak blbec, ale bohužel mi to asi jinak do hlavy nevleze, i za odkaz, kde se podobná problematika řešila, bych byl vděčný.

Jinak díky za reakci B.

Nakonec mě jen napadá, že bych potřeboval, i poradit s tím, jak v textu načteném ze souboru, měnit znak za znak, toto bych použil při opravě diakritiky při načítání html do textového souboru např: Ă=U, Ănor=Únor.

Zdravím, učím se v Delphi jen chvilku, a právě proto si asi už několikátý den lámu hlavu nad tím, jak z načteného souboru (neco.html), který načítám (zobrazuji)  třeba do Memo nebo RichEditu (raději bych použil Memo), odstraním tagy z HTML kódu, potřebuji v uvedených komponentách zobrazovat jen text bez tagů, s tímto osekaným textem budu dále pracovat.

př:

ref="../html/photos.htm">ZOBRAZOVAT SE BUDE POUZE TOTO</a></li><li><a rel="nofollow" rel="nofollow" rel="nofollow" href="../html/synced_photos.htm">ZOBRAZOVAT SE BUDE POUZE TOTO</a></li><li><a rel="nofollow" rel="nofollow" rel="nofollow" href="../html/videos.htm">ZOBRAZOVAT SE BUDE POUZE TOTO</a></li><li><a rel="nofollow" rel="nofollow" rel="nofollow" href="../html/friends.htm">ZOBRAZOVAT SE BUDE POUZE TOTO</a></li><li><a 

V textu mohou být různé jiné tagy.

Bohužel jsem nikde jinde nenašel způsob, jak se s tímto vypořádat a proto se zde obracím na Vás.

Děkuji za každou radu B.

Zdravim, mám problém s resetem u tohoto jednočipu. IO je zapojený v zařízení a je k němu připojený zbastlený PICKIT2. Na MCLR je připojený jenom PICKIT a když v MPLABU zapnu reset pocesor běží dál. Když připojim k MCLR osciloskopickou sondu tak se procesor resetuje (i když je sonda připojená a v MPLABU dám reset). Napětí na MCLR je 0V při resetu 4,9V normálně a 11,7V při čtení/prog. Zkoušel sem dát na MCLR malý kondenzátor (proti zemi) a žádná změna, reset funguje jen s připojenou sondou. Neřešil jste někdo podobný problém? 

#3 vitamin#2 hlucheucho
Díky za odpovědi, teď jsem ještě někde našel že je možné deklarovat proměnnou extern a ta je dostupná ve všech funkcích, snad jsem to pochopil správně.

Dobrý den, začínám v C++ a nemůžu nikde najít jak udělat podprogram.
Vím že existují funkce a procedury, ale ty neumějí ovlivnit proměnné v hlavním programu (nebo nevim jak na to).

Začínal jsem programovat v assembleru a tam podprogram nebo přerušení ovlivňuje jakýkoliv registr.
Jde to udělat i v C? Dále jsem se dočetl že se nemá používat příkaz goto. Jaký to má důvod?

A ještě bych potřeboval sehnat popis knihoven a příkazů pro C++. Alespoň nějakých základních, ale trochu podrobnější než jsou v tutoriálech na netu. Děkuji  

Dobrý den,

chtěla bych se zeptat, kde a co začít studovat, abych se naučila tvorbu webových stránek od začátku a třeba i grafiku? Umím pracovat s šablonami, ale jen asi jako takový začátečník (neporadím si se vším :))

Nebo jestli se jde naučit i něco z knížek, které prodávají v knihkupectví? Už jsem po několika koukala, ale přišli mi na mne docela složité, přece jen je lepší, když učí/vysvětluje člověk, který tomu rozumí.

Moc děkuji za odpovědi

#2 Pavelv
Něco podobného se mi povedlo, ale nevím jak poté tyto znaky "c" a "h" nahradit, respektive jak to napsat do té morseovky.  Tedy co napsat místo těch echo.#4 bit 

for($i = 0; $i < $delka; $i++)
       {
        
        $znak = mb_substr($bileZnaky, $i, 1);
        $klic=mb_strpos($znak,"c");
        if($klic === false)
        {
           echo "nenalezeno"; 
      
        }
        else
        {
       
          $znak1=mb_substr($bileZnaky,++$i,1);
          $klic1=mb_strpos($znak1,"h");
           if($klic1 === false)
           {
           echo "nenalezeno ch";
           }
           else
           {
  
            echo "nalezeno ch";
  
        }
        
        }

Dobrý den,

potřeboval bych poradit jak nahradit písmeno ch jako jeden znak, používám to na morseovku, kde se mi po napsání písmene ch rozloží jako c a h a já chci jenom jeden znak našel jsem funkci strpos, ale nevím jak to napsat, aby po vložení věty se to aplikovalo do dosavadního kódu, mám to dělané přes pole. Četl jsem, že strpos zjistí jenom první výskyt, takže by to asi chtělo přes cyklus, ale právě nevím jak, díky za všechny rady. 

 if ($_GET)
    {
    if (isset($_GET['zadano']))
    {
 

    $zadano = $_GET['zadano'];
    $mala=mb_strtolower($zadano);
    $bileZnaky=trim($mala);
    $delka=mb_strlen($bileZnaky);
    $sDiakritikou=array('á', 'ä', 'č', 'ď', 'é', 'ě', 'ë', 'í', 'ň','ó', 'ö', 'ř', 'š', 'ť','ú', 'ů', 'ü', 'ý', 'ž');
    $bezDiakritiky=array('a', 'a', 'c', 'd', 'e', 'e', 'e', 'i', 'n', 'o', 'o', 'r', 's', 't','u', 'u', 'u', 'y', 'z');
    $pismena=array('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'ch','i', 'j', 'k', 'l', 'm','n', 'o', 'p', 'q', 'r','s', 't', 'u', 'v', 'w','x', 'y', 'z','0','1','2', '3', '4', '5', '6','7', '8', '9', '?', '|', '!', ';', '/','"',':', '_', '+', '*', '@', ',', '(', ')');
    $morseovka=array('.- ', '-... ', '-.-. ', '-.. ', '. ', '..-. ', '--. ', '.... ', '---- ', '.. ', '.--- ', '-.- ', '.-.. ', '-- ','-. ', '--- ', '.--. ', '--.- ', '.-. ','... ', '- ', '..- ', '...- ', '.-- ','-..- ', '-.-- ', '--.. ','----- ','.---- ','..--- ', '...-- ', '....- ', '..... ', '-.... ','--... ', '---.. ', '----. ','..--.. ','--..-- ','--...- ', '-.-.-. ', '-..-. ', '.-..- ','---... ', '..--.- ', '.-.-. ', '-.-.- ', '.--.-. ','--..-- ', '--... ', '-.--.- ');
    
    for($i = 0; $i < $delka; $i++)
    {
    $znak = mb_substr($bileZnaky, $i, 1);
       
    }
    
            $nahrazeno=str_replace($sDiakritikou, $bezDiakritiky,$bileZnaky);
            $vypis=str_replace($pismena,$morseovka,$nahrazeno);
            echo "Překlad na morseovu abecedu:<br>" ;
         echo "<textarea rows='10' cols='40'>$vypis</textarea>";
           
        }
        else 
       {
    
        if (in_array($znak, $pismena))
        {
        
        
        
            $nahrazeno=str_replace($sDiakritikou, $bezDiakritiky,$bileZnaky);
            $vypis=str_replace($pismena,$morseovka,$nahrazeno);
             echo "Překlad na morseovu abecedu:<br>";
            echo "<textarea rows='10' cols='40'>$vypis</textarea>";
                      
        }
        else
        {
         echo "<div id='chyba'>Znak (<span>".$znak."</span>), není v morseově abecedě!!!<div>";
         }
  
            
        }
        }
       }

Nakonec jsem našel tenhle brush.

http://postimg.org/image/5z4a1qrn5/ (přidávám klikatelný odkaz)

Ahoj,

   zajímalo by mě, jak ve photoshopu vytvořit něco podobného http://postimg.org/image/5z4a1qrn5/

Děkuji, Martin.