Парсит файл 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)
