Вверх ↑
Ответов: 52
Рейтинг: 2
#1: 2020-10-13 00:00:23 ЛС | профиль | цитата
Привет. Есть текстовый файл такого типа:

Небрежный плод моих забав,
Бессонниц, легких вдохновений,
Незрелых и увядших лет,
Ума холодных наблюдений
И сердца горестных замет.
Так думал молодой повеса,
Летя в пыли на почтовых,
Всевышней волею Зевеса
Наследник всех своих родных.

Мне нужно проверить в тексте, наличие определённого слова и если оно есть, выдать строку. Допустим, это слово "Ледник". В тексте нет такого слова. Но, при попытки найти это слово, мне выдается последняя строка, где есть слово "НасЛЕДНИК". Единственное решение которое я нашел, это перенести каждое слово на новую строку и выполнять поиск совпадений построчно. Но это мне не подходит, т.к., я не знаю как потом восстановить начальную структуру текста. Подскажите пожалуйста, как с этим бороться? Или не получится ничего сделать? Не обращайте внимание на преобразование кодировок. Без этого, у меня вместо кириллицы - иероглифы

КОД

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,490,378)
{
Width=280
Height=316
Position=1
}
Add(Charset,3086171,644,322)
{
Type=6
link(onCharset,9358463:doValue,[])
link(Text,9168574:Var2,[])
}
Add(Memory,9358463,686,322)
{
link(onData,993512:doSearch,[(721,328)(721,361)(673,361)(673,370)])
}
Add(SearchInFile,993512,679,364)
{
FileName="1.txt"
Sensitive=1
link(onSearch,2340869:doCharset,[])
link(Text,9358463:Value,[])
}
Add(Charset,2340869,721,371)
{
Type=7
link(onCharset,15974094:doEvent1,[])
}
Add(Button,12793547,602,322)
{
Left=10
Top=250
Caption="Так"
link(onClick,3086171:doCharset,[])
}
Add(Edit,5282391,644,273)
{
Left=10
Top=15
Width=245
Text="ледник"
}
Add(RichEdit,4053668,791,371)
{
Left=10
Top=40
Width=245
Height=205
ScrollBars=3
}
Add(StrList,1946260,560,322)
{
Strings=#26:Небрежный плод моих забав,|30:Бессонниц, легких вдохновений,|23:Незрелых и увядших лет,|23:Ума холодных наблюдений|25:И сердца горестных замет.|25:Так думал молодой повеса,|24:Летя в пыли на почтовых,|22:Всевышней волею Зевеса|28:Наследник всех своих родных.|
}
Add(ArrayFind,16671564,574,378)
{
Partial=0
link(onFind,15974094:doEvent2,[])
link(Array,1946260:Array,[])
link(Value,9168574:Var1,[(594,313)])
}
Add(GetDataEx,9168574,644,308)
{
link(Data,5282391:Text,[])
}
Add(Button,11561342,532,378)
{
Left=70
Top=250
Caption="Или так"
link(onClick,16671564:doFind,[])
}
Add(Hub,15974094,763,371)
{
InCount=2
OutCount=1
link(onEvent1,4053668:doAdd,[])
}

карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
Редактировалось 4 раз(а), последний 2020-10-13 00:48:50