Пётр написал(а):
Можно подробнее.
Откуда загружается, куда сохраняется?
То есть если загрузить текст и закрыть программу, а потом открыть,
то в EditorGadget и в ComboBoxGadget будет пусто.
Светодиодная матрица - МОДЖЕТ (антигаджет) на Пурике
Сообщений 211 страница 240 из 446
Поделиться21105.07.2011 08:07:47
Поделиться21205.07.2011 13:57:54
max написал(а):
а потом открыть, то в EditorGadget и в ComboBoxGadget будет пусто.
Это про прогноз погоды?
ComboBoxGadget нужно заполнить названиями городов и выбрать сохраненный пункт, а затем загрузить из инета текущий прогноз погоды для выбранного города и отобразить его в EditorGadget.
Поделиться21305.07.2011 14:06:30
Пётр написал(а):
Это про прогноз погоды?
Это именно про вкладку текст.
Поделиться21405.07.2011 14:33:12
Поиск файлов и заполнение списка городов для прогноза погоды выполняется в отдельном потоке, для того, чтобы программа быстрее стартовала.
Именно в процедуре ProgramItit_Thread нужно устанавливать текущий пункт в выпадающих списках погоды и текста, а также, загружать текст и получать прогноз погоды при старте программы.
http://pure-basic.narod.ru/forum/MODGET … tilang.rar
Поделиться21505.07.2011 15:38:28
Пётр написал(а):
Именно в процедуре ProgramItit_Thread
То, что доктор прописал. 
А каким образом можно организовать сохранение текста в EditorGadget,
выбранного с помощью кнопки "Загрузить текст"?
Поделиться21605.07.2011 16:40:53
Как-то странно погода сохраняется. До 72-го города нормально, а больше, то сохранится, то нет.
Это у всех или только у меня?
Поделиться21705.07.2011 16:44:07
max написал(а):
сохранение текста в EditorGadget,
Самого текста, или пути к файлу для повторного открытия файла при старте программы?
Если первое, то процедуру сохранения текста в файл из гаджета, выше выкладывал.
Если второе, то нужно завести строковую переменную, в которую будет заноситься путь к файлу, если его выбрать кнопкой.
При выборе файла в выпадающем списке, переменную нужно очищать.
При старте программы смотрим, если переменная пустая, тогда грузим текст из файла, выбранного в выпадающем списке, а если в ней путь к файлу, тогда загружаем текст из этого файла.
Поделиться21805.07.2011 16:47:33
Понял. 
Поделиться21905.07.2011 18:35:22
Что-то в спраке не нашел, как узнать полный путь к файлу, только частичный.
Поделиться22005.07.2011 18:50:17
max написал(а):
полный путь к файлу
К исполняемому файлу программы?
Код:
ProgramFilename()
Поделиться22105.07.2011 19:12:45
Пётр написал(а):
К исполняемому файлу программы?
Путь к программе я знаю как найти, а вот путь к файлу, который лежит где-то на жестком диске, нет. 
Нашел как найти часть пути, расширение файла, название и расширение файла, но соеденить воедино не могу понять как.
Отредактировано max (05.07.2011 19:13:15)
Поделиться22205.07.2011 20:15:06
max написал(а):
Путь к программе я знаю как найти, а вот путь к файлу, который лежит где-то на жестком диске, нет.
Пойди туда, не знаю куда, найди то, не знаю что.... 
Ну хоть по каким признакам искать?
Что за файл и где он обычно бывает, потому что сканировать весь диск компа это очень долго!
Поделиться22305.07.2011 20:18:46
То есть я открыл какой-то файл с диска.
max написал(а):
а вот путь к файлу, который лежит где-то на жестком диске, нет. Нашел как найти часть пути, расширение файла, название и расширение файла, но соеденить воедино не могу понять как.
Поделиться22405.07.2011 20:26:44
max написал(а):
То есть я открыл какой-то файл с диска.
Ну.
Если файл был выбран, например с помощью OpenFileRequester, то функция вернет абсолютный путь к файлу.
Код:
StandardFile$ = "C:\autoexec.bat" ; set initial file+path to display
; With next string we will set the search patterns ("|" as separator) for file displaying:
; 1st: "Text (*.txt)" as name, ".txt" and ".bat" as allowed extension
; 2nd: "PureBasic (*.pb)" as name, ".pb" as allowed extension
; 3rd: "All files (*.*) as name, "*.*" as allowed extension, valid for all files
Pattern$ = "Text (*.txt)|*.txt;*.bat|PureBasic (*.pb)|*.pb|All files (*.*)|*.*"
Pattern = 0 ; use the first of the three possible patterns as standard
File$ = OpenFileRequester("Please choose file to load", StandardFile$, Pattern$, Pattern)
If File$
MessageRequester("Information", "You have selected following file:" + Chr(10) + File$, 0)
Else
MessageRequester("Information", "The requester was canceled.", 0)
EndIfПоделиться22505.07.2011 20:34:23
Теперь дошло. 
Поделиться22605.07.2011 20:42:54
А как очистить строковую переменную? Так:
Код:
Put=0
Поделиться22705.07.2011 20:45:58
max написал(а):
А как очистить строковую переменную?
Код:
Text.s="Тут текст" Debug Text Text="" Debug Text
Поделиться22805.07.2011 20:47:20
Ясно.
Поделиться22905.07.2011 21:02:22
В итоге на ум пришло следующее:
Код:
Global Put.s ;абсолютный путь к файлу
в процедуре ProgramItit_Thread сделал так
Код:
If Put=""
File$ = Path$ + GetGadgetText(48)+".txt"
Else
File$ = Put
If FileSize(File$)>0
Text=ReadText(File$)
SetGadgetText(49,Text)
EndIf
EndIfв событиях компонентов добавил
Код:
Case 48
If EventType() = 1 ; Выпадающий список закрылся
File$ = Path$ + GetGadgetText(48)+".txt"
Text=ReadText(File$)
SetGadgetText(49,Text)
Put=""
EndIf
Case 50
File$ = OpenFileRequester(open, "", Maska , 0)
If File$
Put=File$
Text=ReadText(File$)
SetGadgetText(49,Text)
EndIfНо что-то не пошло. Куда дальше копать?
Поделиться23005.07.2011 21:57:08
max написал(а):
Но что-то не пошло.
Что именно не пошло?
Содержимое переменной сохраняется/считывается из файла с настройками?
Поделиться23105.07.2011 22:03:12
Пётр написал(а):
Содержимое переменной сохраняется/считывается из файла с настройками?
А вот этого я неделал. Щас попробую.
Поделиться23205.07.2011 22:10:10
При компеляции выскакивает ошибка:
Поделиться23305.07.2011 22:17:18
max написал(а):
При компеляции выскакивает ошибка:
Раз сохраняется строковая переменная, то нужно использовать WritePreferenceString.
С чтением тоже самое.
Поделиться23405.07.2011 22:27:17
С кнопки теперь сохраняется, а в ComboBoxGadget название файла есть, но EditorGadget пустой.
Поделиться23505.07.2011 22:35:13
max написал(а):
ComboBoxGadget название файла есть, но EditorGadget пустой
Отладчик что показывает?
Поделиться23606.07.2011 09:13:06
Код:
If Put=""
File$ = Path$ + GetGadgetText(48)+".txt"
Debug File$
Else
File$ = Put
Debug File$
If FileSize(File$)>0
Text=ReadText(File$)
SetGadgetText(49,Text)
EndIf
EndIfИ при Put="", и в другом случае путь к файлу правильный.
Поделиться23706.07.2011 11:21:11
Я имел в виду, пошаговое выполнение программы, чтобы посмотреть в каком месте сценарий работы идет не так, как задумано.
Сделай так:
Код:
If Put="" File$ = Path$ + GetGadgetText(48)+".txt" Debug File$ Else File$ = Put Debug File$ EndIf If FileSize(File$)>0 Text=ReadText(File$) SetGadgetText(49,Text) EndIf
Поделиться23806.07.2011 11:43:19
Так вроде нормально работает.
Поделиться23906.07.2011 11:56:53
Заметил такую странность:
В конце загруженного текста добавляются символы. 
При чем каждый раз разные.
Отредактировано max (06.07.2011 12:12:17)
Поделиться24006.07.2011 12:16:14
max написал(а):
В конце загруженного текста добавляются символы. При чем каждый раз разные.
Если создать исполняемый файл и запустить его, будет тоже самое?
Просто отладчик метит переменные для проверки выхода за их границы.