| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблема открытия текстового файла, если в нем есть кавычки!

Dextor ©   (2004-10-07 18:42:00) 

Дарова! Подскажите, PLEASE, че за ... ? Короче:
 
var
 F: TextFile;
 S: String;

begin
 AssignFile(F, '...');
 Reset(F);
 Read(F, S);
 Reset(F);
 Memo1.Lines.Text := S;
 CloseFile(F);
end;

короче если в файле есть ковычки, он читает до них!!! А дальше не фига!

Как это испрваить???

И еще, если вас не затруднит:

var
 F: TextFile;
 S: String;

begin
 AssignFile(F, '...');
 Reset(F);
 Read(F, S);
 Reset(F);
 CloseFile(F);
end;

Как прочитать из открытыго файла, все, что допустим после слова "start" и перед словом "End" (к примеру, все где инть в середине файла)

file:

 dsfsdfwfwefw
efwefwefwefwerfr
gfegegegergg "start"
dsfdwfwf
wdfwf
th
yj
k
ik
il
o
l
"end"

---

Gero   (2004-10-08 19:10:00) [1]

> DIS   (08.10.04 18:59)

Я тебе дал алгоритм, уже даже переведенный на Delphi.
Именно алгоритм, а не готовую процедуру.
Включай мозги. В хелпе все есть.

---

DIS   (2004-10-08 18:59:00) [2]

Хотелось бы продолжить тему
> > Как прочитать из открытыго файла, все, что допустим после
> > слова "start" и перед словом "End" (к примеру, все где
> инть  в середине файла)
Есть похожая задача если выполнить следующий код вылетает ошибка 104 - если я мне не изменяет память это означает типа файл не открыт или не прочитан. а файл мы читаем так AssignFile(F, 'c:\00.prn');? если да то как правильно его вставить в код.
var
S: string;
Start: Boolean;
List: TStringList;
F: TextFile;
begin
Start := False;
while not SeekEof(F) do
begin
  Readln(F, S);
  if Pos('start', S) > 0 then
    Start := True
  else if Pos('end', S) > 0 then
    Break
  else if Start then
    List.Add(S);
    end;
end;

---

Gero   (2004-10-07 22:53:00) [3]

> Как прочитать из открытыго файла, все, что допустим после
> слова "start" и перед словом "End" (к примеру, все где инть
> в середине файла)


var
 S: string;
 Start: Boolean;
 List: TStringList;
...
Start := False;
while not SeekEof(F) do
 begin
   Readln(F, S);
   if Pos('start', S) > 0 then
     Start := True
   else if Pos('end', S) > 0 then
     Break
   else if Start then
     List.Add(S);
 end;


---

kaZaNoVa   (2004-10-07 22:11:00) [4]

>var
>F: TextFile;
>S: String;
>
>begin
>AssignFile(F, '...');
>Reset(F);
>Read(F, S);
>Reset(F);
>CloseFile(F);
> end;

зачем 2 раз Reset(F);  ?

---

Dextor   (2004-10-07 22:06:00) [5]

Впринципе понятно, что Memo1.Lines.LoadFromFile !
А как:
И еще, если вас не затруднит:

var
F: TextFile;
S: String;

begin
AssignFile(F, '...');
Reset(F);
Read(F, S);
Reset(F);
CloseFile(F);
end;

Как прочитать из открытыго файла, все, что допустим после слова "start" и перед словом "End" (к примеру, все где инть в середине файла)

file:

dsfsdfwfwefw
efwefwefwefwerfr
gfegegegergg "start"
dsfdwfwf
wdfwf
th
yj
k
ik
il
o
l
"end"

---

Gero   (2004-10-07 18:51:00) [6]

> var
>  F: TextFile;
>  S: String;
>
> begin
>  AssignFile(F, '...');
>  Reset(F);
>  Read(F, S);
>  Reset(F);
>  Memo1.Lines.Text := S;
>  CloseFile(F);
> end;

Memo.Lines.LoadFromFile

---

begin...end   (2004-10-07 18:48:00) [7]

Дарова!

> Reset(F);
>  Read(F, S);
>  Reset(F);
>  Memo1.Lines.Text := S;  

Чё это за ..... ?

---

Наверх