4 / 4 / 0
Регистрация: 08.11.2012
Сообщений: 106
1

Сохранение данных с ListView в .txt и загрузка с .txt

18.05.2013, 23:43. Показов 7860. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Сохранение данных с ListView в .txt и загрузка с .txt
Помогите.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2013, 23:43
Ответы с готовыми решениями:

Сохранение и загрузка данных из ListView в txt файл
Добрый вечер! Возникла проблема при сохранении данных таблицы компонента ListView в txt файл и...

Сохранение данных из ListView в txt
Люди добрые! Вот в этом коде, открывается диалог для сохранения данных из listView. Данные реально...

Сохранение данных из ListView в txt и их считывание
подскажите пожалуйста , как из ListView сохранить данные в txt , причем сохранять нужно только...

Как брать числа из списка .txt и сохранение в другой .txt ?
Приветствую Всех Друзья! Не силен в Пайтоне, но нужно изменить код. В этом скрипте есть формула...

10
angstrom
18.05.2013, 23:51 2
Загрузи в StringList и раскидывай строки в Caption и SubItem по разделителю. Сохранение - обратный процесс. Собираем данные в строки, добавляем в StringList, сохраняем.
4 / 4 / 0
Регистрация: 08.11.2012
Сообщений: 106
18.05.2013, 23:55  [ТС] 3
Можно пример пожалуйста ?
0
angstrom
19.05.2013, 00:16 4
Сохранить в текстовый файл
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  I, J : Integer;
  F : TextFile;
  S : String;
begin
  AssignFile(F, '123.txt');
  Rewrite(F);
  for I := 0 to LV.Items.Count - 1 do
  begin
    S := LV.Items.Item[I].Caption + ',';
    for J := 0 to LV.Items.Item[I].SubItems.Count - 1 do
      S := S + LV.Items.Item[I].SubItems.Strings[J] + ',';
    SetLength(S, Length(S) - 1);  
    WriteLn(F, S);
  end;
  CloseFile(F);
end;
4 / 4 / 0
Регистрация: 08.11.2012
Сообщений: 106
19.05.2013, 00:31  [ТС] 5
А загрузить ?
0
angstrom
19.05.2013, 00:38 6
Грузим
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  I  : Integer;
  F  : TextFile;
  S  : String;
  sl : TStringList;
  ListItem : TListItem;
begin
  if FileExists('123.txt') then
  begin
    sl := TStringList.Create;
    sl.Delimiter := ',';
    AssignFile(F, '123.txt');
    Reset(F);
    while not Eof(F) do
    begin
      ReadLn(F, S);
      sl.DelimitedText := S;
      ListItem := LV.Items.Add;
      ListItem.Caption := sl.Strings[0];
      for I := 1 to sl.Count - 1 do
        ListItem.SubItems.Add(sl.Strings[I]);
    end;
    sl.Free;
    CloseFile(F);
  end;
end;
4 / 4 / 0
Регистрация: 08.11.2012
Сообщений: 106
19.05.2013, 00:41  [ТС] 7
Большое спасибо !!!
0
0 / 0 / 1
Регистрация: 15.10.2013
Сообщений: 7
20.01.2014, 16:47 8
Уважаемые...тема не актуальна, но может кто ответит...
Как из этого кода теперь запускать ярлыки программно?

Метод шелл не приводит к желаемому результату

Код
ShellExecute(Application.MainForm.Handle,'Open',PChar(ListView1.Selected.SubItems[0]),Nil,Nil,SW_SHOW);
0
0 / 0 / 0
Регистрация: 27.03.2015
Сообщений: 156
09.04.2019, 12:18 9
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  I  : Integer;
  F  : TextFile;
  S  : String;
  sl : TStringList;
  ListItem : TListItem;
begin
  if FileExists('123.txt') then
  begin
    sl := TStringList.Create;
    sl.Delimiter := ',';
    AssignFile(F, '123.txt');
    Reset(F);
    while not Eof(F) do
    begin
      ReadLn(F, S);
      sl.DelimitedText := S;
      ListItem := LV.Items.Add;
      ListItem.Caption := sl.Strings[0];
      for I := 1 to sl.Count - 1 do
        ListItem.SubItems.Add(sl.Strings[I]);
    end;
    sl.Free;
    CloseFile(F);
  end;
end;
Проверил вот это код для загрузки. Если между слова есть пробел, то загружает все до пробела.
Т.е. в файла сохранено вот так:
1,Яблочный сок
2,Вишня
3,Слива

Я по факту грузит только Яблочный во второй столбец.

Подскажите пожалуйста как исправить проблему ?
0
5422 / 4343 / 1069
Регистрация: 29.08.2013
Сообщений: 27,243
Записей в блоге: 3
09.04.2019, 14:14 10
у StringList есть SaveToFile() и LoadFromFile()
надо их и использовать
0
0 / 0 / 0
Регистрация: 27.03.2015
Сообщений: 156
09.04.2019, 14:16 11
Цитата Сообщение от qwertehok Посмотреть сообщение
у StringList есть SaveToFile() и LoadFromFile()
надо их и использовать
Понял, спасибо. Сейчас буду разбираться в этом направлении.
0
09.04.2019, 14:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2019, 14:16
Помогаю со студенческими работами здесь

Чтение данных с одного txt файла, запись данных во второй txt в определенную позицию
Добрый день, уважаемые форумчане! Нужна ваша помощь. Задача поставлена так: существует файл...

Запись данных из listView в txt (построчно)
Всем привет! Сабж. Есть листВиев в нем N строчек, как записать все эти строки в txt файл? (если...

Сохранение данных в txt
Мне нужно на страницу добавить 2 текстовых поля и кнопку, а в HTML я полный 0. В первое поле...

Сохранение данных в txt
Здравствуйте, мне помогите пожалуйста с кодом: мне нужно сделать так чтобы ответ сохранялся в txt...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru