Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

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

← →
Dextor   (2004-10-07 18:42) [0]

Дарова! Подскажите, 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"

---

← →
begin...end ©   (2004-10-07 18:48) [1]

Дарова!

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

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

---

← →
Gero ©   (2004-10-07 18:51) [2]

> 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

---

← →
Dextor   (2004-10-07 22:06) [3]

Впринципе понятно, что 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"

---

← →
kaZaNoVa ©   (2004-10-07 22:11) [4]

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

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

---

← →
Gero ©   (2004-10-07 22:53) [5]

> Как прочитать из открытыго файла, все, что допустим после
> слова "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;


---

← →
DIS   (2004-10-08 18:59) [6]

Хотелось бы продолжить тему
> > Как прочитать из открытыго файла, все, что допустим после
> > слова "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-08 19:10) [7]

> DIS   (08.10.04 18:59)

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.025 c