Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / StringList / 12 сообщений из 12, страница 1 из 1
30.10.2018, 16:05
    #39725039
Miracle9
Miracle9
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
Есть строка
s := '"4","6","8","2","0","5"';
числа могут как заключены в кавычки так и нет
нужно разбить строку
делаю
Код: pascal
1.
2.
Buf.Delimiter := ',';
Buf.DelimitedText := s;


Получаю итемы без кавычек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:06
    #39725041
Котовасия
Котовасия
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
Miracle9Получаю итемы без кавычек.
И?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:08
    #39725042
Miracle9
Miracle9
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
Как получить итемы кавычках ""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:11
    #39725046
JayDi
JayDi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
Miracle9Как получить итемы кавычках ""
Никак. Это вшито в stringlist, чтобы можно было парсить csv-файлы (там данные могут быть как без кавычек, так и между кавычками).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:11
    #39725047
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
AnsiQuotedStr()
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:18
    #39725054
Котовасия
Котовасия
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
Miracle9Как получить итемы кавычках ""
Написать разбор текста ручками? Используя в качестве основы текст TStringList.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:26
    #39725060
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
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:40
    #39725073
Dmitry Arefiev
Dmitry Arefiev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
Код: 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
    #39725076
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
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:45
    #39725080
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
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, 19:57
    #39725237
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
Код: pascal
1.
2.
s := '"4","6","8","2","0","5"';
data := s.Split(',');
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 22:10
    #39725318
Miracle9
Miracle9
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StringList
_Vasilisk_
Спасибо! Интересный способ, пополнил багаж)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / StringList / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 373ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040190]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 232ms
total:  373ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]