Anonymní profil Daemon481 – Programujte.com

#1 ThcSuperman
Chyba $_l_word má být $l_word.

Dobrý večer, pracuji na vyhledávači, který dokáže najít základní slovo i když zadám množné číslo, jiný pád, nebo přídavné jméno. ale skončil jsem u předposledního kroku chci porovnat například poslední tři písmena ze slova počítačový a vrátit počítač.Ale nedaří se mi to pro české znaky na konci. Prosím o pomoc.

Kód:

$_GET['s_word'] je například počítačový 

$s_word = html_entity_decode($_GET['s_word'], ENT_COMPAT, 'UTF-8'); <- je počítačový

$l_word = mb_substr($s_word,-3,mb_strlen($s_word),"utf-8"); <- je ový
    if($l_word == "ovi" or $l_word == "ovy" or $_l_word == "ový" or $l_word = "kou" ){ <- porovnání pro utf-8 selže
        $s_word = rtrim($s_word,$l_word); <- tady ta funkce se nevykoná
    }

sql vypíše , že hledá slovo počítačový, pokud bych změnil na počítačovy pak sql vypíše počítač. 

Dobrý den, mám kód, ve kterém funguje změna obrázku při najetí myškou, nyní chci přidat kontrolu adresy a pokud bude stejná jako href v <a> tak se obrázek změní, poradíte prosím. HTML kód:  

<div id="pages_redirect">
                    <ul>
                        <li><a class="gymnazium" href="http://prigo.cz"><img src="/image/gymnazium.png" alt="" /></a></li>
                        <li><a class="zs" href="http://webstranka.4fan.cz"><img src="/image/zs.png" alt="" /></a></li>
                        <li><a class="materska" href=""><img src="/image/materska.png" alt="" /></a></li>
                    </ul>
                </div>

Jquery kód:

