* Программа Before. Срублено Timo  
 * Перевод стандартных фраз'  
  CLEAR  
  SET SAFETY OFF  
  SET ALTERNATE TO Repl.tx  
  SET ALTERNATE ON  
  SET TALK OFF  
  SET CONSOLE OFF  
  =ADIR(ahtm,'*.htm')  
  tese=SECONDS()  
  NumRepl=0  
  FOR j1=1 TO ALEN(ahtm,1)  
    stf=FILETOSTR(ahtm[j1,1])  
    @ 3,3 SAY j1  
    @ 1,15 SAY SECONDS()-tese COLOR RGB(0,0,255)  
    ConvStd('See Also','Смотрите также')  
    ConvStd('Applies To:','Применяется к:')  
    ConvStd('Visual FoxPro 9.0 Language Reference','Visual FoxPro 9.0 Справочное руководство по языку')  
    ConvStd('Other Resources','Прочие ресурсы')  
    ConvStd('Return Value','Возвращаемое значение')  
    ConvStd('Remarks','Замечания')  
    ConvStd('Note','Примечание')  
    ConvStd('Tip','Совет')  
    ConvStd('Reference','Ссылки')  
    ConvStd('Parameters','Параметры')  
    ConvStd('Example','Пример')  
    ConvStd('Copy Code','Копировать код')  
    ConvStd('Send','Шлите')  
    ConvStd('comments','комментарии')  
    ConvStd('about this topic to Microsoft.  Вc Microsoft Corporation. All rights reserved.',;  
    'об этой статье в корпорацию Microsoft. c Microsoft Corporation. All rights reserved.')  
    =STRTOFILE(stf,ahtm[j1,1])  
  ENDFOR  
  SET ALTERNATE TO  
  SET ALTERNATE OFF  
  SET TALK ON  
  SET CONSOLE ON  
  MESSAGEBOX('Произведено замен '+ALLTRIM(STR(NumRepl))+CHR(13)+'Смотри Repl.tx')  
 *--------------------------------------------------  
  PROCEDURE ConvStd  
 * Замена стандартных фраз.  
 * Осуществляется только если они находятся между >.....<  
 * Т.е. не в тэгах. И толко в случае, если искомая строка не является подстрокой.  
  PARAMETERS EnPh,RuPh  
  offset=1  
  FOR j2=1 TO 10000  
    StartPh=ATC(EnPh,SUBSTR(stf,offset))+offset-1  
    IF StartPh<offset  
      EXIT  
    ENDIF  
    StartSep=RAT('>',LEFT(stf,StartPh))  
    EndSep=AT('<',SUBSTR(stf,StartPh))+StartPh  
    BetwSep=SUBSTR(stf,StartSep+1,EndSep-StartSep-2)  
    BetwSep=STRTRAN(BetwSep,CHR(13))  
    BetwSep=STRTRAN(BetwSep,CHR(10))  
    BetwSep=ALLTRIM(STRTRAN(BetwSep,CHR(9)))  
    IF BetwSep==EnPh.OR.LEFT(BetwSep,LEN(BetwSep)-1)==EnPh  
  	stf=STRTRAN(stf,EnPh,STRCONV(RuPh,9),1,1)  
  	? EnPh+' '+RuPh  
  	NumRepl=NumRepl+1  
    ENDIF  
    offset=StartPh+1  
  IF j2>1000  
  susp  
  endif  
  ENDFOR

loInetApp = Createobject('InternetExplorer.Application')  
  loInetApp.Navigate('имя файла справки')  
  loDocument=loInetApp.Document  
  loLabel=loDocument.getElementById("collapseAllLabel")  
  loLabel.innerText=lcCollapseAll  
  ....  
    
 * разбираемся со всеми остальными в той же манере  
    
  ...  
    
 * получаем html текст справки  
  lcFileHTMLText=loDocument.documentElement.outerHTML  
    
 * перегоняем его в файл  
  =STRTOFILE(lcFileHTMLText,"имя файла справки'")  
    
 * берем следующий файл  
 * и так далее