В чем может быть проблема? Скрипт перебирает слова из текстового файла и ищет точку. Скрипт нашел последнее слово с точкой "происшедшего." но его не вывел: | Цитата |
Но Греф, видимо, результатами не удовлетворился и потому попросил министра внутренних дел Рашида Нургалиева и председателя следственного комитета при прокуратуре Александра Бастрыкина расследовать обстоятельства
|
А здесь нашел и вывел "место.": | Цитата |
С одной стороны, нарушение внутренних регламентов тоже серьезное дело, если подобное имело место.
|
Где ошибка? С 27 марта пишу и никак не могу закончить :-( | Код |
sA="в Европе. Руководство компании позитивно оценивает динамику развития, несмотря на ряд технических проблем-инциденты на Severstal North America, «Воркутаугле» и Череповецком заводе. «Северсталь» достигла рекордного показателя выпуска стальной продукции (17,5 млн т) и смогла повысить рентабельность. Норма чистой прибыли за год увеличилась на 1 п. п., до 13%. Компания по итогам 2007 г. выплатит щедрые дивиденды на общую сумму $776 млн, что на 94,7% выше показателя 2006 г. и подразумевает дивидендную доходность на уровне 3,1%. Рассчитанная целевая цена-32, рекомендация-покупать. СОМНЕНИЯ. Эксперты Банка Москвы отмечают, что темпы увеличения операционных расходов «Северстали» не отставал и от роста выручки. Это, в свою очередь, привело к сохранению валовой маржи на уровне 2006 г. Норма EBITDA и валовой прибыли за 2007 г. составила соответственно 24,1 и 30,8% (в 2006 г.-23,8 и 30,9%). Аналитики добавляют, что опубликованные результаты оказались заметно ниже их оценок, особенно с точки зрения рентабельности. Рассчитанная ТР-26,1, рекомендация-продавать. "
Dim sArray(100000)
Dim iArray(100000)
Dim sArray2
sArray(0)="рекордного"
sArray(1)="показателя"
sArray(2)="рентабельность"
sArray(3)="новости"
sArray(4)="уникальной"
sArray(5)="фабрики"
sArray(6)="технологию"
sArray(7)="добычи"
sArray(8)="менеджмента"
sArray(9)="место"
sArray(10)="угля"
sArray(11)="справедливая"
sArray(12)="цена"
sArray(13)="акции"
sArray(14)="держать"
sArray(15)="покупать"
sArray(16)="добыть"
sArray(17)="нефти"
sArray(18)="темпов"
sArray(19)="налогового"
sArray(20)="расходов"
sArray(21)="прогнозировался"
sArray(22)="результаты"
sArray(23)="месяца"
sArray(24)="выручка"
sArray(25)="автомобилей"
sArray(26)="инфраструктуры"
sArray(27)="эмитент"
sArray(28)="продаж"
sArray(29)="среднемесячный"
sArray(30)="показатель"
sArray(31)="прогнозов"
sArray(32)="аналитиков"
sArray(33)="отчетности"
sArray(34)="выручка"
sArray(35)="EBITDA"
sArray(36)="%"
sArray(37)="$"
sArray(38)="млрд"
sArray(39)="результатов"
sArray(40)="конъюнктуры"
sArray(41)="рынке"
sArray(42)="спроса"
sArray(43)="проблем"
sArray(44)="продукции"
sArray(45)="млн"
sArray(46)="рентабельность"
sArray(47)="прибыли"
sArray(48)="дивиденды"
sArray(49)="сумму"
sArray(50)="2006"
sArray(51)="2007"
sArray(52)="2008"
sArray(53)="ггг"
sArray(54)="доходность"
sArray(55)="уровне"
sArray(56)="целевая"
sArray(57)="цена"
sArray(58)="рекомендация"
sArray(59)="расходов"
sArray(60)="выручки"
sArray(61)="маржи"
sArray(62)="валовой"
sArray(63)="прибыли"
sArray(64)="результаты"
sArray(65)="оценок"
sArray(66)="рентабельности"
sArray(67)="рассчитанная"
sArray(68)="продавать"
sArray(69)="инфляции"
sArray(70)="2005"
sArray(71)="Греф"
sArray(72)="млс"
sArray(73)="Грефа"
i=0
i2=0
j=0
k=0
sArray2 = Split(sA, " ")
j=UBound(sArray2)
icounter=1
i=0
do while i<j
k=0
do while k<73
'Сравнить каждое слово со словами из словарика
if Replace(Replace(Replace(Replace(Replace(Lcase(sArray2(i)),"-",""),".",""),"«",""),"»",""),",","")=LCase(sArray(k)) then
sArray2(i)="<b>" & sArray2(i) & "</b>"
iArray(i)=1
fBackward(i)
fForward(i)
end if
k=k+1
loop
i=i+1
loop
i=0
do while i<j
if iArray(i)=1 then iLabel=iLabel+1
if iArray(i)=0 then iLabel=0
if iArray(i)=1 then Response.Write "<font color=red>" & sArray2(i) & " </font>"
if i>1 then if iArray(i)=0 and iArray(i-1)=1 then icounter=icounter+1:Response.Write(" ... <br><br>"&icounter&". ")
i=i+1
loop
function fBackward(i)
i=i-1
iArray(i)=1
l=i
Do while instr(sArray2(l),".")=0
l=l-1
iArray(l)=1
Loop
iArray(l)=0
end function
function fForward(i)
L=i
Do while L<ubound(sArray2) and instr(sArray2(L),".")<1
iArray(L)=1
iSearch=fSearch(sArray2(L),iPeriod)
Loop
end function
|
|
не могу корректно найти точку в предложении :-( 
Загрузка ...