<script type="text/javascript">
		$(document).ready(function() {
			$('.slideshow').before('<div id="nav" class="nav">').cycle({
				fx: 'fade',
				pager: '#nav' /* , */
				//before: function() { console.log(this.src); }
			});
            
            $(".zs img")
            .mouseover(function () {
                $(this).attr("src", "/image/zs_hover.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #369929');
                
            })
            .mouseout(function () {
                $(this).attr("src", "/image/zs.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #c5c7c8');
            });
            $(".gymnazium img")
            .mouseover(function () {
                $(this).attr("src", "/image/gymnazium_hover.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #8dbe48');
                
            })
            .mouseout(function () {
                $(this).attr("src", "/image/gymnazium.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #c5c7c8');
            });
            
            $(".materska img")
            .mouseover(function () {
                $(this).attr("src", "/image/materska_hover.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #cde0bf');
            })
            .mouseout(function () {
                $(this).attr("src", "/image/materska.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #c5c7c8');
            });
            
            $(".ibaco img")
            .mouseover(function () {
                $(this).attr("src", "/image/ibaco_hover.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #e2007a');
            })
            .mouseout(function () {
                $(this).attr("src", "/image/ibaco.png");
                $('#pages_redirect ul li').css('border-bottom','5px solid #c5c7c8');
            });
            
            $("#pages_redirect a").each(function() {   
                if (this.href == window.location.href) {
                    var className = this.attr('class');
                    if(className == "zs"){
                        $('.zs img').attr("src", "/image/zs_hover.png");    
                    }
                    if(className == "gymnazium"){
                        $('.gymnazium img').attr("src", "/image/gymnazium_hover.png");    
                    }
                    if(className == "materska"){
                        $('.materska img').attr("src", "/image/materska_hover.png");    
                    }
                }
            });
            
		});
		</script>

Dobrý večer, prodávám knihy, všechny jsou v perfektním stavu, jako nové.

Seznam titulů:

Připojen obrázek.

Název: Učebnice programování ATMEL s jádrem 8051

Autor: Václav Vacek

Původní cena: 199,-

Cena pro Vás: 119,-

Připojen obrázek.

Název: Mikrokontroléry ATMEL s jádrem 8051

Autor: Jan Kľúčík a Vojtech Fronc

Původní cena: 199,-

Cena pro Vás: 119,-

Připojen obrázek.

Název: HTML5 a CSS3: Výukový kurz webového vývojáře

Autor: Brian P. Hogan

Původní cena: 319,-

Cena pro Vás: 219,-

Název: Programujeme vlastní e-shop v PHP5
Autor: Michael Peacock
Původní cena: 349,-
Cena pro Vás: 250,-

Všechny ceny jsou bez poštovného.

Knihy jsou čisté, nejsou popsané, obaly jsou čisté, bez poznámek a zvýraznění uvnitř. Známky používání: minimální na obalu.

Kontakt: zbytky481@seznam.cz

#3 KIIV
Díky moc hodně si mi pomohl, už to fachá.

Kód:

<pre>

$boundary = md5(time()); // vytvori hash k odeslani souboru
        $od = $email_kontakt;
        $do = "info@bio-sleva.cz";
        $subject = "Nabídka od firmy $firma";
        $header .= "From: $kontakt_osoba <$od> \r\n";
        $header .=  "MIME-Version: 1.0\r\n" . 
                    "Content-Type: multipart/mixed; boundary=$boundary \r\n\r\n" . 
                    "Content-Transfer-Encoding: 7bit\r\n".
                    "Nabídka firmy $firma \r\n\r\n".
                    "--$boundary\r\n".
                    "Content-Type: text/plain; charset=utf-8\r\n".
                    "Content-Transfer-Encoding: 8bit\r\n\r\n";
        $message = "Firma: $firma \r\n"."WWW stránky: $www_stranky \r\n"."Město: $mesto \r\n";
        $message .= "Kategorie: $kategorie \r\n"."Kontaktní osoba: $kontakt_osoba \r\n"."Telefon: $telefon \r\n";
        $message .= "Email: $email_kontakt \r\n"."IČO: $ico_kontakt \r\n"."DIČ: $dic_kontakt \r\n";
        $message .= "Název nabídky: $nazev_nabidky \r\n"."Cena bez sleva: $cena_bez_slevy \r\n";
        $message .= "Cena se slevou: $cena_sleva \r\n"."Počet kuponů: $pocet_kuponu \r\n"."Body nabídky: $body_nabidky \r\n";
        $message .= "Popis nabídky: $popis_nabidky \r\n"."Datum spuštění nabídky: $datum_od \r\n"."Datum ukončení nabídky: $datum_do";
        $header .= $message."\r\n\r\n";
        $header .= "--$boundary \r\n";
        $header .= "Content-Type: application/octet-stream; name=$product_image \r\n";
        $header .= "Content-Transfer-Encoding: base64 \r\n";
        $header .= "Content-Disposition: attachment \r\n\r\n";
        $header .= $product_image."\r\n\r\n";
        $header .= "Content-Type: application/octet-stream; name=$product_image \r\n";
        $header .= "Content-Transfer-Encoding: base64 \r\n";
        $header .= "Content-Disposition: attachment \r\n\r\n";
        $header .= $product_image2."\r\n\r\n";
        $header .= "--$boundary--";
        
        mail($do, $subject, "", $header);

</pre>

Dobrý večer, mám menší (větší problém) s odesíláním emailu pomocí funkce mail() v php, emai sice dojde se zprávou uvnitř tak jak má být problém je, ale v tom, že netuším proč moje dvě přílohy mají nula kb, když jí ověřím $_FILES pomocí funkce var_dump, tak má obsah a 0 errors, není někde v tom kódu chyba, echo vypíše ok:
Pozn: proměnné $product_image a $product_image2 obsahují $_FILES['product_image']['tmp_name] a $_FILES['product_image2']['tmp_name'] a jsou naplněné, obrázky které posílám mají 2-5kb na test, jo a ukaže se pouze, že byl odeslána jedna 0kb příloha, druhá se ani neukáže. Děkuji za jakékoli odpovědi. Mějte se peace. 

$boundary = md5(time()); // vytvori hash k odeslani souboru
$od = $email_kontakt;
$do = "$email_prijemce";
$subject = "Nabídka od firmy $firma";
$header .= "From: name <$od> \r\n";
$header .= "MIME-Version: 1.0\r\n" . 
"Content-Type: multipart/mixed; boundary=$boundary \r\n\r\n" . 
"Content-Transfer-Encoding: 7bit\r\n".
"Nabídka firmy $firma \r\n\r\n".
"--$boundary\r\n".
"Content-Type: text/plain; charset=utf-8\r\n".
"Content-Transfer-Encoding: 8bit\r\n\r\n";
$message = "Firma: $firma \r\n"."WWW stránky: $www_stranky \r\n"."Město: $mesto \r\n";
$message .= "Kategorie: $kategorie \r\n"."Kontaktní osoba: $kontakt_osoba \r\n"."Telefon: $telefon \r\n";
$message .= "Email: $email_kontakt \r\n"."IČO: $ico_kontakt \r\n"."DIČ: $dic_kontakt \r\n";
$message .= "Název nabídky: $nazev_nabidky \r\n"."Cena bez sleva: $cena_bez_slevy \r\n";
$message .= "Cena se slevou: $cena_sleva \r\n"."Počet kuponů: $pocet_kuponu \r\n"."Body nabídky: $body_nabidky \r\n";
$message .= "Popis nabídky: $popis_nabidky \r\n"."Datum spuštění nabídky: $datum_od \r\n"."Datum ukončení nabídky: $datum_do";
$header .= $message."\r\n\r\n";
$header .= "--$boundary \r\n";
$header .= "Content-Type: application/octet-stream; name=$product_image \r\n";
$header .= "Content-Transfer-Encoding: base64 \r\n";
$header .= "Content-Disposition: attachment \r\n\r\n";
$header .= $product_image."\r\n\r\n";
$header .= "Content-Type: application/octet-stream; name=$product_image \r\n";
$header .= "Content-Transfer-Encoding: base64 \r\n";
$header .= "Content-Disposition: attachment \r\n\r\n";
$header .= $product_image2."\r\n\r\n";
$header .= "--$boundary--";

if(mail($do, $subject, "", $header)){
echo "ok"; 
}else{
echo "někde je chyba";
}

Update: Tak jsem to zkusil ještě jednou a toto mi přišlo: 
untitled-[2].octet-stream 0.1 k [ application/octet-stream ] Stáhnout
Zase jedna příloha, novinka má velikost 0.1k 

Možná máš pravdu, fakt nevím jak na to, můžeš mi prosimtě poradit pokud víš jak to zprovoznit.

myslím že nemáš zcela pravdu, protože při prvním projetí je hodnota pole pochopitelně nula, protože hodnota, kterou zadávam z klávesnice se uloží na začátku programu do proměnné x, do pole tuto hodnotu vkládam až před koncem smyčky Do - loop while , proto aby mohlo dojít k porovnání nové hodnoty x se starou, která je uložena v poli(i), problém vydím v ReDim Preserve pole(i), kde mi to haze chybu out of range, ale pritom program jede dál, po každém proběhnutí cyklu je vidět že ta hodnota se přiřadí do pole(i) ale jakmile to dojde k ReDim Preserve pole(i), tak zase se zobrazí hodnota 0, pokud by jste měli nějakou radu jak na to, prosím napište fakt nevím co s tím

Dobrý večer lámu si hlavu proč mi při podmínce If x < pole(i) Then když kontroluji program pomocí StepInto vrací hodnotu pole stále 0 i když zadám pomocí InputBoxu hodnotu např 15, 20 atd. , nevím co dělám špatně prosém pomozte. Program by měl vypsat všechna zadaná čísla v poli a poté vypsat nejmenší , zde je můj program, děkuji :

Option Explicit
Option Base 1
Sub rada_cisel()
    Dim i As Integer, x As Integer, y As Integer, c As Integer, d As Integer, vys As Single
    Dim ret As String, my_str As String
    Dim pole() As Integer
    i = 0
    c = 0
    d = 0
    ret = ""
    Do
        x = Val(InputBox("zadejte cislo"))
            If x <> 0 Then
        ret = ret + Chr(10) + str(x)
            End If
        i = i + 1
        ReDim Preserve pole(i)
            If x < pole(i) Then
                d = d + 1
                my_str = my_str + str(x)
            End If
        pole(i) = x
    Loop While x <> 0
        MsgBox "Cisla jsou: " + ret + Chr(10) + "a nejmensi cislo je: " + my_str
       
End Sub

Dobrý den, potřebuji vaši pomoc jak vylepšit uplně hloupoučkou hru, která jede ale nedělá to co by měla, hra by měla fungovat tak, že chodím panáčkem (#1) =  smajlík,lze se pohybovat všemi směry po obrazovce, ale teď nastává ten problém generuji hvezdicky ( * ), která se zobrazuje náhodně na obrazovce, ale chyba je v tom, že nejde se samostatně pohybovat aniž by to neovlivnilo průběh generování hvězdičky myslím tím ten delay a automaticke generovani ,hra by se měla ukončit když sním panáčkem tu hvězdičku, pokud jste to z mojeho slovního průjmu nepochopili tak tady přikládam zdroják, diký za každou pomoc : 

program panacek;
uses crt;
var  x,y,a,b,n:integer;
     c,k:char;

procedure konec;
begin
Writeln('KONEC HRY');
delay(1000);
end;

procedure novahra;
begin
     clrscr;
     gotoxy(40,12);
     repeat
           k:=readkey;
                case k of
                     'w': y:=y-1;
                     's': y:=y+1;
                     'a': x:=x-1;
                     'd': x:=x+1;
                end;
           clrscr;
           gotoxy(x,y);
           writeln(#1);
           if x>80 then x:=80;
           if y>24 then y:=24;
           if x<1 then x:=1;
           if y<1 then y:=1;
           a:=random(79);
           b:=random(23);
           randomize;
           if a>80 then a:=80;
           if a<1 then a:=1;
           if b>24 then b:=24;
           if b<1 then b:=1;
           gotoxy(a,b);
           writeln('*');
     until k=chr(27);
     if (a=x) and (b=y) then konec;
end;
begin
     clrscr;
     Writeln('Vitejte ve hre panacek');
     Writeln('');
     Writeln('Princip hry');
     Writeln('');
     Writeln('Hra funguje tak ze pohybujeme panackem,mezitim se nam na obrazovce');
     Writeln('nahodne generuji hvezdicky, jakmile se dotkneme hvezdicky hra konci.');
     Writeln('');
     Writeln('Ovladani:      W = nahoru');
     Writeln('               S = dolu');
     Writeln('               A = doleva');
     Writeln('               D = doprava');
     Writeln('');
     Writeln('1.Nova hra');
     Writeln('2.Konec');
     c:=readkey;
                        case c of
                             '1': novahra;
                             '2': konec;
                        end;

end.