Считать определенный текст из файла

← →
kas86 (2008-02-03 14:10) [0]

Здравствуйте, ув. знатоки Делфи! Вопрос следующего характера: Есть файл 1.txt с таким содержанием
=======================================
egiqwhehwqb723671239812738bcjbsbchd98734891273
=======================================
Каким образом прочитать из этого файла текст с 32 символа по
64-й и передать его переменной s: string;?
Раньше не сталкивался с такой проблемой! Немогу разобраться, помогите!

← →
ketmar © (2008-02-03 14:17) [1]

читай всю строку, доставай нужный кусок. слова для F1: TextFile, AssignFile, Reset, ReadLn, CloseFile, Copy.

← →
kas86 © (2008-02-03 14:22) [2]

TextFile, AssignFile, Reset, ReadLn, CloseFile, Copy - это я знаю. А вот как именно достать этот кусок из строки???? (с 32 по 64 символ)

← →
kas86 © (2008-02-03 14:26) [3]

Вот Ketmar возми и ткни носом, как из переменно стринг прочесть символ с 32 по 64-й, если её получили процд. ReadLn, что дальше??
А помошь типа "читай всю строку, доставай нужный кусок. слова для F1: TextFile, AssignFile, Reset, ReadLn, CloseFile, Copy." не пойдёт , так и я могу ответить. Если ты не начинающий программист то объясни.

← →
{RASkov} © (2008-02-03 14:28) [4]

> [0] kas86 (03.02.08 14:10)

Открыть его как F: File; читать кусками по 32 байта, второй кусок и будет нужным местом...
var F: File;
Chs: array [0..31] of Char;
begin
AssignFile(F, "21.txt");
Reset(F, 1);
BlockRead(F, Chs, 32);
BlockRead(F, Chs, 32);
ShowMessage(Chs);
CloseFile(F);
end;

> [2] kas86 © (03.02.08 14:22)
> А вот как именно достать этот кусок из строки???? (с 32
> по 64 символ)

Copy + F1

← →
{RASkov} © (2008-02-03 14:34) [5]

> [2] kas86 © (03.02.08 14:22)
> Copy - это я знаю. А вот как именно достать этот кусок из
> строки???? (с 32 по 64 символ)

Пипец :(

← →
kas86 © (2008-02-03 14:39) [6]

Спасибо! То что я хотел! Хороший пример, а не так как кетмар вопросом на вопрос отвечает.

← →
{RASkov} © (2008-02-03 14:48) [7]

> [6] kas86 © (03.02.08 14:39)

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

← →
Anatoly Podgoretsky © (2008-02-03 17:00) [8]

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

Врешь!

← →
Ник (2008-02-03 17:39) [9]

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

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

← →
ketmar © (2008-02-03 17:53) [10]

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

Understanding is not required. Only obedience. (ц)

← →
homm © (2008-02-03 21:21) [11]

Удалено модератором
Примечание: Тебя предупреждали, теперь отдохни три дня

← →
KilkennyCat © (2008-02-04 08:08) [12]

> модератором
> Примечание: Тебя предупреждали, теперь отдохни три дня

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

← →
Slym © (2008-02-04 09:58) [13]

KilkennyCat © (04.02.08 8:08) [12]
Я бы тоже с удовольствием в баньке посидел с пифком :)

← →
Fantasma (2008-02-06 01:36) [14]

var sl: TStringList; s: string; begin sl := TStringList.Create; try sl.ReadFromFile(FimeName); s := sl[1]; finally sl.Free; end end;

← →
Германн © (2008-02-06 01:40) [15]

> Fantasma (06.02.08 01:36) [14]

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

← →
Fantasma (2008-02-06 01:45) [16]

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

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

← →
Германн © (2008-02-06 01:47) [17]

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

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

← →
Fantasma (2008-02-06 01:52) [18]

читал. а ты?
там есть содержание файла, а все эти цыфры - 32, 64 - это уже воображенее автора, так что мой код вполне решает его задачу.
только LoadFromFile а не ReadFromFile

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

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

← →
Fantasma (2008-02-06 02:10) [20]

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

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

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

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

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

← →
Fantasma (2008-02-06 02:24) [22]

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

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

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

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

эххх... а у меня уж два часа как "доброе утро"

Считать определенный текст из файла Найти похожие ветки