StringList / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / StringList

12 сообщений из 12, страница 1 из 1

StringList

#39725039

Miracle9

Гость

Есть строка
s := '"4","6","8","2","0","5"';
числа могут как заключены в кавычки так и нет
нужно разбить строку
делаю

Код: pascal

1.
2.

Buf.Delimiter := ',';
Buf.DelimitedText := s;

Получаю итемы без кавычек.

...

Рейтинг:

0 / 0

30.10.2018, 16:05

| Ответить | Цитировать | Написать

StringList

#39725041

Котовасия

Участник

Сообщения: 1 194

Рейтинг: 0 / 0

Miracle9Получаю итемы без кавычек.
И?

...

Рейтинг:

0 / 0

30.10.2018, 16:06

| Ответить | Цитировать | Написать

StringList

#39725042

Miracle9

Гость

Как получить итемы кавычках ""

...

Рейтинг:

0 / 0

30.10.2018, 16:08

| Ответить | Цитировать | Написать

StringList

#39725046

JayDi

Участник

Откуда: Сызрань, Россия

Сообщения: 4 243

Рейтинг: 0 / 0

Miracle9Как получить итемы кавычках ""
Никак. Это вшито в stringlist, чтобы можно было парсить csv-файлы (там данные могут быть как без кавычек, так и между кавычками).

...

Рейтинг:

0 / 0

30.10.2018, 16:11

| Ответить | Цитировать | Написать

StringList

#39725047

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

AnsiQuotedStr()
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

30.10.2018, 16:11

| Ответить | Цитировать | Написать

StringList

#39725054

Котовасия

Участник

Сообщения: 1 194

Рейтинг: 0 / 0

Miracle9Как получить итемы кавычках ""
Написать разбор текста ручками? Используя в качестве основы текст TStringList.

...

Рейтинг:

0 / 0

30.10.2018, 16:18

| Ответить | Цитировать | Написать

StringList

#39725060

Gerasimenko

Участник

Сообщения: 4 788

Рейтинг: 0 / 0

Miracle9Есть строка
s := '"4","6","8","2","0","5"';
числа могут как заключены в кавычки так и нет
нужно разбить строку
делаю

Код: pascal

1.
2.

Buf.Delimiter := ',';
Buf.DelimitedText := s;

Получаю итемы без кавычек.
Buf.DelimitedText :=StringReplace(s,'"','',[rfReplaceAll]);

...

Рейтинг:

0 / 0

30.10.2018, 16:26

| Ответить | Цитировать | Написать

StringList

#39725073

Dmitry Arefiev

Участник

Сообщения: 10 118

Рейтинг: 0 / 0

Код: pascal

1.
2.
3.

  Buf.Lines.Delimiter := ',';
  Buf.Lines.QuoteChar := #0;
  Buf.Lines.DelimitedText := '"4","6","8","2","0","5"';

...

Рейтинг:

0 / 0

30.10.2018, 16:40

| Ответить | Цитировать | Написать

StringList

#39725076

Gerasimenko

Участник

Сообщения: 4 788

Рейтинг: 0 / 0

GerasimenkoMiracle9Есть строка
s := '"4","6","8","2","0","5"';
числа могут как заключены в кавычки так и нет
нужно разбить строку
делаю

Код: pascal

1.
2.

Buf.Delimiter := ',';
Buf.DelimitedText := s;

Получаю итемы без кавычек.
Buf.DelimitedText :=StringReplace(s,'"','',[rfReplaceAll]);Сорри. Не прочитал, что тебе в кавычках надо.

...

Рейтинг:

0 / 0

30.10.2018, 16:40

| Ответить | Цитировать | Написать

StringList

#39725080

Gerasimenko

Участник

Сообщения: 4 788

Рейтинг: 0 / 0

Miracle9Есть строка
s := '"4","6","8","2","0","5"';
числа могут как заключены в кавычки так и нет
нужно разбить строку
делаю

Код: pascal

1.
2.

Buf.Delimiter := ',';
Buf.DelimitedText := s;

Получаю итемы без кавычек.
Добавил бы строчку :)

Код: pascal

1.
2.
3.
4.
5.

 tsl.QuoteChar := #0;
 tsl.DelimitedText := '4,"6,8",2,"0","5';
 tsl.DelimitedText:='"'+
         StringReplace(StringReplace(s,'"','',[rfReplaceAll]),',','","',[rfReplaceAll])+
         '"';

...

Рейтинг:

0 / 0

30.10.2018, 16:45

| Ответить | Цитировать | Написать

StringList

#39725237

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

Код: pascal

1.
2.

s := '"4","6","8","2","0","5"';
data := s.Split(',');

...

Рейтинг:

0 / 0

30.10.2018, 19:57

| Ответить | Цитировать | Написать

StringList

#39725318

Miracle9

Гость

_Vasilisk_
Спасибо! Интересный способ, пополнил багаж)

...

Рейтинг:

0 / 0

30.10.2018, 22:10

| Ответить | Цитировать | Написать

12 сообщений из 12, страница 1 из 1

Форумы / Delphi [игнор отключен] [закрыт для гостей] / StringList

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=39725047&tid=2040190]:	0ms
get settings:	7ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	175ms
get topic data:	10ms
get forum data:	2ms
get page messages:	48ms
get tp. blocked users:	1ms
others:	211ms

total:	472ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы