Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Nouveau sujet      
Outils  
 Bavardages » MSN
« Sujet précédent      Sujet suivant »
Catégorie:  
pipo
   
MSN
Publié le 02/07/2004 @ 16:52:06,
Par pipo
MSNCAPU jabber sbieng

(Je teste)
./Make sex | ( . ) ( . ) | Je n'ai rien à voir avec Zion l'informaticien gay
sbuysse
   
MSN
Publié le 02/07/2004 @ 16:52:36,
Par sbuysse
Citation de: pipo
MSNCAPU jabber sbieng

(Je teste)


ca marche :cupra:
pipo
   
MSN
Publié le 02/07/2004 @ 16:54:25,
Par pipo
Citation de: sbuysse


ca marche :cupra:

Tiens il prend pas de quote de quote ?
./Make sex | ( . ) ( . ) | Je n'ai rien à voir avec Zion l'informaticien gay
sbuysse
   
MSN
Publié le 02/07/2004 @ 16:56:03,
Par sbuysse
Citation de: pipo

Tiens il prend pas de quote de quote ?


Non, c'est supprimé automatiquement pour éviter des quote de quote de quote, pas fou :oh:

Dernière édition: 02/07/2004 @ 17:02:51
sbuysse
   
MSN
Publié le 03/07/2004 @ 00:23:00,
Par sbuysse

Code:
  1. <?php 
  2. function getmicrotime() 
  3. { 
  4.    list($usec, $sec) = explode(" ",microtime()); 
  5.    return ((float)$usec + (float)$sec); 
  6. } 
  8. $args=array(); 
  9. for($i=0;$i<10000;$i++) 
  10.        $args[]="'line to output number $i 
  11. '"; 
  12. $concatEcho="echo ".implode(" 
  13. .",$args).";"; 
  14. $paramEcho="echo ".implode(" 
  15. ,",$args).";"; 
  16. unset($args); 
  17. $startParam=getmicrotime(); 
  18. eval($paramEcho); 
  19. $endParam=getmicrotime(); 
  20. $startConcat=getmicrotime(); 
  21. eval($concatEcho); 
  22. $endConcat=getmicrotime(); 
  23. $concatTime=$endConcat-$startConcat; 
  24. $paramTime=$endParam-$startParam; 
  25. print " 
  26. Concats took $concatTime seconds 
  27. Params took $paramTime 
  28. "; 
  29. ?>


un shti test ni vu ni connu :grin:
zion
   
MSN
Publié le 03/07/2004 @ 21:22:12,
Par zion
Code:
  1. procedure TForm1.Button1Click(Sender: TObject); 
  3. var 
  4.   sr: TSearchRec; 
  5.   FileAttrs: Integer; 
  6. begin 
  7.   StringGrid1.RowCount := 1; 
  8.   if CheckBox1.Checked then 
  9.     FileAttrs := faReadOnly 
  10.   else 
  11.     FileAttrs := 0; 
  12.   if CheckBox2.Checked then 
  13.     FileAttrs := FileAttrs + faHidden; 
  14.   if CheckBox3.Checked then 
  15.     FileAttrs := FileAttrs + faSysFile; 
  16.   if CheckBox4.Checked then 
  17.     FileAttrs := FileAttrs + faVolumeID; 
  18.   if CheckBox5.Checked then 
  20.     FileAttrs := FileAttrs + faDirectory; 
  21.   if CheckBox6.Checked then 
  22.     FileAttrs := FileAttrs + faArchive; 
  23.   if CheckBox7.Checked then 
  25.     FileAttrs := FileAttrs + faAnyFile; 
  27.   with StringGrid1 do 
  28.   begin 
  29.     RowCount := 0; 
  31.     if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then 
  33.     begin 
  34.       repeat 
  35.         if (sr.Attr and FileAttrs) = sr.Attr then 
  36.         begin 
  37.         RowCount := RowCount + 1; 
  38.         Cells[1,RowCount-1] := sr.Name; 
  39.         Cells[2,RowCount-1] := IntToStr(sr.Size); 
  40.         end; 
  41.       until FindNext(sr) <> 0; 
  42.       FindClose(sr); 
  43.     end; 
  44.   end; 
  45. end;


Et hop, encore un petit coup de test :banzai:
Je suis le Roy :ocube:
Poire
   
MSN
Publié le 06/07/2004 @ 16:37:24,
Par Poire
Citation de: zion
Code:
  1. procedure TForm1.Button1Click(Sender: TObject); 
  3. var 
  4.   sr: TSearchRec; 
  5.   FileAttrs: Integer; 
  6. begin 
  7.   StringGrid1.RowCount := 1; 
  8.   if CheckBox1.Checked then 
  9.     FileAttrs := faReadOnly 
  10.   else 
  11.     FileAttrs := 0; 
  12.   if CheckBox2.Checked then 
  13.     FileAttrs := FileAttrs + faHidden; 
  14.   if CheckBox3.Checked then 
  15.     FileAttrs := FileAttrs + faSysFile; 
  16.   if CheckBox4.Checked then 
  17.     FileAttrs := FileAttrs + faVolumeID; 
  18.   if CheckBox5.Checked then 
  20.     FileAttrs := FileAttrs + faDirectory; 
  21.   if CheckBox6.Checked then 
  22.     FileAttrs := FileAttrs + faArchive; 
  23.   if CheckBox7.Checked then 
  25.     FileAttrs := FileAttrs + faAnyFile; 
  27.   with StringGrid1 do 
  28.   begin 
  29.     RowCount := 0; 
  31.     if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then 
  33.     begin 
  34.       repeat 
  35.         if (sr.Attr and FileAttrs) = sr.Attr then 
  36.         begin 
  37.         RowCount := RowCount + 1; 
  38.         Cells[1,RowCount-1] := sr.Name; 
  39.         Cells[2,RowCount-1] := IntToStr(sr.Size); 
  40.         end; 
  41.       until FindNext(sr) <> 0; 
  42.       FindClose(sr); 
  43.     end; 
  44.   end; 
  45. end;


Et hop, encore un petit coup de test :banzai:


C koi ce source de recherche de fichiers ? :tongue:
:topicalacon:
Je défendrai mes opinions jusqu'à ma mort, mais je donnerai ma vie pour que vous puissiez défendre les vôtres. (Voltaire)
Photos
zion
   
MSN
Publié le 06/07/2004 @ 16:39:59,
Par zion
Citation de: Poire


C koi ce source de recherche de fichiers ? :tongue:


C'est un test de mise en forme de source Pascal :smile:

Suffit de faire [ pascal ] pour du pascal, [ php ] pour du php, cpp pour du c++, etc, etc :smile:

y a un parser pour chaque langage avec les mots clés et tout le toutim :sol:
Je suis le Roy :ocube:
gizmo
   
MSN
Publié le 08/08/2004 @ 16:04:56,
Par gizmo
Code:
  1. class test { 
  2.   protected __construct() { 
  3.   } 
  4.   public init() { 
  5.     if (!isset($variable)) { 
  6.       throw new TestException('pauv'tache!'); 
  7. } 
  8. return $variable; 
  9. } 
  10. private ;variable; 
  11. }'

test

EDIT: C'est nul :oh: il strip les escape de quote :oh:

Dernière édition: 08/08/2004 @ 16:05:52
Concept vivant.
zion
   
MSN
Publié le 08/08/2004 @ 16:42:22,
Par zion
roh :oh:

flute :oh:

mince :oh:

damnation :oh:

que faire :oh:

ah benh oué, corriger le bug :oh:
Je suis le Roy :ocube:
Répondre - Catégorie:  
Informaticien.be - © 2002-2025 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?