Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2005-09-09 23:45:37 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:02:10
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#2: 2005-09-12 13:31:11 ЛС | профиль | цитата
1. Загружаем файл в StrList например.
2. Ищем компонентом Position вхождение заданной строки(или символа) в св-ве Text компонента StrList
3. Нашли - выводим Message, не нашли идем дальше.
карма: 27
0
Ответов: 676
Рейтинг: 5
#3: 2005-09-13 18:07:45 ЛС | профиль | цитата
Для этого прекрасно подойдет блокнот
или так попробывать можно
[code:1]Add(Edit,7078388,315,126) {
Left=25
Top=35
Width=125
Height=22
Text=""
}
Add(Memo,3016382,196,119)
{
Left=25
Top=65
Width=350
Height=170
ScrollBars=3
Point(doSetSelStart)
Point(doSetSelLength)
}
Add(Button,8915732,140,238)
{
Left=155
Top=35
Width=80
Height=25
Caption="Найти далее"
link(onClick,7952032:doSearch,[])
}
Add(DropFile,1920693,140,147)
{
link(onDropFile,3016382:doLoad,[])
}
Add(Position,7952032,196,238)
{
link(onSearch,11618607:doOperation,[])
link(Str,3016382:Text,[])
link(Target,8453399:Var1,[(209,198)])
}
Add(Length,8474937,378,245)
{
link(onLength,3016382:doSetSelLength,[(426,251)(426,215)(180,215)(180,174)])
link(Str,8453399:Var3,[(384,198)])
}
Add(Hub,3264736,308,238)
{
link(onEvent1,3016382:doSetSelStart,[(352,244)(352,207)(186,207)(186,167)])
link(onEvent2,8474937:doLength,[])
}
Add(GetDataEx,8453399,308,189)
{
link(Data,7078388:Text,[])
}
Add(Math,11618607,252,238)
{
OpType=1
Op2=1
link(onResult,3264736:doEvent1,[])
}
[/code:1]
[b]Dilma[/b], почему компонент Position не верно выдает позицию
всегда больше на один или это memo не правильно ее воспринимает
карма: 1

0
Администрация
Ответов: 15295
Рейтинг: 1519
#4: 2005-09-15 01:06:25 ЛС | профиль | цитата
[code:1]Add(Button,650652,147,189) {
Left=145
Top=185
link(onClick,10920036:doSearch,[])
}
Add(Edit,549383,210,133)
{
Left=220
Top=185
}
Add(Message,2594946,280,189)
{
}
Add(Position,10920036,210,189)
{
Target="i"
link(onSearch,2594946:doMessage,[])
link(Str,549383:Text,[])
}
[/code:1]
Совершенно верно выдает...
карма: 27
0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2005-09-15 23:34:31 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:02:10
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#6: 2005-09-16 14:09:30 ЛС | профиль | цитата
Для этого нужно использовать точку doSetSelStart
карма: 27
0
Ответов: 676
Рейтинг: 5
#7: 2005-09-16 18:03:58 ЛС | профиль | цитата
как установить каретку так, чтобы было видно найденое слово

Dilma в первом примере это реализовано но если часть строк не видно строка выделяется а скрол бар не прокручивается...
карма: 1

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)