home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / FINDLINE < prev    next >
Text File  |  1991-09-27  |  649b  |  27 lines
  1. > watch(off)
  2. > delete('\openold.000')
  3. > copy('\config.sys','\openold.000',replace)
  4. > openold('\openold.000',handle)
  5. > findtext1 = 'xyz'
  6. > findtext2 = 'vga'
  7. > result1 = findline(handle,findtext1)
  8. > if result1 == TRUE
  9. > line1 = readline(handle)
  10. > message('text xyz found in line = ' + line1)
  11. > else
  12. > message('text djd NOT found')
  13. > endif
  14. > setbof(handle)
  15. > result2 = findline(handle,findtext2)
  16. > if result2 == TRUE
  17. > line2 = readline(handle)
  18. > message('text vga found in line = ' + line2)
  19. > else
  20. > message('text vga NOT found')
  21. > endif
  22. > message('Press any key to terminate script')
  23. > timeout = 0
  24. > watch(on)
  25. > wait()
  26. > end
  27.