Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Текстовый Фаил 


hooky-mars   (2002-04-14 16:50) [0]

Saluer!
Подскажите люди, как в текстовый фаил что-то написать? И чтобы можно было потом в блакноте прочесть! Очень надо!
Зарние благодарен.



hooky-mars   (2002-04-14 16:53) [1]

Пишу так:
var
F: File of TStrings;
i:integer;
StringList:Tstrings;
begin
AssignFile(F, "Unit12.html");
Rewrite(F);
try
StringList := TStringList.Create;
StringList.Text:="<html>"+FV+"</html>";
Seek(F, 1);
Write (F,StringList);
finally
CloseFile(F);
StringList.free;
end;
А получается что-то такое њЉЕ



MBo   (2002-04-14 16:53) [2]

способов уйма

Assignfile
rewrite
writeln
closefile

StringList.Savetofile
и т.д.



Anatoly Podgoretsky   (2002-04-14 16:54) [3]

Memo.Lines.SaveToFile



hooky-mars   (2002-04-14 16:55) [4]


> Anatoly Podgoretsky

В моём случаеё врядли возможен данный способ!



MBo   (2002-04-14 16:55) [5]

а что у тебя в FV ? :)



hooky-mars   (2002-04-14 16:56) [6]


> MBo

FV:String;



MBo   (2002-04-14 16:57) [7]

а строке этой какая кодировка?



hooky-mars   (2002-04-14 16:57) [8]


> MBo

Я какрас испльзую rewrite
writeln



hooky-mars   (2002-04-14 16:59) [9]


> MBo

Какой?



MBo   (2002-04-14 17:00) [10]

тебе знакомы слова Win Cp1251, Koi-8 ?



hooky-mars   (2002-04-14 17:01) [11]


> MBo

