Чтение не по одной строке, а сразу по несколько строк

_DEN_ · 3 дек 2010

Раз пошло такое дело, то вариант и от меня:

Код (Text):

int main

{

boost::asio::windows::stream_handle stream(CreateFile(...));

boost::system::error_code err;

std::size_t count = 0;

for(; !err; ++count)

{

boost::asio::read_until(stream, "начало_акта", err);

if(!err)

{

boost::asio::read_until(stream, "конец_акта", err);

}

}

return 0;

}

PSR1257 · 3 дек 2010

0) Эти акты - это не про выгрузку ли из 1С случайно?
1) Прогресс бар выводить в цикле обработки - не моветон-с? (Отдельный тред с пониженным приоритетом читающий дворд bytesRead спасет? "мать" русской демократии?)

Z3N · 3 дек 2010

PSR1257
отлично, что мать взяли в ковычки, у меня тоже есть сомнения, что это отец...

Судя по всему производительность их не особо интересует...

_DEN_
Самый лёгкий вариант
Пускай подгруз и поиск производит буст

RX200 · 3 дек 2010

В некотором царстве, в некотором государстве жил-был принц(RX200), шол как то, принц мимо, дворца. Видит, сидит Луна в виде служащих, пригорюнилась репу чешет =), принц подошол и спросил - чего горюем? -. Луна отвечает - да вот царь поднапряг, читать его приспичело -. Ну принцу жалко стало Луну, почесал он зад, и сказал - забей на бэйсик, создай файл name.hta, и впиши в него вот это:

Код (Text):

<html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

<title>Луна</title>

<HTA:APPLICATION navigable="yes"

contextMenu="no"

scroll="auto"

windowState="maximize" />

<SCRIPT type="text/javascript">

var fso = new ActiveXObject("Scripting.FileSystemObject");

var sp=0;

function fff(){

var file = fso.OpenTextFile(document.getElementById('file').value);

var xxx='<input type="button" onClick="fs(1)" value="следующие 10">\

<input type="button" onClick="fs(0)" value="предведущие 10"> стр: <b>'+(sp+1)+'</b><br>';

for(i=0;i<10*sp;i++)file.SkipLine();

for(i=0;i<10;i++)xxx+=file.ReadLine()+"<br>";

file.Close();

document.getElementById('tx').innerHTML=xxx;}

function fs(x){

if(x)sp++;

else if(--sp<0)sp=0;

fff()}

</SCRIPT></head><body>

Введите имя файла: <input type="text" id="file" value="test.txt"><br>

<input type="button" onClick="fff()" value="читать"><br>

<span id="tx"></span></body></html>

Фиг знает, подойдёт Луне в виде служащих, или нет, но как вариант имеет право быть =)

dZentle_man · 3 дек 2010

Бугога, еще и html+javascript. Ждем примеров на лиспе, хаскеле и луа) А еще лучше на языке Ада) Все что угодно, кроме того что надо) И кто просил готовых примеров стате? Дайте человеку помыслить творчески.

Luna · 3 дек 2010

dZentle_man

Дайте человеку помыслить творчески.
Нажмите, чтобы раскрыть...

Если этот человек будет продолжать в том же духе творчески мыслить, то лет через 20 может из этого и выйдет что-то толковое ))

Ой, столько кодов , ой да на стольких разных языках
ой прямо сплошные эмоции =)
неделька понадобится на переваривание всего этого)))
и ещё неделька на перевод всего на visual basic))

reversecode · 3 дек 2010

луна купи себе книгу по визуал бейсику и не морочь голову))

dZentle_man · 3 дек 2010

Luna сказал(а):

dZentle_man

Дайте человеку помыслить творчески.
Нажмите, чтобы раскрыть...

Если этот человек будет продолжать в том же духе творчески мыслить, то лет через 20 может из этого и выйдет что-то толковое ))
Нажмите, чтобы раскрыть...

Ну... В зависимости от количества уже имеющихся знаний, это может занять от недели до месяца, а то и полугода. Зато потом все становится ясно и уже любая задача под силу. Первый язык, доведенный до ума, - он трудный самый. Я ж говорю что в ваших сорцах разобрался даже не зная синтаксиса бейсика) Впрочем, если бы я начинал с него - то мог бы до сих пор даже его не понимать. На мой взгляд нет ничего проще ассемблера, а после него Си и плюсов(если в последних не сильно углубляться), потому что эти языки точно отображают как работает процессор и операционная система. А всякие бейсики - это уже абстрактная надстройка, которая отображает в основном то, как авторы представляют себе простой для понимания язык) И у меня обычно с такими авторами полное непонимание) Хотя многие тут со мной бы не согласились, даже великий крис касперски)

Ой, столько кодов , ой да на стольких разных языках
ой прямо сплошные эмоции =)
неделька понадобится на переваривание всего этого)))
Нажмите, чтобы раскрыть...

А вот эти коды вы будете разбирать долго, а когда и если разберете, то поймете что к вашей задаче они относятся очень отдаленно, ничуть не ближе атрибута чтения по одной строке) Вы бы лучше на форум по бейсику, там наверняка набегут толпы белых рыцарей с готовыми кодами. Ну это если вам думать надоело)

RX200 · 3 дек 2010

dZentle_man

А вот эти коды вы будете разбирать долго, а когда и если разберете, то поймете что к вашей задаче они относятся очень отдаленно
Нажмите, чтобы раскрыть...

