Показать строку из файла

Форумы Помощь по пакетуПоказать строку из файла ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 253

Рейтинг: 0

#1: 2019-03-30 23:51:33 ЛС | профиль | цитата

Друзья подскажите как быстро прочитать строку из txt и удалить его. пытаюсь вот так вот. но нечего не выходит


Add(MainForm,2953706,21,105)
{
}
Add(FileSearch,16583813,119,119)
{
 Ext="*.txt"
 Dir="."
 FullName=1
 link(onSearch,6337218:doText,[])
}
Add(Timer,8362068,70,119)
{
 Interval=500
 link(onTimer,16583813:doSearch,[])
}
Add(Edit,6337218,168,119)
{
 Left=25
 Top=15
 Width=350
 link(onChange,9377437:doOpen,[])
}
Add(FileTools,10670693,315,105)
{
 FileName="1.txt"
}
Add(RichEdit,1399645,259,119)
{
 Left=20
 Top=55
 Width=345
 Height=85
 link(onChange,10670693:doDelete,[])
}
Add(FileStream,9377437,210,119)
{
 FileName="1.txt"
 Mode=2
 Point(doPosition)
 Point(doCopyFromStream)
 link(onLoad,1399645:doAdd,[])
}

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 30

Рейтинг: 3

#2: 2019-03-31 08:41:46 ЛС | профиль | цитата

Посмотри может так тебя устроит.


Add(MainForm,2953706,21,105)
{
 Width=396
 Position=1
}
Add(Edit,6337218,175,98)
{
 Left=5
 Top=5
 Width=370
 Text=""
}
Add(FileTools,10670693,175,147)
{
 link(FileName,6337218:Text,[])
}
Add(DropFile,8150274,77,105)
{
 link(onDropFile,2678679:doEvent1,[])
}
Add(Hub,2678679,126,105)
{
 OutCount=3
 link(onEvent1,6337218:doText2,[])
 link(onEvent2,11847080:doLoad,[])
 link(onEvent3,10670693:doDelete,[(156,125)(156,167)])
}
Add(Memo,11847080,224,84)
{
 Left=5
 Top=30
 Width=370
 Height=225
 ScrollBars=2
}

карма: 0

Ответов: 8887

Рейтинг: 823

#3: 2019-03-31 14:13:07 ЛС | профиль | цитата

egorhay, по всей видимости вы желаете каждые полсекунды корректировать какой-то ЛОГ-файл чужой программы?
Если открыть и заменять файл в который в этот момент заносит данные другая программа, то возникнет ошибка.

карма: 19

Ответов: 253

Рейтинг: 0

#4: 2019-03-31 15:21:57 ЛС | профиль | цитата

Леонид, да, но не не нужно вносить. только считывать короткие фразы в этом txt. я решил вопрос вот так вот. дабы каждый раз не вызывать событие поставил проверку даты изменения txt файла. вроде все работает как мне нужно. А если показать полную картину. То у меня есть сайт который выполняет определенный javaScript и результат передает его php, а он его сохраняет на сервер в виде 1.txt . Моя программа считывает данные из этого txt. Я просто не придумал как по другому реализовать. Так как нужно мгновенное считывание при появление новой информации.

Код


Add(MainForm,2953706,42,14)
{
 Width=391
 Height=385
}
Add(FileSearch,16583813,105,91)
{
 Ext="*.txt"
 Dir="."
 FullName=1
 Point(DateModifyReal)
 link(onSearch,13672602:doText,[(149,97)(149,121)(93,121)(93,146)])
}
Add(Timer,8362068,56,91)
{
 Interval=500
 link(onTimer,16583813:doSearch,[])
}
Add(RichEdit,1399645,364,56)
{
 Left=320
 Width=35
 Height=20
 Visible=1
 FileName="1.txt"
 link(onChange,14687229:doCharset,[])
}
Add(Edit,9627048,574,56)
{
 Left=10
 Top=10
 Width=355
 Text=""
}
Add(Charset,14687229,413,56)
{
 Type=7
}
Add(Timer,9139171,182,154)
{
 Interval=200
 Enable=1
 AutoStop=1
 link(onTimer,2238041:doValue,[(222,160)(222,153)])
}
Add(GetDataEx,1951607,105,182)
{
 link(Data,13672602:Text,[])
}
Add(Hub,16537441,147,140)
{
 OutCount=3
 link(onEvent2,14000620:doTimer,[(173,153)(173,181)(65,181)(65,209)])
 link(onEvent3,9139171:doTimer,[])
}
Add(Timer,14000620,77,203)
{
 Interval=100
 Enable=1
 AutoStop=1
 link(onTimer,2902057:doCompare,[])
}
Add(Edit,13672602,105,140)
{
 Left=10
 Top=30
 Width=355
 Text=""
 link(onChange,16537441:doEvent1,[])
 link(Str,16583813:DateModifyReal,[(111,132)(125,132)])
}
Add(If_else,2902057,119,203)
{
 link(onFalse,1399645:doLoad,[(293,216)(293,83)])
 link(Op1,6828693:Var3,[(125,194)])
 link(Op2,2238041:Value,[(132,191)(237,191)])
}
Add(GetDataEx,6828693,105,189)
{
 link(Data,1951607:Var2,[])
}
Add(Memory,2238041,231,147)
{
 Point(Data)
 link(Data,1951607:Var3,[(237,135)(175,135)(175,187)])
}

карма: 0

Ответов: 2197

Рейтинг: 673

#5: 2019-03-31 19:01:16 ЛС | профиль | цитата

egorhay, у HiAsm появилось тайное общество почитателей Timer-ов и вы в него вступили?
Если серьезно, то зачем в вашей схеме три таймера. Один понятно, а остальные два?

карма: 11

Ответов: 253

Рейтинг: 0

#6: 2019-04-02 20:59:47 ЛС | профиль | цитата

Да есть такое) Вот так вот я люблю таймеры.

карма: 0

Форумы Помощь по пакетуПоказать строку из файла ← Ctrl1Ctrl →


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