Сохранение и восстанвление текста в файле

  • Автор темы Ramzay
  • Дата начала
R

Ramzay

#1
Нужно прочитать текстовый файл и его содержимое поместить в многострочное поле ввода.
Пользователь изменяет это поле. Далее, нужно записать значение в текстовый файл.

Как это сделать?
 

vbs

Well-known member
18.02.2007
1 708
1
#4
FS.SelectFile(0,ФайлИмпорта,ИмяКаталога,"Выберите файл для загрузки","*.txt|*.txt","txt");
TXT = CreateObject("Text");
//Message("Файл "+ФайлИмпорта+" выбран");
if Find(ФайлИмпорта,".txt") = 0 then
ФайлИмпорта = ФайлИмпорта+".txt"
endif;
if FS.ExistFile(TrimAll(ИмяКаталога) + TrimAll(ФайлИмпорта)) = 0 then
DoMessageBox("Указанного Вами файла не существует :blink:");
Return;
endif;

TXT.Open(TrimAll(ИмяКаталога) + TrimAll(ФайлИмпорта));
InputField = ""; //InputField - поле ввода, подлежащее изменению
Message("Файл "+ИмяКаталога+ФайлИмпорта+" открыт");
N = 0;
TXTLength = TXT.LinesCnt();
Message("В тексте "+" "+TXTLength+" строк");
while N < TXTLength do
N = N + 1;
ТекстСтроки = TXT.GetLine(N);
InputField = InputField +ТекстСтроки+LineBreak;
enddo;
// прочитали текст и поместили в поле ввода

// теперь аналогичным образом сохраняем измененное поле ввода в текстовом файле
TXT.Clear();
Field = InputField;
Def = 1;
TXTLength = StrLen(Field);
While Def > 0 do
Def = Find(InputField,LineBreak);
ТекстСтроки = Left(Field,Def-1);
TXT.AddLine(ТекстСтроки);
TXTLength = TXTLength-Def;
Field = Right(Field,TXTLength);
enddo;
TXT.Write();