1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Базы данных и администрирование", создана пользователем Ramzay, 25 дек 2008.

  1. Ramzay

    Ramzay Гость

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

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

    has Гость

    Репутация:
    0
    в СП же есть все)
     
  3. Ramzay

    Ramzay Гость

    Репутация:
    0
    А нельзя ли поконкретней?
     
  4. vbs

    vbs Well-Known Member

    Репутация:
    0
    Регистрация:
    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();
     
Загрузка...

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