home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / t-online / shared.dir / 00302_Script_302 < prev    next >
Text File  |  1996-08-16  |  3KB  |  128 lines
  1. -- FileIO
  2.  
  3. -- Zugriff auf die FileIO.dll fⁿr Dateizugriffe
  4. -- Fehlermeldungen wie DOS Int 34 
  5.  
  6.  
  7. --  *****************************************************************
  8. on OpenFile  art, datei
  9.   
  10.   global gsX, gsStatus, giError, gxFileObj
  11.   
  12.   set giError = 0
  13.   --debug "open file:" & datei & ": als :" & art
  14.   
  15.   if  (art = "r" )  or  (art = "R") then 
  16.     -- ÷ffne zum lesen
  17.     put FileIO( mNew, "read", datei) into gxFileObj
  18.     -- value: error = zahl <0 , ok ist text
  19.     put value( gxFileObj ) into giError
  20.     if giError < 0 then
  21.       put "" into gsX 
  22.     else
  23.       set giError = 0
  24.       
  25.     end if
  26.   end if
  27.   
  28.   if (art = "w" )  or  (art = "W") then 
  29.     -- ÷ffne zum schreiben 
  30.     put FileIO( mNew, "write", datei) into gxFileObj
  31.     put value( gxFileObj ) into giError
  32.     if giError < 0 then
  33.       put "" into gsX 
  34.     else
  35.       set giError = 0
  36.     end if  
  37.   end if
  38.   
  39.   if (art = "a" )  or  (art = "A") then  
  40.     -- ÷ffne zum anhΣngen
  41.     put FileIO( mNew, "append", datei) into gxFileObj
  42.     put value( gxFileObj ) into giError
  43.     if giError < 0 then
  44.       put "" into gsX 
  45.     else
  46.       set giError = 0
  47.     end if
  48.     
  49.   end if  
  50.   if art ="i" then 
  51.     
  52.     -- ÷ffne fⁿr infos 
  53.     -- gi error <0 = fehler,  >0 = FileLen
  54.     put FileIO( mNew, "read", datei) into gxFileObj
  55.     put value( gxFileObj ) into giError
  56.     if giError <= 0 then
  57.       put "" into gsX 
  58.     else
  59.       put gxFileObj(mGetLength) into giError
  60.       
  61.     end if
  62.   end if
  63.   
  64.   --debug "  result:" & giError
  65.   
  66. end
  67.  
  68. --  ***************************************************************
  69.  
  70. on CloseFile art
  71.   global gsX, giError, gxFileObj
  72.   set giError = 0
  73.   --debug "close file"
  74.   if  (art = "r" )  or  (art = "R") then 
  75.     -- schliesse lesen
  76.     if objectP( gxFileObj ) then 
  77.       gxFileObj( mDispose )
  78.     end if
  79.   else
  80.     -- schliesse schreiben
  81.     if objectP( gxFileObj ) then 
  82.       gxFileObj( mDispose )
  83.     end if
  84.     
  85.   end if
  86. end
  87.  
  88. --  ****************************************************************
  89.  
  90. on ReadLine 
  91.   global gsX, giError, gxFileObj, gsStatus
  92.   
  93.   set giError = 0
  94.   --debug "readline"
  95.   if objectP( gxFileObj ) then 
  96.     put gxFileObj(mReadLine ) into x   -- bis CR
  97.     put char 1 to length(x)-1 of x into gsX
  98.     --debug "  is ok"
  99.     put gxFileObj(mStatus) into gsStatus
  100.     put gxFileObj(mReadChar ) into x     -- Lf lesen
  101.   else
  102.     --debug "  error"
  103.   end if
  104.   
  105. end readline 
  106.  
  107.  
  108. --  *******************************************************************
  109.  
  110. on WriteLine txt
  111.   global gsX, gsCRLF, giError, gxFileObj
  112.   
  113.   set giError = 0
  114.   set y = txt
  115.   --debug "write"
  116.   if objectP( gxFileObj ) then 
  117.     gxFileObj(mWriteString, y )
  118.     gxFileObj(mWriteString, gsCRLF )
  119.     
  120.     
  121.     --debug "  ok"
  122.   else
  123.     --debug "  error"
  124.   end if
  125.   
  126. end readline 
  127.  
  128.