home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December / PCWorld_2002-12_cd.bin / Software / Komercni / Baltik / katB.exe / katB / DESIGN / DESIGNEX.SGP < prev    next >
Text File  |  2002-09-24  |  2KB  |  58 lines
  1. SGPC   5.04 032#000001043  5.08.2002 14:38:59                                   
  2. # include <sgpbalt.h>
  3.  
  4. string m_strExInfo[6];
  5. # include "design_h.api"
  6. # include "design_h.res"
  7. # include "design_c.io"
  8. # include "design_c.cha"
  9. # include "design_c.xml"
  10.  
  11. #define IDS435932923245 
  12.  
  13. // Globální prom╪nné
  14.  
  15. // Globální makra
  16. -o1-Globals
  17. -c1-Globals
  18. ===Globals
  19. /*-hf(*/
  20. /*-hf-*/
  21. void main( void )
  22. /*-hf)*/;
  23. ;-h---------------------------------------------------------------------------
  24. void main( void )
  25. -s--EXPORT                                                                      ■   4  -2 -28   3
  26. TOHTML
  27.  1!
  28. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  29. 1 // exporting to HTML
  30.   string FromFile,ToFile;
  31.   TxtPiτⁿet╪zec("Cesta k souboru *.umd, kter∞ chcete exportovat");
  32.   TxtPiτⁿet╪zec("\nCesta : ");
  33.   Txt¼tiSⁿet╪zec(FromFile);
  34.   TxtPiτⁿet╪zec("\nCesta k adresá²i, kam bude proveden export");
  35.   TxtPiτⁿet╪zec("\nCesta : ");
  36.   Txt¼tiSⁿet╪zec(ToFile);
  37.   if(ToFile[StrDélka(ToFile)-1] == "\\")StrNastavVelikost(ToFile,StrDélka(ToFile)-1);
  38.   ToFile+="\\";
  39.   if(!SouborExistuje(FromFile)){TxtPiτⁿet╪zec("\nChyba: Zdroj neexistuje");¼ekejNaKlávesu();return ;} // error
  40.    Src = SouborOtev²i(FromFile,SouborP²ístupBinární|SouborP²ístup¼tení);
  41.  
  42.   Cells=(DIAGRAMCELL*)IO_READ(Src,Cells,&zorder,nSize);
  43.   ToFile = SouborAbsolutníCesta(ToFile);
  44.   string HTML =ToFile + "define.html";
  45.   EXPORT_HTML(HTML);
  46.   int nClass;
  47.   for(nClass=0; nClass < nSize;nClass++){
  48.      if(Cells[nClass].nType < 3)
  49.      EXPORT_CPLUSPLUS(nClass,ToFile);
  50.   }
  51.   TxtPiτⁿet╪zec("\n\n\nExport dokonƒen, pokraƒujte stiskem klávesy ");
  52.  
  53.   ¼ekejNaKlávesu();       
  54. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  55. =SP---------------------------------------------------------------------------
  56.  
  57. // Konec souboru
  58.