Sujet: MSN
02/07/2004 @ 16:52:06: pipo: MSN
MSNCAPU jabber sbieng

(Je teste)
02/07/2004 @ 16:52:36: sbuysse: MSN
MSNCAPU jabber sbieng

(Je teste)


ca marche :cupra:
02/07/2004 @ 16:54:25: pipo: MSN


ca marche :cupra:

Tiens il prend pas de quote de quote ?
02/07/2004 @ 16:56:03: sbuysse: MSN

Tiens il prend pas de quote de quote ?


Non, c'est supprimé automatiquement pour éviter des quote de quote de quote, pas fou :oh:
03/07/2004 @ 00:23:00: sbuysse: MSN

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


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


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


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


C koi ce source de recherche de fichiers ? :tongue:
06/07/2004 @ 16:39:59: zion: MSN


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:
08/08/2004 @ 16:04:56: gizmo: MSN
  1. class test { 
  2.   protected __construct() { 
  3.   } 
  4.   public init() { 
  5.     if (!isset($variable)) { 
  6.       throw new TestException('pauv'tache!'); 
  7. return $variable; 
  8. private ;variable; 
  9. }'

test

EDIT: C'est nul :oh: il strip les escape de quote :oh:
08/08/2004 @ 16:42:22: zion: MSN
roh :oh:

flute :oh:

mince :oh:

damnation :oh:

que faire :oh:

ah benh oué, corriger le bug :oh:
Retour