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

Тема в разделе "1C и всё что с ней связано", создана пользователем Ramzay, 25 дек 2008.

  1. Ramzay

    Ramzay Гость

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

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

    has Гость

    в СП же есть все)
     
  3. Ramzay

    Ramzay Гость

    А нельзя ли поконкретней?
     
  4. vbs

    vbs Well-Known Member

    Регистрация:
    18 фев 2007
    Сообщения:
    1.708
    Симпатии:
    3
    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();
     
Загрузка...

Поделиться этой страницей