Здравствуйте, прошу помощи, мне нужно прочитать строку из файла такого типа: 5, 6abc, 8 то есть чтобы каждый параметр который отделен запятой был записан в переменную. Приблизительного примера так и не нашел, а самостоятельно дальше ReadString не продвинулся, работа с ini мне не подходит, пожалуйста покажите пример как "обработать" такую строку. заранее спасибо.
Чтение данных из строки
Страница: 1
Сообщений 1 страница 3 из 3
Поделиться116.07.2013 18:32:45
- Активный участник
- Откуда: Херсон
- Зарегистрирован: 26.04.2013
- Приглашений: 0
- Сообщений: 59
- Уважение: [+0/-0]
- Позитив: [+1/-0]
- Пол: Мужской
- Возраст: 30 [1996-02-03]
- Провел на форуме:
22 часа 15 минут - Последний визит:
28.09.2014 22:46:09
Поделиться217.07.2013 00:57:27
Вариант 1.
Читать хелп-файл.
Увидеть функцию StringField() и воспользоваться ею.
StringField()
Syntax
Result$ = StringField(String$, Index, Delimiter$)
Description
Returns the string field at the specified index.
A one character 'Delimiter$' is used to split the string. The first 'Index' position is 1.
Example:
For k=1 To 6
Debug StringField("Hello I am a split string", k, " ")
Next
Supported OS
All
Поделиться317.07.2013 17:10:21
Код:
;#def_extensions = "jpg|jpeg|jp2|j2k|jpf|jpx|jpm|mj2|png|tif|tiff|tga|tpic|ico"
;#extensions_sep = "|"
#def_extensions = "5, 6abc, 8"
#extensions_sep = ", "
Procedure.i parse_extensions(extensions.s)
Protected number_of_extensions.i = CountString(extensions, #extensions_sep)
Protected extensions_counter.i
;Protected extensions_added_counter.i
For extensions_counter = 0 To number_of_extensions
Protected current_extension.s = LCase(Trim(StringField(extensions, extensions_counter + 1, #extensions_sep)))
If current_extension <> ""
Debug current_extension
;ReDim main_extensions(extensions_added_counter)
;main_extensions(extensions_added_counter) = current_extension
;extensions_added_counter + 1
EndIf
Next
EndProcedure
parse_extensions(#def_extensions)Только тебе надо будет как-то отличать строковую переменную от числовой.
Страница: 1
Похожие темы
| Вопрос по строке | Вопросы по PureBasic | 06.12.2023 |
| как сохранить данные из массива в файл на диске | PureBasic для Windows | 30.09.2023 |
| Unicode передача данных | Вопросы по PureBasic | 06.09.2014 |
| Нейросеть восстановила мне мой архиватор | OpenSource | 18.01.2025 |
| Вывод информации ListViewGadget | PureBasic для Windows | 01.07.2021 |