CSV/ru: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Обзор
2	2
3	3		CSV означает Comma-Separated Values (значения, разделенные запятыми) и является популярным форматом файлов, который, к сожалению, не полностью стандартизирован.
4	4
5	5		Это текстовый формат файла с
6	6
7	7		- полями данных, разделенными запятыми (или, в некоторых случаях, другими символами, такими как табуляции и точки с запятой)
8	8		- строкой заголовка, в которой перечислены имена полей (которой может и не быть)
9	9		- данными полей, содержащих разделители, которые могут быть запрещенными или быть заключенными в кавычки (чаще всего это знак двойной кавычки)
10	10		- окончаниями строк (#13 и/или \#10), которые могут или не могут быть разрешены в данных полей
11	11
12	12		RFC4180 (см.[здесь](http://www.rfc-editor.org/rfc/rfc4180.txt)) пытается кодифицировать и стандартизировать существующую практику; имеет смысл соответствовать этому стандарту при записи данных CSV (и принимать все данные RFC4180 при чтении).
13	13
14	14		Другая, альтернативная, спецификация может быть найдена [здесь](http://www.creativyst.com/Doc/Articles/CSV/CSV01.htm#FileFormat)
15	15
16	16		Образец фрагмента CSV:
17	17
18		-	~~```~~
	18	+	```text
19	19		FirstName,Surname,DOB,Remarks
20	20		Jim,Weston,19560818,"Also known as ""The Butcher"""
21	21		Alice,Cooper,19760312,""
22	22		```
23	23
24	24		Как видно, здесь используется строка заголовка, как и квотирование с использованием двойных кавычек.
25	25
26	26		Пакеты электронных таблиц, такие как Microsoft Excel и OpenOffice/LibreOFfice Calc, могут экспортировать и импортировать из этого формата. Однако, поскольку Microsoft Excel может интерпретировать некоторые поля, такие как поля даты, по-разному в зависимости от языкового стандарта операционной системы пользователя, возможно целесообразнее найти альтернативные способы передачи данных (например, используя код [[FPSpreadsheet]]).
27	27
28	28		## CSV и SDF
29	29
30	30		Delphi (и FreePascal) имеют очень похожий (но не идентичный) формат SDF. См. [[SDF]] для получения более подробной информации.
31	31
32	32		## Реализации
33	33
34	34		### CsvDocument
35	35
36	36		[[CsvDocument/ru\|CsvDocument]] является надежной реализацией как CSV-формата RFC 4180 ,так и альтернативного CSV-формата Creativyst/Excel. Он предлагает как линейный, так и документный доступ. Рекомендуется для использования с FPC/Lazarus. См. [[CsvDocument/ru\|CsvDocument]].
37	37
38	38		### DelimitedText
39	39
40	40		TStringList предлагает свойство `DelimitedText`. Оно разбивает строку текста на отдельные поля. Обратите внимание, однако, что `DelimitedText` должен быть в SDF-формате, специфичном для Delphi, который очень похож на CSV, но не полностью соответствует RFC4180.
41	41
42	42		Совет: при чтении данных CSV установите для свойства StrictDelimiter значение `true`.
43	43
44	44		При записи CSV-данных установите для StrictDelimiter значение `false` и выведите свойство DelimitedText. Тут есть одна странность, заключающаяся в том, что, например, символы табуляции удаляются при записи данных с использованием `StrictDelimiter:=false`
45	45
46	46		#### Формат SDF
47	47
48	48		См. [[SDF\|формат SDF]]
49	49
50	50		### SDFDataset
51	51
52	52		FreePascal предлагает [[TSdfDataSet/ru\|TSdfDataSet]], который хранит данные в формате SDF. Примечание: FPC 2.6.x и более ранние версии хранят данные sdfdataset в формате, который не является полностью CSV или SDF-совместимым. Sdfdataset планируется переписать для хранения данных в формате CSV.
53	53
54	54		Как указано, [[SDF]] отличается от CSV. В зависимости от разновидности CSV этот формат может быть достаточно близок к тому, что ожидает от него читающее приложение.
55	55
56	56		> Warning:
57	57
58	58		> Note:
59	59
60	60		#### Файлы с примерами TSdfDataset и TFixedDataset
61	61
62	62		- Пример SDF-файла
63	63
64	64
65	65		Ниже приведен пример базы данных для TSdfDataset. Обратите внимание, что в первой строке указаны имена полей и мы используем запятые в качестве разделителей:
66	66
67	67		ID,NAMEEN,NAMEPT,HEIGHT,WIDTH,PINS,DRAWINGCODE
68	68		1,resistor,resistor,1,1,1,LINE
69	69		2,capacitor,capacitor,1,1,1,LINE
70	70		3,transistor npn,transistor npn
71	71
72	72		- Пример файла TFixedDataset
73	73
74	74
75	75		Каждая запись занимает фиксированное количество пробелов, и если поле меньше, пробелы должны использоваться для заполнения оставшегося размера.
76	76
77	77		Name = 15 chars; Surname = 15 chars; e_mail = 20 chars;
78	78		Piet Pompies piet@pompies.net
79	79
80	80		#### Использование наборов данных: пример кода
81	81
82	82		Иногда полезно создать набор данных и работать с ним полностью в коде, и следующий код сделает это точно. Обратите внимание на некоторые особенности TSdfDataset/TFixedDataset:
83	83
84	84		- Максимальный размер строк в базе данных может составлять около 300. Проблема в процессе решения.
85	85		- Необходимо добавить определения полей. Некоторые наборы данных могут заполнить эту информацию самостоятельно из файла базы данных.
86	86		- Нужно установить `FirstLineAsSchema` в `true`, чтобы указать, что первая строка содержит имена и позиции полей.
87	87		- Свойство `Delimiter` содержит разделитель для полей. Будет невозможно использовать этот символ в строках в базе данных. Точно так же в настоящее время не будет возможности иметь символа окончания строк в базе данных, поскольку они отмечают изменение между записями. Это можно преодолеть, подставив нужную запятую или окончание строки с другим редко используемым символом, например \#. При отображении данных на экране все символы \# могут быть преобразованы в окончания строк и наоборот при сохранении данных в базе данных. Здесь будет полезна процедура `ReplaceString`.
88	88
89	89		``` pascal
90	90		uses sdfdata, db;
91	91
92	92		constructor TComponentsDatabase.Create;
93	93		var
94	94		FDataset: TSdfDataset;
95	95		begin
96	96		inherited Create;
97	97
98	98		FDataset := TSdfDataset.Create(nil);
99	99		FDataset.FileName := vConfigurations.ComponentsDBFile;
100	100		FDataset.FileMustExist := false; // существующий CSV-файл не требуется
101	101
102	102		// Не обязательно с TSdfDataset:
103	103		// FDataset.TableName := STR_DB_COMPONENTS_TABLE;
104	104		// FDataset.PrimaryKey := STR_DB_COMPONENTS_ID;
105	105
106	106		// Добавляем определения полей
107	107		FDataset.FieldDefs.Add('ID', ftString);
108	108		//необходимо добавить схему, чтобы sdfdataset правильно записал заголовок csv:
109	109		FDataset.Schema.Add('ID');
110	110		FDataset.FieldDefs.Add('NAMEEN', ftString);
111	111		FDataset.Schema.Add('NAMEEN');
112	112		FDataset.FieldDefs.Add('NAMEPT', ftString);
113	113		FDataset.Schema.Add('NAMEPT');
114	114		FDataset.FieldDefs.Add('HEIGHT', ftString);
115	115		FDataset.Schema.Add('HEIGHT');
116	116		FDataset.FieldDefs.Add('WIDTH', ftString);
117	117		FDataset.Schema.Add('WIDTH');
118	118		FDataset.FieldDefs.Add('PINS', ftString);
119	119		FDataset.Schema.Add('PINS');
120	120		FDataset.FieldDefs.Add('DRAWINGCODE', ftString);
121	121		FDataset.Schema.Add('DRAWINGCODE');
122	122
123	123		// Необходимо для TSdfDataset
124	124		FDataset.Delimiter := ',';
125	125		FDataset.FirstLineAsSchema := True;
126	126
127	127		FDataset.Active := True;
128	128
129	129		// Устанавливаем начальную запись
130	130		CurrentRecNo := 1;
131	131		FDataset.First;
132	132		end;
133	133		```
134	134
135	135		При использовании [[TSdfDataSet/ru\|TSdfDataSet]] следует помнить, что `RecNo`, хоть и реализован, но не работает как способ перемещения по набору данных при чтении или записи записей. Стандартные процедуры навигации, такие как `First`, `Next`, `Prior` и `Last`, работают как и положено, поэтому вам нужно использовать их, а не `RecNo`.
136	136
137	137		Если вы привыкли использовать абсолютные номера записей для навигации по базе данных, вы можете реализовать свою собственную версию `RecNo`. Объявите глобальную переменную `longint` с именем `CurrentRecNo`, которая будет содержать текущее значение `RecNo`. Помните, что эта переменная будет иметь то же соглашение, что и `RecNo`, поэтому первая запись имеет номер 1 (а не начинается с нуля). После активации базы данных инициализируйте базу данных для первой записи с помощью `TSdfDataset.First` и установите `CurrentRecNo:= 1`.
138	138
139	139		Пример кода:
140	140
141	141		``` pascal
142	142		{@@
143	143		Перемещение к нужной записи с использованием TDataset.Next и TDataset.Prior.
144	144		Это позволяет избегать использования TDataset.RecNo, который не обеспечивает надежную навигацию в любом наборе данных.
145	145
146	146		@param AID Указывает номер записи. Первая запись имеет номер 1
147	147		}
148	148		procedure TComponentsDatabase.GoToRec(AID: Integer);
149	149		begin
150	150		// Мы находимся перед искомой записью, двигаемся вперед
151	151		if CurrentRecNo < AID then
152	152		begin
153	153		while (not FDataset.EOF) and (CurrentRecNo < AID) do
154	154		begin
155	155		FDataset.Next;
156	156		FDataset.CursorPosChanged;
157	157		Inc(CurrentRecNo);
158	158		end;
159	159		end
160	160		// Мы находимся после искомой записи, двигаемся назад
161	161		else if CurrentRecNo > AID then
162	162		begin
163	163		while (CurrentRecNo >= 1) and (CurrentRecNo > AID) do
164	164		begin
165	165		FDataset.Prior;
166	166		FDataset.CursorPosChanged;
167	167		Dec(CurrentRecNo);
168	168		end;
169	169		end;
170	170		end;
171	171		```
172	172
173	173		### Экспорт данных
174	174
175	175		Функциональность экспорта базы данных FreePascal/Lazarus (например, TCSVExporter на вкладке «Data Export») предлагает функцию экспорта CSV для наборов данных.
176	176
177	177		### CSV компоненты Jan
178	178
179	179		См. [[JCSV (Jans CSV Components)]].
180	180
181	181		### ZMSQL
182	182
183	183		[[ZMSQL]] хранит данные в файлах, разделенных точкой с запятой (используя SDF?).
184	184
185	185		---
186	186		From the Free Pascal wiki, page "CSV/ru", as it stood on 2020-07-15 after a change by Zoltanleo, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history