home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / GERMAN / LOTUS027.DSK / FINDREPL.TPL < prev    next >
Text File  |  1997-02-04  |  417b  |  16 lines
  1.     .Type "Dies ist ein Beispiel.[Eingabetaste]"
  2.     .Type "Dies ist ein weiteres Beispiel."
  3.     
  4.     .FindAndReplace.FindString = "Beispiel"
  5.     .FindAndReplace.ReplaceString = "Script-Beispiel"
  6.     .InitFindAndReplace True
  7.     
  8.     REM 0 = Found, 4 = NotFound    
  9.     If .Find = 0 Then Messagebox "Erstes Element gefunden.",, "â–„berspringen"
  10.     
  11.     REM Find the next instance    
  12.     .Find
  13.     
  14.     REM Replace the rest of the words    
  15.     .ReplaceAll
  16.