Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Считать определенный текст из файла [D7, WinXP]

Страницы: 1 2 >
kas86 © (2008-02-03 14:10:00)
Здравствуйте, ув. знатоки Делфи! Вопрос следующего характера: Есть файл 1.txt с таким содержанием
=======================================
egiqwhehwqb723671239812738bcjbsbchd98734891273
=======================================
Каким образом прочитать из этого файла текст с 32 символа по
64-й и передать его переменной s: string;?
Раньше не сталкивался с такой проблемой! Немогу разобраться, помогите!

Германн (2008-02-06 02:50:00) [1]

> tButton © (06.02.08 02:46) [24]
>
> эххх... а у меня уж два часа как "доброе утро"
>

Для меня это не проблема. :-)

tButton (2008-02-06 02:46:00) [2]
эххх... а у меня уж два часа как "доброе утро"

Германн (2008-02-06 02:27:00) [3]

> Fantasma (06.02.08 02:24) [22]
>
>
> > А я их и не выключал (мозги). "Поймешь" пишется с мягким
> знаком
> > на конце. "Может" пишется через е.
>
>
> тыкать лень))
>

Тогда - Спокойной ночи!

Fantasma (2008-02-06 02:24:00) [4]

> А я их и не выключал (мозги). "Поймешь "пишется с мяг ким знаком
> на конце. "Может "пишется через е.

тыкать лень))

Германн (2008-02-06 02:19:00) [5]

> Fantasma (06.02.08 02:10) [20]
>
>
> > Германн © (06.02.08 02:02) [19]
>
>
> > А где и как ты в содержании файла увидел разделение на
> строки?
>
>
> включи мозги(с) и поймеш, что там они есть, их не можит
> не быть
>

А я их и не выключал (мозги). Поймеш ьпишется с мягим знаком на конце. Мож ет пишется через е.
Ну мне надоело всё это. Если я дурак, ткни меня мордой в конкретное место. Если не можешь, то дурак - ты.

Fantasma (2008-02-06 02:10:00) [6]

> Германн © (06.02.08 02:02) [19]

> А где и как ты в содержании файла увидел разделение на строки?

включи мозги(с) и поймеш, что там они есть, их не можит не быть

Германн (2008-02-06 02:02:00) [7]

> Fantasma (06.02.08 01:52) [18]
>
> читал. а ты?
> там есть содержание файла, а все эти цыфры - 32, 64 - это
> уже воображенее автора, так что мой код вполне решает его
> задачу.

???
P.S. Ц ифры пишутся через и. Воображен ие автора тоже.
P.P.S. А где и как ты в содержании файла увидел разделение на строки? Что дало тебе повод выдать в результате именно sl[1]?

Fantasma (2008-02-06 01:52:00) [8]
читал. а ты?
там есть содержание файла, а все эти цыфры - 32, 64 - это уже воображенее автора, так что мой код вполне решает его задачу.
только LoadFromFile а не ReadFromFile

Германн (2008-02-06 01:47:00) [9]

> Fantasma (06.02.08 01:45) [16]
>
>
> > Германн © (06.02.08 01:40) [15]
>
>
> что-то не так?
>

Эээ, нуу. А ты сабж читал?

Fantasma (2008-02-06 01:45:00) [10]

> Германн © (06.02.08 01:40) [15]

что-то не так?

Германн (2008-02-06 01:40:00) [11]

> Fantasma (06.02.08 01:36) [14]

Ошибся веткой или не включил мозги?

Fantasma (2008-02-06 01:36:00) [12]
var sl: TStringList; s: string; begin sl := TStringList.Create; try sl.ReadFromFile(FimeName); s := sl[1]; finally sl.Free; end end;

Slym (2008-02-04 09:58:00) [13]
KilkennyCat © (04.02.08 8:08) [12]
Я бы тоже с удовольствием в баньке посидел с пифком :)

KilkennyCat (2008-02-04 08:08:00) [14]
> модератором
> Примечание: Тебя предупреждали, теперь отдохни три дня

мне бы тоже отдохнуть... эх... оплачиваемо...

homm (2008-02-03 21:21:00) [15]
Удалено модератором
Примечание: Тебя предупреждали, теперь отдохни три дня

ketmar (2008-02-03 17:53:00) [16]
>[7] {RASkov} ©(03.02.08 14:48)
конечно, копипаст. это ж модно сейчас — заучивать мантры.

Understanding is not required. Only obedience. (ц)

Ник (2008-02-03 17:39:00) [17]
var F: file;
S; String[33]; //если с 32-го по 64-й и не забывать, что счет начинается с 0
.....
Assign();
Reset(F, 1); //возможно и не обязательно
Seek(F, 32);
BlockRead(F, S, SizeOf(S));
Close(F);

Думаю, что в S получишь, то чего просишь

Anatoly Podgoretsky (2008-02-03 17:00:00) [18]

> TextFile, AssignFile, Reset, ReadLn, CloseFile, Copy- это
> я знаю.

Врешь!

{RASkov} (2008-02-03 14:48:00) [19]
> [6] kas86 © (03.02.08 14:39)

А ты не задумывался, что в данном случае кетмар прав?
А если не так, то попробуй написать код, пусть основанный на моем примере, но законченный по всем правилам написания кода в таких случаях...
т.е. как ты для себя увидел ответ? Или простой копипаст тебя спас???

kas86 (2008-02-03 14:39:00) [20]
Спасибо! То что я хотел! Хороший пример, а не так как кетмар вопросом на вопрос отвечает.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »