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

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

(Je teste)


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


ca marche :cupra:

Tiens il prend pas de quote de quote ?
02/07/2004 @ 16:56:03: sbuysse: MSN
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:
03/07/2004 @ 00:23:00: sbuysse: MSN

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:
03/07/2004 @ 21:22:12: zion: MSN
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:
06/07/2004 @ 16:37:24: Poire: MSN
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:
06/07/2004 @ 16:39:59: zion: MSN
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:
08/08/2004 @ 16:04:56: gizmo: MSN
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:
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