home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP12_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  2.3 KB  |  70 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP12_2.PRG                                          ⌐ª
  3. *⌐ª     Function: ╜½╬─▒╛╬─╝■┐╜▒┤╡╜▒╕╫ó╫╓╢╬╡─╙ª╙├╖╢└².                  ⌐ª
  4. *⌐ª   DBF & File: EXP12_1.PRG                                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7.  
  8. =SEEKSTR("╩≤▒Ω","EXP12_1.PRG",4)
  9. * ╡≈╙├ SEEKSTR(), ╝∞╦≈ EXP12_1.PRG ╓╨╡┌ 4 ┤╬│÷╧╓╡─ <╩≤▒Ω> ╫╓╖√┤«
  10. RETURN
  11.  
  12.  
  13. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  14. *⌐ª      Program: SEEKSTR.PRG
  15. *⌐ª     Function: ╝∞╦≈╬─╝■╓╨╡┌ N ┤╬│÷╧╓╡─╓╕╢¿╫╓╖√┤«, ╒╥╡╜║≤╕▀┴┴╢╚╧╘╩╛.
  16. *⌐ª        Usage: SEEKSTR(<expC1>,<expC2>,<expN>)
  17. *⌐ª   DBF & File: SYSY.DBF
  18. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  19. FUNCTION SEEKSTR
  20. PARAMETERS string,txtfile,occur
  21. PRIVATE occur,poisition,offset
  22. PRIVATE pre_scheme, winname
  23.  
  24. DO CASE
  25.    CASE EMPTY(string) .OR. EMPTY(txtfile) .OR. EMPTY(occur)
  26.         WAIT "─π╓┴╔┘╨δ╓╕╢¿: <╬─╫╓┤«>, <╬─▒╛╬─╝■├√>,<╡┌╝╕┤╬│÷╧╓>, "+;
  27.              "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°.";
  28.              WINDOW
  29.         RETURN .F.  && ╚⌠▓╗│╔╣ª, ╘≥┤½╗╪ .F.
  30.  
  31.    CASE TYPE("string") # "C" .OR. TYPE("txtfile") # "C" ;
  32.          .OR. TYPE("occur") # "N"
  33.         WAIT "─π╩Σ╚δ╡─ <╬─╫╓┤«>, <╬─▒╛╬─╝■├√>▓╗╩╟╫╓╖√┤«╗≥<╡┌╝╕┤╬│÷╧╓>"+;
  34.              "▓╗╩╟╩²╫╓, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨°.";
  35.              WINDOW
  36.         RETURN .F.  && ╚⌠▓╗│╔╣ª, ╘≥┤½╗╪ .F.
  37. ENDCASE
  38.  
  39. IF !FILE((txtfile))
  40.     WAIT "╒╥▓╗╡╜─π╓╕╢¿╡─ <╬─▒╛╬─╝■├√>, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨°.";
  41.           WINDOW
  42.     RETURN .F.
  43. ENDIF
  44. occur=IIF(occur<1,1,occur)
  45.  
  46. USE (LOCFILE("SYS","DBF","╟δ╒╥╡╜╩²╛▌┐Γ SYS.DBF"))
  47. APPEND MEMO sysmem FROM (txtfile) OVERWRITE
  48. poisition=ATC(string,sysmem,occur)
  49. IF poisition = 0
  50.    WAIT "╒╥▓╗╡╜─π╓╕╢¿╡─ <╬─╫╓┤«>, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨°.";
  51.         WINDOW
  52.    RETURN .F.
  53. ELSE
  54.    offset=poisition+LEN(string)
  55.    pre_scheme=SCHEME(17)
  56.    IF ISCOLOR()
  57.       SET COLOR OF SCHEME 17 TO SCHEME 8
  58.    ELSE
  59.       SET COLOR OF SCHEME 17 TO W+/ ,W/W,N+/N
  60.    ENDIF
  61.    winname=SYS(2015)
  62.    DEFINE WINDOW (winname) FROM 1,1 TO 23,78 " " ;
  63.       SHADOW COLOR SCHEME 17
  64.    MODIFY MEMO sysmem NOEDIT RANGE poisition,offset WINDOW (winname)
  65.    RELEASE WINDOWS (winname)
  66.    SET COLOR OF SCHEME 17 TO (pre_scheme)
  67.    RETURN .T.
  68. ENDIF
  69. RETURN
  70.