home *** CD-ROM | disk | FTP | other *** search
/ Windows News 1999 Special / WNEWSSPECIALETE.bin / MEDIA / MOTEUR.DXR / 00273.ls < prev    next >
Encoding:
Text File  |  1999-01-27  |  801 b   |  27 lines
  1. on readtextfile fileName, champ, Okchrde10
  2.   global fileioobject, PathFile
  3.   set PathFile to the pathName & "fileio.dll"
  4.   openXLib(PathFile)
  5.   if objectp(fileioobject) then
  6.     fileioobject(mdispose)
  7.   end if
  8.   set fileioobject to fileio(mnew, "read", fileName)
  9.   set numberobject to abs(fileioobject)
  10.   if numberobject > 32 then
  11.     fileError(fileioobject)
  12.   else
  13.     put fileioobject(mReadFile) into field champ
  14.     if Okchrde10 = "OK" then
  15.       set IncrChar to 1
  16.       set IncrLine to 2
  17.       set NumberOfLine to the lineCount of member champ
  18.       repeat while (NumberOfLine - 1) > 0
  19.         delete char IncrChar of line IncrLine of field champ
  20.         set IncrLine to IncrLine + 1
  21.         set NumberOfLine to NumberOfLine - 1
  22.       end repeat
  23.     end if
  24.     fileioobject(mdispose)
  25.   end if
  26. end
  27.