home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / MAXLINE.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  2.6 KB  |  90 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: MAXLINE.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ Low-Level File ║»╩²╢┴╚í╬─╝■╒╥│÷│¼╣²╓╕╢¿│ñ╢╚     ⌐ª
  4. *⌐ª               ╡─╨╨╩²╡─╖╢└².                                        ⌐ª
  5. *⌐ª        Usage: MAXLINE WITH <Program name> ,<expN>                  ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. PARAMETERS the_file, the_length
  8. SET ESCAPE OFF
  9. IF  PARAMETERS() # 2 OR TYPE("the_file") # "C" ;
  10.          OR TYPE("the_length") # "N" OR (TYPE("the_length") = "N" ;
  11.          AND  INT(the_length) # the_length)
  12.     WAIT WINDOW " ╨Φ╥¬┴╜╕÷▓╬╩²: ╬─╝■├√(╫╓╖√┤«) ║═╫ε┤≤╨╨│ñ╢╚(╒√╩²). "
  13.     RETURN
  14. ENDIF
  15.  
  16. the_file = UPPER(IIF(AT(".",the_file) # 0,the_file,the_file+".PRG"))
  17. fileh = FOPEN(the_file)
  18. IF fileh = -1
  19.    WAIT WINDOW " ├╗╙╨╒╥╡╜╬─╝■: "+the_file+". "
  20.    RETURN
  21. ENDIF
  22.  
  23. the_report = SUBSTR(the_file,1,AT(".",the_file)-1)
  24.  
  25. IF FILE(the_report+".TXT")
  26.    mext = "TXT"
  27.    DEFINE WINDOW getit FROM 10,29 TO 15,51;
  28.       PANEL TITLE " ▒¿╕µ├√ "
  29.    DO WHILE FILE(the_report+"."+mext)
  30.       WAIT WINDOW " ╬─╝■ "+the_report+"."+mext;
  31.          +" ╥╤┤µ╘┌. ╕┤╕╟┬≡?  (y/n)" TO manswer
  32.       IF UPPER(manswer) = "Y"
  33.          ERASE (the_report+"."+mext)
  34.       ELSE
  35.          ACTIVATE WINDOW getit
  36.          @ 1,4 SAY the_report+"." GET mext PICTURE "@!N"
  37.          READ
  38.          IF LASTKEY() = 27
  39.             EXIT
  40.          ENDIF
  41.       ENDIF
  42.    ENDDO
  43.    RELEASE WINDOW getit
  44.    IF FILE(the_report+"."+mext)
  45.       * got an escape press
  46.       = FCLOSE(fileh)
  47.       RETURN
  48.    ELSE
  49.       the_report = the_report+"."+mext
  50.    ENDIF
  51. ELSE
  52.    the_report = the_report+".TXT"
  53. ENDIF
  54.  
  55. reporth = FCREATE(the_report)
  56. = FPUTS(reporth,"This is a report of lines in "+;
  57.    the_file)
  58. = FPUTS(reporth,"that exceed the given maximum of "+;
  59.    ALLTRIM(STR(the_length))+" characters.")
  60. = FPUTS(reporth," ")
  61. = FPUTS(reporth," ")
  62.  
  63. the_line = 0
  64. overmax = 0
  65. DO WHILE !FEOF(fileh)
  66.    the_line = the_line + 1
  67.    this_line = FGETS(fileh)
  68.    IF LEN(this_line) > the_length
  69.       = FPUTS(reporth,PADR("Line # ";
  70.          +ALLTRIM(STR(the_line)),15)+this_line)
  71.       overmax = overmax + 1
  72.    ENDIF
  73. ENDDO
  74.  
  75. = FCLOSE(reporth)
  76. = FCLOSE(fileh)
  77. ?? CHR(7)
  78. IF overmax = 0
  79.    ERASE(the_report)
  80.    WAIT WINDOW " ├╗╙╨╥╗╨╨│¼╣² "+;
  81.       ALLTRIM(STR(the_length))+;
  82.       " ╕÷╫╓╖√.  "
  83. ELSE
  84.    WAIT WINDOW " ╘┌ "+the_report+" ╓╨ "+;
  85.       ALLTRIM(STR(overmax))+;
  86.       IIF(overmax = 1," line"," ╨╨") +" │¼╣² "+;
  87.       ALLTRIM(STR(the_length))+" ╕÷╫╓╖√."
  88. ENDIF
  89. RETURN
  90.