[Stomper]

Парсит файл c:\123.rtf и выводит номера телефонов, расположеные после кодового слова "Телефон:"

Код:

#include <Word.au3>
$tel_digs = "0123456789()-+ "
$srch_phrs= "Телефон:"
$sSourceFile = "c:\123.rtf"
$oWord       = _WordCreate($sSourceFile, 0, 0)
$oDoc        = _WordDocGetCollection($oWord, 0)
$strs=$oDoc.Range.Text
_WordQuit($oWord, 0)
While StringInStr($strs,$srch_phrs)<>0 
  $n1=StringInStr($strs,$srch_phrs)
  $n1=$n1+StringLen($srch_phrs)
  $n2=$n1
  While StringInStr($tel_digs,StringMid($strs,$n2,1))<>0
    $n2=$n2+1
  WEnd
  $OutStr=StringMid($strs,$n1,$n2-$n1)
  MsgBox(0,"",$OutStr)
  $strs=StringTrimLeft($strs,$n2)
Wend
Exit(0)

[Sp01LeR]

Я думаю что для лучшей совместимости форматов вместо

Код:

_WordCreate($sSourceFile, 0, 0)

лучше открыть документ:

Код:

[...]
$sSourceFile = "c:\123.rtf"
$oWord = _WordCreate("")
$oDoc = _WordDocOpen ($oWord, $sSourceFile)
[...]

[Frost_Imp]

Благодарю, код Stomper-а работает. Очень помогло!
Единственное - можно ли доработать код дляя поиска по нескольким ключевым словам?

[Sp01LeR]

по нескольким ключевым словам? »

По каким - тем что слева или справа?
Можно поподробней пожалуйста(и желательно с примерами)...

[zabidon]

столкнулся с похожей проблемой,есть доковский файл с кучей мусора,хочу из него сделать табличку в excel.

подскажите как изменить скрипт Stomper'a, чтобы после заданного ключевого слова данные записывались в столбец таблицы

заранее благодарен