А вы то задачу поняли????
Объясняю))) Жил был царь.... и в друг ему приспичило)) Читать из файла по десять строк)
Luna
Перед началом чтения по актам известно общее количество актов? и вообще вы сами то понимаете чего хотите?? и зачем вам прогресс бар? и почему именно по актам а не по байтам? и вообще, чего вы ждали написав сюда?
И главное! Ничего удивительного нет, в том что тут не на бэйсике написали. Было бы странно по моему, если бы люди любящие ассемблер, в большинстве своём, любили и бэйсик. Это очень далёкие по своей сути языки.

Чем более понятно вы объясните чего хотите, тем более подходящий ответ получите. И также подумайте об уместности вашего поста, если вам нужно именно на бэйсике, есть другие форумы где наверное, "войны бэйсика" готовые вам помочь.
Вам об этом, уже много кто сказа.
Почему вы написали свой пост именно тут? Если у вас проблема с бэйсик кодом.

P.S. В общем ближе к делу, Луна вы ассемблер любите?

_DEN_ · 4 дек 2010

Luna

Когда уже будут сиськи?

cresta · 4 дек 2010

_DEN_

Great отправит тя в баню, там и сиськи будут

KeSqueer · 4 дек 2010

cresta
Great'у глубоко похуй что происходит на форуме.

l_inc · 4 дек 2010

А спорим, что на форуме нет никого (кроме меня, естественно ), кто может вот так?

Код (Text):

FUN showFileData: com[void]

DEF showFileData ==

ask("File name: ") & (\\ fName .

ask("Number of lines to read: ") & (\\ linesNum .

open(fName,"r") & (\\ fHandle .

readFileLines(linesNum,fHandle) & (\\ resString .

write(

"--------------File contents:--------------\n"

++ resString ++

"----------------End of file----------------"

) &

flush (stdOut) &

close(fHandle) ))))

FUN readFileLines: nat ** file -> com[denotation]

DEF readFileLines (linesNumber,fHandle) ==

eof?(fHandle) & (\\ eofReached .

IF linesNumber = 0 or eofReached THEN

succeed("")

ELSE

readLine(fHandle) & (\\ fileLine .

readFileLines(linesNumber-1,fHandle) & (\\ readyData .

succeed(`(fileLine) ++ "\n" ++ readyData) ))

FI)

dZentle_man · 4 дек 2010

l_inc сказал(а):

А спорим, что на форуме нет никого (кроме меня, естественно ), кто может вот так?
Нажмите, чтобы раскрыть...

Как грится, и козу на возу можно. Но чтобы этим гордиться...

wasm_test · 4 дек 2010

_DEN_, как я и обещал

wasm_test · 4 дек 2010

KeSqueer
ваще сообщение заставляет меня плакать

KeSqueer · 4 дек 2010

Прошу прощения, видимо Вам всё же не всё равно. Однако такое впечатление складывается порой после 10 страниц флудотопиков.

oleg5451 · 4 дек 2010

Z3N

Ну, удаления сообщения тебя бы не остановило
Нажмите, чтобы раскрыть...

Ну дык просто бы тему закрыли.

У вас неправильное представление о шизофрениках. Они обычно спокойные люди. А вообще у каждого своя реальность и каждый по разному интепретирует факты и строит теории. Вот, почитайте http://www.koob.ru/korkina_m_v/psihiatriya_korkina

Arthur · 6 дек 2010

Внесу свою лепту

Читает по десять строк

Код (Text):

count = 0

acts = {}

instr = ""

for line in io.lines("test.txt") do

instr = instr..line.."\r\n"

count = count + 1

if count == 10 then count = 0; table.insert(acts, instr); instr = "" end

end

-- print results

for act in pairs(acts) do print(acts[act]) end

P. S. на родном языке Луны )))

Arthur · 6 дек 2010

а вот и вариант с интеллектуальным разбором актов

Код (Text):

acts = {}

instr = ""

start = false

for line in io.lines("test.txt") do

if line == "begin_act" then start = true end

if start then

instr = instr..line.."\r\n"

if line == "end_act" then

table.insert(acts, instr); instr = ""

start = false

end

end

end

Войти или зарегистрироваться

Чтение не по одной строке, а сразу по несколько строк

_DEN_ DEN

PSR1257 New Member

Z3N New Member

RX200 New Member

dZentle_man New Member

Luna New Member

reversecode Guest

dZentle_man New Member

RX200 New Member

_DEN_ DEN

cresta Active Member

KeSqueer Сергей

l_inc New Member

dZentle_man New Member

wasm_test wasm test user

wasm_test wasm test user

KeSqueer Сергей

oleg5451 New Member

Arthur New Member

Arthur New Member

Войти или зарегистрироваться

Чтение не по одной строке, а сразу по несколько строк

_DEN_ DEN

PSR1257 New Member

Z3N New Member

RX200 New Member

dZentle_man New Member

Luna New Member

reversecode Guest

dZentle_man New Member

RX200 New Member

_DEN_ DEN

cresta Active Member

KeSqueer Сергей

l_inc New Member

dZentle_man New Member

wasm_test wasm test user

wasm_test wasm test user

KeSqueer Сергей

oleg5451 New Member

Arthur New Member

Arthur New Member

Быстрый поиск