В моём случае это может быть технологически трудно, т.к. я это делаю в PageProducer`е.



hooky-mars   (2002-04-14 17:02) [12]


> MBo
Да



hooky-mars   (2002-04-14 17:04) [13]

Только Delphi 6 поставил, и сразу в эту муть полез. Ну что есть соображенния



MBo   (2002-04-14 17:04) [14]

ага, посмотрел в твой код. ты смешиваешь два метода-
либо writeln используй, либо stringlist.savetofile.
файл из tstrings, т.е. объектов - глупость



Anatoly Podgoretsky   (2002-04-14 17:05) [15]

Ешь что дают :-)
Тебе бы не мешад указать условия, что бы не нужно было повторятьсь подходит или нет.



hooky-mars   (2002-04-14 17:10) [16]


> MBo

stringlist.savetofile вообще ничего не пишет, почему-то



hooky-mars   (2002-04-14 17:11) [17]


> Anatoly Podgoretsky

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
WebAdapt, WebComp, WebUsers, WebSess, WebDisp;

type
TPageProducerPage1 = class(TWebAppPageModule)
PageProducer: TPageProducer;
WebAppComponents: TWebAppComponents;
ApplicationAdapter: TApplicationAdapter;
EndUserAdapter: TEndUserAdapter;
PageDispatcher: TPageDispatcher;
AdapterDispatcher: TAdapterDispatcher;
WebDispatcher: TWebDispatcher;
LocateFileService: TLocateFileService;
SessionsService: TSessionsService;
WebUserList: TWebUserList;
Adapter1: TAdapter;
AdapterField1: TAdapterField;
AdapterAction1: TAdapterAction;
procedure AdapterField1GetValue(Sender: TObject; var Value: Variant);
procedure WebAppPageModuleCreate(Sender: TObject);
procedure AdapterAction1Execute(Sender: TObject; Params: TStrings);
private
{ Private declarations }
FValue,FV:String;
Members : array[1..50] of TStrings;
public
{ Public declarations }
end;

function PageProducerPage1: TPageProducerPage1;

implementation

{$R *.dfm} {*.html}

uses WebReq, WebCntxt, WebFact, Variants;

function PageProducerPage1: TPageProducerPage1;
begin
Result := TPageProducerPage1(WebContext.FindModuleClass(TPageProducerPage1));
end;

procedure TPageProducerPage1.AdapterField1GetValue(Sender: TObject;
var Value: Variant);
var
F: File of TStrings;
i:integer;
StringList:Tstrings;
begin
//Value:=FValue;
AssignFile(F, "Unit12.html");
Rewrite(F);
try
StringList := TStringList.Create;
StringList.Text:="<html>"+FV+"</html>";
StringList.SaveToFile("Unit12.html");
//with StringList do begin
// Add("<html>"+FV+"</html>");
//end;
// Seek(F, 1);
//Write (F,StringList);
//for i:= 1 to Length(FValue1) do
// Write (F{,FValue1});
//except
{with Application do
begin
NormalizeTopMosts;
MessageBox("This should be on top.", "Look", MB_OK);
RestoreTopMosts;
end; }
//end;
finally
CloseFile(F);
StringList.free;
end;
end;

procedure TPageProducerPage1.WebAppPageModuleCreate(Sender: TObject);
begin
FValue:="



hooky-mars   (2002-04-14 17:11) [18]

Сделано на WebSnap



hooky-mars   (2002-04-14 17:14) [19]

На вашем же сайте начитался



MBo   (2002-04-14 17:14) [20]

StringList := TStringList.Create;
StringList.Add("<html>"+FV+"</html>");
StringList.SaveToFile("Unit12.html");
если в FV что-то есть, этого достаточно.

УБЕРИ closefile и т.п. - конфликт.



hooky-mars   (2002-04-14 17:17) [21]


> MBo

Писать записало, но мне надо чтобы програ дабаляла стороки, а не полностью их заменяла.



hooky-mars   (2002-04-14 17:19) [22]


> MBo

Да еще не где-то, а в определённых стороках(хатя это можно решить)



MBo   (2002-04-14 17:19) [23]

сначала читай, потом
StringList.Add

альтернатива - var f:textfile
и открывать Append



MBo   (2002-04-14 17:21) [24]

в опр. строках
s:=stringkist[5] //6 строка
работаешь с s
stringlist[5]:=s;



hooky-mars   (2002-04-14 17:22) [25]

Пишу таким макаром ругается, да так что я тоакого еще невидел
StringList := TStringList.Create;
write(F,StringList);
StringList.Add("<html>"+FV+"</html>");
Rewrite(F,StringList);



MBo   (2002-04-14 17:24) [26]

я уже сказал - MBo © (14.04.02 17:04)



hooky-mars   (2002-04-14 17:25) [27]


> MBo
Вя много что сказали, а что конкретно?



hooky-mars   (2002-04-14 17:25) [28]


> MBo
Вы много что сказали, а что конкретно?



MBo   (2002-04-14 17:26) [29]

выкинь F и все,что к нему относится



hooky-mars   (2002-04-14 17:28) [30]

StringList := TStringList.Create;
StringList.LoadFromFile("Unit12.html");
StringList.Add("<html>"+FV+"</html>");
StringList.SaveToFile("Unit12.html");
Вы про такое?



MBo   (2002-04-14 17:29) [31]

да, только если надо конкретные строки менять, MBo © (14.04.02 17:21)



hooky-mars   (2002-04-14 17:29) [32]

Уже делает как наодо, тока в 2 раза болбше сторок бобавляет



hooky-mars   (2002-04-14 17:33) [33]

Всё сделал, заработало как надо просто в бругую процедуру засунул!
!!!Огромное Спасибо!!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.76 MB
Время: 0.05 c
1-80879           Rammst                2002-04-14 06:22  2002.04.25  
WinXP и WinME


14-81047          undersun              2002-03-13 17:21  2002.04.25  
Как выбрать устройство через которое надо соед. по TCP/IP


1-80867           лут                   2002-04-13 15:23  2002.04.25  
как сделать анлимитед анду/реду для мемо?


14-81064          knyaz17               2002-03-19 16:34  2002.04.25  
Проблема с Oracle в Win2000!!!


1-80994           Miwa                  2002-04-12 11:48  2002.04.25  
TP7: Не то чтобы глюк, но все же...