Отправлено: 03.12.09 01:26. Заголовок: Как записать в INI-файл массив ?
Столкнулся с непоняткой....
Раньше использовал свою обработку INI-файлов.
Перешел на стандартный Харборовский.... Не могу понять, как записать в секцию МАССИВ - например список файлов ? И как потом считать его в массив ?
BEGIN INI File cFileIni GET cPubPathFrom SECTION "SETTINGS" ENTRY "From" DEFAULT "C:\XLS-2009" GET cPubPathTo SECTION "SETTINGS" ENTRY "To" DEFAULT "C:\DBF-2009" GET cPubFileMaska SECTION "SETTINGS" ENTRY "MASK" DEFAULT "*.xls" GET aDim SECTION "FILE_LIST" ??????? END INI
И еще, можно ли записывать и считывать 2-3 мерный массив.... У меня было можно, например: [Список_файлов] Файл_1 = { "spiski.xls", .T., "обработан ", 20, NIL } Файл_2 = { "centr.xls", .F., "не обработан", 12, NIL }
Отправлено: 04.12.09 03:17. Заголовок: 1. для более гибкой ..
1. для более гибкой работы с ИНИ-файлами лучше пользоваться исходными функциями в их числе есть такие *-----------------------------------------------------------------------------* Function _GetSectionNames(cIniFile) Return ( aSectionList ) *-----------------------------------------------------------------------------* Function _GetSection( cSection, cIniFile ) Return ( aKeyValueList )
2. У меня массивы из текстового вида преобразуются в нормальный так aFromClipBoard:=&(cTxt)
Раньше использовал свою обработку INI-файлов. Перешел на стандартный Харборовский....
цитата:
BEGIN INI File cFileIni GET cPubPathFrom SECTION "SETTINGS" ENTRY "From" DEFAULT "C:\XLS-2009" GET cPubPathTo SECTION "SETTINGS" ENTRY "To" DEFAULT "C:\DBF-2009" GET cPubFileMaska SECTION "SETTINGS" ENTRY "MASK" DEFAULT "*.xls" GET aDim SECTION "FILE_LIST" ??????? END INI
Это не Путь Воина. Я укажу вам Истинный путь Скрытый текст
aFile1 := RestoreFromIni( cFile, "FILES" , "MyFile1", @nErrCode ) IF nErrCode == INIFILE_RESTORE_OK IF hb_isArray( aFile1 ) FOR EACH e IN aFile1 QOut(e) NEXT ENDIF ENDIF
nErrCode := 0 aFile2 := RestoreFromIni( cFile, "FILES" , "MyFile2", @nErrCode ) IF nErrCode == INIFILE_RESTORE_OK IF hb_isArray( aFile2 ) FOR EACH e IN aFile2 QOut(e) NEXT ENDIF ENDIF // RETURN
/** */ FUNCTION CreateMyIniFile( cFileName ) LOCAL aFile1 := { "spiski.xls", .T., "обработан", 20, NIL } LOCAL aFile2 := { "centr.xls", .F., "не обработан", 12, NIL } LOCAL nResult
/** */ FUNCTION SaveToIni( aFile, cIniName, cSectionName, cKeyName, lExists ) LOCAL hIni, cString
/* проверка на существование файла */ IF ! hb_fileExists( cIniName ) IF lExists RETURN INIFILE_NOT_EXISTS ENDIF hIni := hb_Hash() hIni[ cSectionName ] := hb_Hash() ELSE hIni := hb_IniRead( cIniName ) ENDIF /* существующий .ini файл имеет правильный формат? */ IF Empty( hIni ) RETURN INIFILE_NOT_VALID //Not a valid .ini file! ENDIF /* проверка на существование в файле нужной секции если ее нет, то создаем; если что-то есть, то должна быть обязательно секция, не ключ */ IF ! hb_hHasKey( hIni, cSectionName ) hIni[ cSectionName ] := hb_Hash() ELSEIF ! hb_isHash( hIni[ cSectionName ] ) RETURN INIFILE_SECTION_NOT_VALID ENDIF /* поскольку hb_serialize может возвратить непечатаемые символы, применяем к записываемой строке base64 кодирование */ cString := hb_serialize( @aFile ) hIni[ cSectionName ][ cKeyName ] := hb_base64encode( cString ) // наконец добрались до записи в файл IF ! hb_IniWrite( cIniName, hIni, "#Generated file; don't touch", "#End of file") RETURN INIFILE_CANNOT_WRITE ENDIF
RETURN INIFILE_SAVE_OK
/** */ FUNCTION RestoreFromIni( cIniName, cSectionName, cKeyName, nErrCode ) LOCAL hIni, hSection LOCAL cString, xResult
hIni := hb_IniRead( cIniName ) /* нет файла или неправильный формат */ IF Empty( hIni ) IF PCount() > 3 nErrCode := INIFILE_NOT_VALID ENDIF RETURN Nil ENDIF /* нет подходящей секции */ IF ! hb_hHasKey( hIni, cSectionName ) IF PCount() > 3 nErrCode := INIFILE_SECTION_NOT_VALID ENDIF RETURN Nil ENDIF
hSection := hIni[ cSectionName ] IF ! hb_isHash( hSection ) IF PCount() > 3 nErrCode := INIFILE_SECTION_NOT_VALID ENDIF RETURN NIL ENDIF // нет ключа IF ! hb_hHasKey( hSection, cKeyName ) IF PCount() > 3 nErrCode := INIFILE_KEY_NOT_VALID ENDIF RETURN Nil ENDIF /* читаем и обработываем строку; здесь можно/нужно(?) проводить дополнительные проверки */ cString := hSection[ cKeyName ] cString += ( Repl( "=", 4 - Len( cString ) % 4 ) ) cString := hb_base64decode( cString )
Отправлено: 07.12.09 03:28. Заголовок: пример из передачи о..
пример из передачи описания объекта через Клипборд записываешь массив в текст в таком же виде как при написании программы живой пример {7,"GRID","GRID_1",{{"ALLOWEDIT","L",".F.",.T.,.F.},{"BACKCOLOR","AC","Nil",.F.,.T.,1},{"BREAK","L",".F.",.T.,.F.},{"COL","N","10",.T.,.T.,1},{"COLUMNCONTROLS","AT","Nil",.T.,.F.},{"COLUMNVALID","AT","Nil",.T.,.F.},{"COLUMNWHEN","AT","Nil",.T.,.F.},{"DYNAMICBACKCOLOR","C","Nil",.F.,.F.},{"DYNAMICFORECOLOR","C","Nil",.F.,.F.},{"FONTBOLD","L",".F.",.T.,.T.,1},{"FONTCOLOR","AC","Nil",.F.,.T.,1},{"FONTITALIC","L",".F.",.T.,.T.,1},{"FONTNAME","C","Arial",.T.,.T.,1},{"FONTSIZE","N","10",.T.,.T.,1},{"FONTSTRIKEOUT","L",".F.",.T.,.T.,1},{"FONTUNDERLINE","L",".F.",.T.,.T.,1},{"HEADERS","AT",'{"Type","Qty","Last key with this DataType"}',.T.,.F.},{"HEIGHT","N","280",.T.,.T.,1},{"HELPID","N","Nil",.T.,.F.},{"IMAGE","AT","Nil",.T.,.F.},{"INPLACEEDIT","AM","{}",.T.,.F.},{"ITEMCOUNT","N","Nil",.T.,.T.,1},{"ITEMS","AM",'{{"Row1Col1","Row1Col2", "33"}}',.T.,.F.},{"JUSTIFY","AN","{,1,}",.T.,.T.,2},{"MULTISELECT","L",".F.",.T.,.T.,2},{"NOLINES","L",".F.",.T.,.T.,2},{"ONCHANGE","E","Nil",.T.,.F.},{"ONDBLCLICK","E","Nil",.T.,.F.},{"ONGOTFOCUS","E","Nil",.T.,.F.},{"ONHEADCLICK","C","Nil",.T.,.F.},{"ONLOSTFOCUS","E","Nil",.T.,.F.},{"ONQUERYDATA","E","Nil",.T.,.F.},{"ROW","N","110",.T.,.T.,1},{"SHOWHEADERS","L",".T.",.T.,.T.,1},{"TOOLTIP","C","Nil",.T.,.F.},{"VALUE","N","Nil",.T.,.F.},{"VIRTUAL","L",".F.",.T.,.T.,1},{"WIDTH","N","750",.T.,.T.,1},{"WIDTHS","AN","{140,70,500}",.T.,.F.}},{110,10,390,760}}
потом восстанавливаешь как показано ранее
если записать этот текст в ИНИ-файл в одну строку в значение какого либо ключа то при чтении будет прочитано все от знака "=" до конца строки
Отправлено: 09.12.09 03:07. Заголовок: Петр пишет: Я укажу..
Петр пишет:
цитата:
Я укажу вам Истинный путь
Что-то не работает..... Error BASE/1132 Переполнение массива: Неверное количество аргументов Called from HB_INIWRITE(0) Called from SAVETOINI(111) Called from CREATEMYINIFILE(63) Called from MAIN(32)
Вываливается на строчке: IF ! hb_IniWrite( cIniName, hIni, "#Generated file; don't touch", "#End of file")
Боюсь править, т.к. хочется увидеть правильный код МАСТЕРА !
Error BASE/1132 Переполнение массива: Неверное количество аргументов Called from HB_INIWRITE(0) Called from SAVETOINI(111) Called from CREATEMYINIFILE(63) Called from MAIN(32)
Код работает исправно - только что скопи-пастил откомпилировал-запустил - никаких ошибок (Harbour SVN)
Andrey пишет:
цитата:
Боюсь править, т.к. хочется увидеть правильный код МАСТЕРА !
Не бойтесь А правильный - не правильный : у меня работает.
Теперь относительно Пути Воина и Истинного пути. MiniGUI использует собственные функции для работы с ini файлами. В основе их лежит использование WinAPI, а не встроенные функции языка для работы с конфигурационными файлами (Это не Путь Воина ). Смешивать эти два подхода я никому не рекомендую, во избежание ошибок. Так что выбор "Истинного пути" (если он конечно есть) всегда остается за вами
Return //------------------------------------------ function SaveIni() local n, i, j, s:='', t //открыть ИНИ-файл if 0#_BeginIni( cIniFile ); return Nil; endif //перегнать массив в текстовые строки и записать for i:=1 to len(aFiles) s:='{' for j:=1 to len(aFiles[ i ]) t:=aFiles[i,j] if ValType(t)='C' s:=s+'"'+t+'",' elseif ValType(t)='L' s:=s+if(t,'.T.','.F.')+',' elseif ValType(t)='N' s:=s+alltrim(str(t))+',' elseif ValType(t)='U' s:=s+'NIL,' endif next if(right(s,1)=','); s:=left(s,len(s)-1); endif s:=s+'}' //записать if !(_SetIni( 'FileList', 'File_'+strzero(i,3,0), s)) MsgExclamation('Ошибка записи в ИНИ-файл'+HB_OsNewLine()+; 'файл:<'+cIniFile+'>'+HB_OsNewLine()+; s) endif next _EndIni() msgbox('готово') return Nil //------------------------------------------ function RestIni() local n, i, j, s:='', t //получить секцию aR:=_GetSection( 'FileList', cIniFile ) if len(aR)=0; return Nil; endif //восстановить массив for i:=1 to len(aR) t:=aR[i,2] aAdd(aRest,&(t)) next //показать wForm_1.EditBox_1.Value:='' for i:=1 to len(aRest) for j:=1 to len(aRest[ i ]) t:='aRest['+str(i,3)+']['+str(j,2)+']=' if ValType(aRest[i,j])='C' t:=t+aRest[i,j] elseif ValType(aRest[i,j])='L' t:=t+if(aRest[i,j],'.T.','.F.') elseif ValType(aRest[i,j])='N' t:=t+alltrim(str(aRest[i,j])) elseif ValType(aRest[i,j])='U' t:=t+'Nil' endif wForm_1.EditBox_1.Value:=wForm_1.EditBox_1.Value+t+HB_OsNewLine() next next msgbox('готово') return Nil //=========================================================== -----wForm_1.fmg------------------------------------------- DEFINE WINDOW TEMPLATE AT 171,371 HEIGHT 415 WIDTH 648 TITLE "Array to Ini test" MAIN FONT "Arial" SIZE 9
замечу Преобразование массива в текст здесь сделано для частного случая. У меня есть функция для более общего случая. Т.е. -массив любой ветвистости -символьные данные правильно сохраняются с любой комбинацией кавычек внутри
Отправлено: 04.01.10 03:06. Заголовок: Разбирался с хХарбор..
Разбирался с хХарборовскими функциями работы с ИНИ-файлами... Там вроде удобней. Но так как пишу прогу на МиниГуи, то нужно использовать Гуевые... Как можно проверить, есть ли такая СЕКЦИЯ и есть ли такая ПЕРЕМЕННАЯ ? В хэлпе что-то мало всего.... в хХарборе больше....
Отправлено: 05.01.10 16:05. Заголовок: Что-то наверно затер..
Что-то наверно затерялась моя просьба.... Как можно проверить на МиниГуи, есть ли такая СЕКЦИЯ и есть ли такая ПЕРЕМЕННАЯ в ИНИ-файле ? В хелпе вообще ничего толком нет...
Отправлено: 08.01.10 00:15. Заголовок: Может быть вместо IN..
Может быть вместо INI-файла записывать массив в MEMO-поле dbf-файла? В HwGUI есть две функции для этого: ARRAY2STRING и STRING2ARRAY. Библиотека PROCMISC.LIB.
Отправлено: 08.01.10 08:49. Заголовок: MEMO-поля не самый н..
MEMO-поля не самый надежный инструмент: периодически бывает сбой ссылок при сжатии таблиц. В своих проектах от MEMO отказались после серии потерь данных. С INI-файлами тоже не все гладко. Периодически они рушатся из-за некорректного завершения программ (для изменения одной строки нужно ведь переписать весь файл). На сегодняшний день считаю лучшим выходом для хранения настроек DBF-файл. Структура примерно такая: {{'K_PART','N',3,0}, {'K_VAR','N',4,0}, {'NAME','C',15,0}, {'RNAME','C',50,0},{'TYPE','C',1,0},{'LEN_VAR','N',3,0},{'LEN_DEC','N',1,0},; {'VAR',C,1000},{'K_HELP','N',5,0}} Поиск переменных с помощью индекса происходит быстро. Одновременное изменение с разных станций разруливается блокировками. Написаны две функции: READ_VAR() n PUT_VAR(), которые приводят переменные к нужному виду перед записью (в строку) и обратно. Доступ к настройкам выполняется в специальном режиме, чтобы абы кто не испортил. Использую несколько лет, и очень доволен.
Вы чего ? Совсем запраздновались .... Я конкретно спрашиваю: Как можно проверить на МиниГуи, есть ли такая СЕКЦИЯ и есть ли такая ПЕРЕМЕННАЯ в ИНИ-файле ?
А что лучше, и хуже не надо обсуждать... Вот мне не нравиться хранить настройки в DBF-файле. Непрактично ! У меня свои взгляды на это. У меня 600Кб ини-файл занимает и все поля, меню, печать, блоки кода,... все в ини-файле. А тут я спрашиваю про функции работы с ини-файлами через МиниГуи ! И все, никаких гвоздей !
Отправлено: 08.01.10 15:27. Заголовок: Петр пишет: MiniGUI..
Петр пишет:
цитата:
MiniGUI использует собственные функции для работы с ini файлами. В основе их лежит использование WinAPI, а не встроенные функции языка для работы с конфигурационными файлами
Андрей! Думаю, это означает, что средствами MiniGUI твою задачу (массивы в ini) не решить. Можно использовать те функции, которые Петр в начале темы привел. Найди сообщение со словами: "Я укажу вам Истинный путь." :)
Отправлено: 08.01.10 17:22. Заголовок: А может просто испол..
А может просто использовать функции перевода массива в строку с разделителями (AtoC) и потом назад CtoA()
//--------------------------------------------------------------------------// // creates a list string with or without separators from an array // It's part of my personal Udf's collection. // It's not used by Debug.prg but I incude it as a complement of CtoA function
//--------------------------------------------------------------------------- //--------------------------------------------------------------------------// // creates an array from a string with or without separators // It's part of my personal Udf's collection. Static Function CtoA( cString, cType, cSeparator, bBlock ) Local cToken, nEle, lNum, ; aArr := {}
Default cSeparator := "|", ; cType := "C"
If ValType( cSeparator ) != "N" .and. cSeparator >= Chr( 32 )
nEle := 1
While ! Empty( cToken := ExtractWord( nEle++, cString, {cSeparator} ))
Все даты в формате GMT
3 час. Хитов сегодня: 693
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
- участник сейчас на форуме
- участник вне форума