Что то не то получается, по сути пытаюсь найти заданный текст в документе и в случае его нахождения заменить всю строку в которой находится заданный текст на иное. Но что то не выходит гляньте пожалуйста.
code_29161.txt
------------ Дoбавленo в 10.32:
Дело сдвинулось наконец то, почти все реализовал не выходит только заменить строку в правой колонке, помогите.
Add(MainForm,16323570,644,147)
{
Width=696
Height=419
Position=1
}
Add(Button,14802015,266,217)
{
Left=20
Top=20
Caption="Открыть"
link(onClick,5824310:doExecute,[])
}
Add(Edit,15645834,448,308)
{
Left=90
Top=60
Width=225
Text="Данные для поиска"
}
Add(ODialog,5824310,329,217)
{
Filter="txt*.txt*"
FileName="test"
link(onExecute,4297833:doEvent1,[(368,223)(368,237)])
}
Add(Memo,2010269,511,189)
{
Left=20
Top=120
Width=410
Height=205
}
Add(Edit,7571286,406,217)
{
Left=85
Top=20
Width=160
Text=""
link(onChange,2010269:doLoad,[])
}
Add(Button,12772001,357,392)
{
Left=15
Top=65
Width=60
Caption="Найти"
link(onClick,15085290:doSearch,[])
}
Add(Hub,10353095,455,203)
{
link(onEvent1,2010269:doText,[(497,209)(497,216)])
link(onEvent2,2010269:doSave,[(486,216)(486,230)])
}
Add(Hub,4297833,371,231)
{
link(onEvent1,7571286:doText,[(415,237)(415,223)])
link(onEvent2,3031839:doData,[(395,244)(395,314)])
}
Add(SearchInFile,15085290,413,392)
{
link(onSearch,3147708:doAdd,[(457,398)(457,405)])
link(FileName,3031839:GetData,[(419,380)(412,380)])
link(Text,15645834:Text,[(426,373)(454,373)])
}
Add(Memo,3147708,511,399)
{
Left=470
Top=105
Width=180
Height=165
}
Add(EventFromData,3031839,406,308)
{
}
Add(Button,2173816,413,511)
{
Left=15
Top=90
Width=70
Caption="Удалить"
link(onClick,11476612:doDelete,[])
}
Add(Edit,4327251,616,462)
{
Left=90
Top=90
Width=235
Text="Данные для замены"
}
Add(Delete,11476612,469,511)
{
Count=6
Direction=1
link(onDelete,15052634:doEvent1,[(513,517)(513,496)(366,496)(366,482)])
link(Str,3147708:Text,[(475,474)(517,474)])
}
Add(Button,4080977,448,574)
{
Left=340
Top=90
Width=65
Caption="Заменить"
link(onClick,10353805:doReplace,[(520,580)(520,531)])
}
Add(Hub,15052634,378,476)
{
InCount=2
OutCount=1
link(onEvent1,3147708:doText,[(469,482)(469,426)])
}
Add(Replace,10353805,560,525)
{
link(Dest,4327251:Text,[(580,509)(622,509)])
}
И снова здравствуйте
После долгих попыток реализовать свою идею, у меня получилось. Я новичок в HiAsm всего 2 день сижу. Поэтому такие глупо объяснял. Если кому интересно то вот что у меня получилось.
Add(MainForm,16323570,336,315)
{
Width=697
Height=397
Position=1
}
Add(Button,14802015,287,231)
{
Left=20
Top=20
Caption="Открыть"
link(onClick,5824310:doExecute,[])
}
Add(Edit,15645834,469,322)
{
Left=90
Top=60
Width=225
Text="Данные для поиска"
}
Add(ODialog,5824310,350,231)
{
Filter="txt*.txt*"
FileName="test"
link(onExecute,4297833:doEvent1,[(389,237)(389,251)])
}
Add(Memo,2010269,532,203)
{
Left=20
Top=120
Width=410
Height=205
}
Add(Edit,7571286,427,231)
{
Left=85
Top=20
Width=160
Text=""
link(onChange,2010269:doLoad,[])
}
Add(Button,12772001,378,406)
{
Left=15
Top=65
Width=60
Caption="Найти"
link(onClick,15085290:doSearch,[])
}
Add(Hub,10353095,476,210)
{
link(onEvent1,2010269:doText,[(518,216)(518,230)])
link(onEvent2,2010269:doSave,[(507,223)(507,244)])
}
Add(Hub,4297833,392,245)
{
link(onEvent1,7571286:doText,[(436,251)(436,237)])
link(onEvent2,3031839:doData,[(416,258)(416,328)])
}
Add(SearchInFile,15085290,434,406)
{
link(onSearch,4397475:doEvent1,[])
link(FileName,3031839:GetData,[(440,394)(433,394)])
link(Text,2388127:Var1,[(447,387)])
}
Add(Memo,3147708,532,413)
{
Left=470
Top=105
Width=180
Height=165
}
Add(EventFromData,3031839,427,322)
{
}
Add(Delete,11476612,490,539)
{
Count=6
Direction=1
link(onDelete,14914431:doEvent1,[(530,545)(530,566)])
link(Str,6128061:Var1,[(496,488)])
}
Add(Hub,15052634,399,490)
{
InCount=2
OutCount=1
link(onEvent1,3147708:doText,[(490,496)(490,440)])
}
Add(Replace,10353805,581,560)
{
DestStr="Данные для замены"
link(onReplace,15052634:doEvent2,[(624,566)(624,538)(387,538)(387,503)])
link(Str,6128061:Var3,[(587,488)])
link(Sub_str,2388127:Var3,[(594,387)])
}
Add(GetDataEx,6128061,532,483)
{
link(Data,3147708:Text,[])
}
Add(GetDataEx,2388127,469,382)
{
link(Data,15645834:Text,[])
}
Add(Hub,14914431,539,560)
{
link(onEvent1,15052634:doEvent1,[(565,566)(565,531)(387,531)(387,496)])
link(onEvent2,10353805:doReplace,[(567,573)(567,566)])
}
Add(Hub,4397475,490,406)
{
OutCount=3
link(onEvent1,3147708:doAdd,[(518,412)(518,419)])
link(onEvent2,11476612:doDelete,[(516,419)(516,482)(478,482)(478,545)])
link(onEvent3,13149414:doData,[(560,426)(560,384)])
}
Add(Replace,6202889,609,308)
{
DestStr="Данные для замены"
link(onReplace,10353095:doEvent1,[(688,314)(688,179)(464,179)(464,216)])
link(Str,2010269:Text,[(615,278)(538,278)])
link(Sub_str,13149414:GetData,[(622,296)(610,296)(610,422)(622,422)])
}
Add(Button,15057539,546,308)
{
Left=340
Top=30
Caption="Заменить"
link(onClick,6202889:doReplace,[])
}
Add(EventFromData,13149414,616,378)
{
}
Тема закрыта
Но ведь ясно же написано в подсказке
Поиск
Друзья
Администрация