Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне
Кратко, что нового:
- исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
gfilatov2002 Поправил класс TIniData. Добавил чтение ini из строки буфера (для работы из ресурсов, ini в CUSTOM собираем). Почему то нет ф-ии получение ресурса в строку буфер (может не увидел), нашел только RCDataToFile(...) Весь текст Скрытый текст
/////////////////////////////////////////////////////////////////////////////// CLASS TIniData INHERIT THmgData ///////////////////////////////////////////////////////////////////////////////
VAR oIni VAR hKeys INIT { => } VAR hLens INIT { => } VAR cBOM AS STRING INIT hb_utf8Chr( 0xFEFF ) VAR cData AS STRING INIT "" VAR lData AS LOGICAL INIT .F. VAR cIni AS STRING INIT "" VAR lIni AS LOGICAL INIT .F. VAR lUtf AS LOGICAL INIT .F. VAR lUtf8 AS LOGICAL INIT .F. VAR cCommentChar AS STRING INIT ";" VAR cCommentBegin AS STRING INIT "" VAR cCommentEnd AS STRING INIT "" VAR lAutoMain AS LOGICAL INIT .F. VAR lMacro AS LOGICAL INIT .F. VAR lYesNo AS LOGICAL INIT .F. VAR aYesNo AS ARRAY INIT { "Yes", "No" }
.\demo_new.ini - это заменяющие\добавляющие значения ключей по секциям, т.е. если базовый ini лежит в ресурсах, то доп. ini задаем текущие (для этого клиента) новые значения
SergKis
постоянный участник
Пост N: 4163
Зарегистрирован: 17.02.12
Отправлено: 03.10.22 10:04. Заголовок: PS Используем, у себ..
PS Используем, у себя, такую ф-ю для работы с ресурсом CUSTOM (VC2019) Скрытый текст
#include "cons2.h"
// bkLoadCustom( "Name", ["xx.dll"]) -> "..." NAME CUSTOM .\....\file.xxx
int MultiByteToWideChar2( UINT CodePage, // code page DWORD dwFlags, // character-type options LPCSTR lpMultiByteStr, // address of string to map int cchMultiByte, // number of characters in string LPWSTR lpWideCharStr, // address of wide-character buffer int cchWideChar // size of buffer );
int WideCharToMultiByte2( UINT CodePage, // code page DWORD dwFlags, // performance and mapping flags LPCWSTR lpWideCharStr, // address of wide-character string int cchWideChar, // number of characters in string LPSTR lpMultiByteStr, // address of buffer for new string int cchMultiByte, // size of buffer LPCSTR lpDefaultChar, // address of default for unmappable characters LPBOOL lpUsedDefaultChar // address of flag set when default char. used );
BOOL ba_IsClassName( HWND hWnd, TCHAR *Name );
typedef unsigned char uchar;
#define HB_PARNI( n, x ) hb_parvni( n, x ) #define HB_PARNL( n, x ) hb_parvnl( n, x ) #define HB_STORNI( n, x, y ) hb_storvni( n, x, y ) #define HB_STORNL( n, x, y ) hb_storvnl( n, x, y ) #define HB_STORC( n, x, y ) hb_storvc_t( n, x, y ) #define HB_STORCT( n, x, y ) hb_storvc( n, x, y ) #define HB_STORCLEN( n, x, y, len) hb_storvclen( n, len, x, y) #define HB_STORL( n, x, y ) hb_storvl( n, x, y )
// Использовать для функций HWG_
#define HB_RETHANDLE( h ) hb_retptr( ( void * ) ( h ) ) #define HB_PARHANDLE( n ) hb_parptr( n ) #define HB_STOREHANDLE( h, n ) hb_storptr( ( void * ) ( h ), n ) #define HB_PUTHANDLE( i, h ) hb_itemPutPtr( i, ( void * ) ( h ) ) #define HB_GETHANDLE( i ) hb_itemGetPtr( i )
#define _HB_PARSTR( n, h, len ) wvt_wstrget( hb_param( n, HB_IT_ANY ), h, len ) #define _HB_PARSTRDEF( n, h, len ) wvt_wstrnull( hwg_wstrget( hb_param( n, HB_IT_ANY ), h, len ) ) #define _HB_RETSTR( str ) wvt_wstrset( hb_param( -1, HB_IT_ANY ), str ) #define _HB_RETSTRLEN( str, len ) wvt_wstrlenset( hb_param( -1, HB_IT_ANY ), str, len ) #define _HB_STORSTR( str, n ) wvt_wstrset( hb_param( n, HB_IT_BYREF ), str ) #define _HB_STORSTRLEN( str, len, n ) wvt_wstrlenset( hb_param( n, HB_IT_BYREF ), str, len ) #define _HB_ARRAYGETSTR( arr, n, h, len ) wvt_wstrget( hb_arrayGetItemPtr( arr, n ), h, len ) #define _HB_ARRAYSETSTR( arr, n, str ) wvt_wstrset( hb_arrayGetItemPtr( arr, n ), str ) #define _HB_ARRAYSETSTRLEN( arr, n, str, len ) wvt_wstrlenset( hb_arrayGetItemPtr( arr, n ), str, len ) #define _HB_ITEMCOPYSTR( itm, str, len ) wvt_wstrcopy( itm, str, len ) #define _HB_ITEMGETSTR( itm, h, len ) wvt_wstrget( itm, h, len ) #define _HB_ITEMPUTSTR( itm, str ) wvt_wstrput( itm, str ) #define _HB_ITEMPUTSTRLEN( itm, str, len ) wvt_wstrlenput( itm, str, len ) #define _HB_STRUNSHARE( h, str, len ) wvt_wstrunshare( h, str, len ) #define _hb_strfree( h ) wvt_wstrfree( h )
* New: Added the useful C-function RCDataToMem(). Syntax: RCDataToMem( <cResName>|<nResID>, [<cResType>|<nResType>], ; [<hModule>] ) => cResult Requested by Sergej Kiselev on the Russian HMG forum. Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo3.prg in folder \samples\Advanced\RCDataToFile) * Enhanced: OOP class TIniData supports loading the values from memory variable instead of ini file. Suggested and contributed by Sergej Kiselev (see demo2.prg in folder \samples\Advanced\Tsb_Ini2Tbrowse) * Updated: ComboBox control message APIs were used in some C-code instead the direct calling the function SendMessage(). Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo in folder \samples\Advanced\AutoFill_2) * Updated: Finished replacement of LONG_PTR with HB_PTRUINT in the kernel C-code casting. Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: MySql library source code (see in folder \Source\HbMySql): - added the support for SSL options in the class TMySQLServer; - added support for TIMESTAMP and DATETIME types in the method TMySQLQuery():GetRow(). Based upon a contribution of Viktor Szakats (borrowed from 3.4 fork). Adapted for Minigui Extended by Grigory Filatov * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.39.4 (from 3.39.3). Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: 'How to add, edit, delete and browse data into an object in an MDI-child window' sample. Contributed by Grigory Filatov <gfilatov@gmail.com> (see test04.prg in folder \samples\Advanced\TDatabase)
cFile Имя файла в режиме только чтение. nMapArea номер области ( 1 - 10 ) или -1 ( F_ERROR ) nRO в каком режиме открывать файл == 0
fmp_Count( [nMapArea] ) -> nCount количество строк файла "...Chr(13)+Chr(10)"
nMapArea - номер области ( 1 - 10 ) [ nMapArea == 1 ]
учитывается что в последней строке может и не быть Chr(10) ? но текст есть Скорость на тесте : (200 файлов и 1 500 000 строк всего) время 0.2 ~ 0.3 сек
fmp_Line( [nMapArea], [nLine], [lCheckUTF8] ) -> "Line..." | "" получить строку по номеру
nMapArea - номер области ( 1 - 10 ) [ nMapArea == 1 ]
nLine - номер строки от 1 до fmp_Count( nMapArea ) эта запись становится текущей, ее можно получить fmp_RecNo( [ nMapArea ] )
если опущена то следующая за текущей если это была последняя то fmp_EOF( nMapArea ) -> .T.
lCheckUTF8 - нужно ли учитывать кодировку файла Def == .T.
/* fmp_Open( cFile, [nMp], [ nRO == 0] ) -> nMp | -1 cFile Имя файла в режиме только чтение. nMp номер области ( 1 - 10 ) или -1 ( F_ERROR ) nRO в каком режиме открывать файл */ HB_FUNC( FMP_OPEN ) { WCHAR cFile[ MAX_PATH+1 ]; int nRO=0;
hb_retnl( mf_index + 1 ); return ; } } hb_retnl(-1); } /* fmp_Count( [nMp] ) -> nCount количество строк файла "...Chr(13)+Chr(10)" учитывается что в последней строке может и не быть Chr(10) ? но текст есть Скорость на тесте : (200 файлов и 1 500 000 строк всего) время 0.2 ~ 0.3 сек */ HB_FUNC( FMP_COUNT ) { unsigned char *p; DWORD nCount=0, i=0, n=0;
_GetIndex( 1 );
if( ! (p = MF.pData) ) { hb_retnl(0); return; }
while( i++ < MF.dwSize) { if( *p++ == 10 ) { n = 0; nCount++;} /* Новая строка */ else n ++; }
hb_retnl( nCount + ((n > 0)? 1 : 0) ); }
static void __RetDeCode( unsigned char *utf, int Ln, BOOL lCheck, int y) { PHB_CODEPAGE cdp; int n=0; unsigned char *s;
if(y > 0) hb_storvclen_buffer( s, n, -1, y); else hb_retclen_buffer( s, n ); return ; } } } }
if( y > 0 ) hb_storvclen( utf, Ln, -1, y); else hb_retclen( utf, Ln ); } /* Найти запись по номеру Вернет количество символов в строке или -1 если не найдена */ static int _findNextRec( DWORD nPar,int nSkip, BOOL lCheckUTF8) /* Найти запись номер */ { unsigned char *p; DWORD n=0, nCount, nLine; DWORD i;
if( HB_ISNUM(nPar) ) /* Ищем от начала */ { p = MF.pData; if( MF.fUTF8 && lCheckUTF8 ) p += 3; /* Пропустить BOM */ nCount = 0; /* Текущий внутренний */ MF.pLine = p;
if( nCount == nLine ) { MF.pLine = (p - n - 1); /* Начало возвращаемой строки */ MF.nLine = nLine; /* Номер возвращаемой строки */ MF.nLen = n + 1; MF.fEOF = FALSE;
return (n-1); } n = 0; } /* Новая строка */ else n ++; /* Кол-во символов в стрке */ }
if( n > 0 && (nCount+1)==nLine ) {
MF.pLine = p - n; /* Начало возвращаемой строки */ MF.nLine = nLine; /* Номер возвращаемой строки */ MF.nLen = n; MF.fEOF = FALSE; return n; }
MF.fEOF = TRUE; return -1; }
/* stores a fixed length string on a variable by reference hb_storclen( const char * szText, HB_SIZE nLength, int iParam ); */
/* fmp_Line( [nMp], [nLine], [lCheckUTF8] ) -> "Line..." | "" получить строку по номеру nLine номер строки от 1 до hb_CountFileMap(cMp) lCheckUTF8 - нужно ли учитывать кодировку файла Def == .T. */
/* fmp_ATokenCSV( [nMp], nLine,[lDel=.T.],[lCheckUTF8:=.T.] ) -> {"Line..." | "", ...} получить массив токенов для файла CSV разделитель Chr(9) и проверяет начало и конец как '"' lDel == .T. ковычки удаляет ( если есть одновременно обе ) .F. ничего не удаляет lCheckUTF8 == .T. - проверять наличие utf-8 и перекодировать .F. - как есть */
HB_FUNC( FMP_ATOKENCSV ) { long n; BOOL lDel=FALSE; BOOL lCheckUTF8=TRUE;
int MultiByteToWideChar2( UINT CodePage, // code page DWORD dwFlags, // character-type options LPCSTR lpMultiByteStr, // address of string to map int cchMultiByte, // number of characters in string LPWSTR lpWideCharStr, // address of wide-character buffer int cchWideChar // size of buffer );
int WideCharToMultiByte2( UINT CodePage, // code page DWORD dwFlags, // performance and mapping flags LPCWSTR lpWideCharStr, // address of wide-character string int cchWideChar, // number of characters in string LPSTR lpMultiByteStr, // address of buffer for new string int cchMultiByte, // size of buffer LPCSTR lpDefaultChar, // address of default for unmappable characters LPBOOL lpUsedDefaultChar // address of flag set when default char. used );
BOOL ba_IsClassName( HWND hWnd, TCHAR *Name );
typedef unsigned char uchar;
#define HB_PARNI( n, x ) hb_parvni( n, x ) #define HB_PARNL( n, x ) hb_parvnl( n, x ) #define HB_STORNI( n, x, y ) hb_storvni( n, x, y ) #define HB_STORNL( n, x, y ) hb_storvnl( n, x, y ) #define HB_STORC( n, x, y ) hb_storvc_t( n, x, y ) #define HB_STORCT( n, x, y ) hb_storvc( n, x, y ) #define HB_STORCLEN( n, x, y, len) hb_storvclen( n, len, x, y) #define HB_STORL( n, x, y ) hb_storvl( n, x, y )
// Использовать для функций HWG_
#define HB_RETHANDLE( h ) hb_retptr( ( void * ) ( h ) ) #define HB_PARHANDLE( n ) hb_parptr( n ) #define HB_STOREHANDLE( h, n ) hb_storptr( ( void * ) ( h ), n ) #define HB_PUTHANDLE( i, h ) hb_itemPutPtr( i, ( void * ) ( h ) ) #define HB_GETHANDLE( i ) hb_itemGetPtr( i )
#define _HB_PARSTR( n, h, len ) wvt_wstrget( hb_param( n, HB_IT_ANY ), h, len ) #define _HB_PARSTRDEF( n, h, len ) wvt_wstrnull( hwg_wstrget( hb_param( n, HB_IT_ANY ), h, len ) ) #define _HB_RETSTR( str ) wvt_wstrset( hb_param( -1, HB_IT_ANY ), str ) #define _HB_RETSTRLEN( str, len ) wvt_wstrlenset( hb_param( -1, HB_IT_ANY ), str, len ) #define _HB_STORSTR( str, n ) wvt_wstrset( hb_param( n, HB_IT_BYREF ), str ) #define _HB_STORSTRLEN( str, len, n ) wvt_wstrlenset( hb_param( n, HB_IT_BYREF ), str, len ) #define _HB_ARRAYGETSTR( arr, n, h, len ) wvt_wstrget( hb_arrayGetItemPtr( arr, n ), h, len ) #define _HB_ARRAYSETSTR( arr, n, str ) wvt_wstrset( hb_arrayGetItemPtr( arr, n ), str ) #define _HB_ARRAYSETSTRLEN( arr, n, str, len ) wvt_wstrlenset( hb_arrayGetItemPtr( arr, n ), str, len ) #define _HB_ITEMCOPYSTR( itm, str, len ) wvt_wstrcopy( itm, str, len ) #define _HB_ITEMGETSTR( itm, h, len ) wvt_wstrget( itm, h, len ) #define _HB_ITEMPUTSTR( itm, str ) wvt_wstrput( itm, str ) #define _HB_ITEMPUTSTRLEN( itm, str, len ) wvt_wstrlenput( itm, str, len ) #define _HB_STRUNSHARE( h, str, len ) wvt_wstrunshare( h, str, len ) #define _hb_strfree( h ) wvt_wstrfree( h )
Отправлено: 16.10.22 11:11. Заголовок: Что то не совсем пон..
Что то не совсем понятен пример использования ? Там просто функция чтения файла и всё. А как вытаскивать нужные значения в тексте программы ?
SergKis
постоянный участник
Пост N: 4166
Зарегистрирован: 17.02.12
Отправлено: 16.10.22 17:22. Заголовок: Andrey пишет Что то ..
Andrey пишет
цитата:
Что то не совсем понятен пример использования ?
IF ( nMp := fmp_Open( cTxt ) ) > 0 DO WHILE ! fmp_Eof( nMp ) cTx := fmp_Line( nMp ) ... ENDDO fmp_Close( nMp ) ENDIF или IF ( nMp := fmp_Open( cTxt ) ) > 0 nK := fmp_Count( nMp ) FOR nI := 1 TO nK cTx := fmp_Line( nMp, nI ) ... NEXT fmp_Close( nMp ) ENDIF ...
цитата:
Там просто функция чтения файла и всё
Так это и есть ф-ии чтения файла, который мапируется средствами windows в память. Если у тебя есть журналы большие лог и их много за период, то можно организовать на этих ф-ях просмотр журналов или съесть их в dbf (данные зависят от структуры лога в каждом конкретном случае). Пример показан для выборки из файлов txt до ~10 000 000 записей каждый (выдаваемые отчеты в txt из системы sql сервера) данных в dbf для дальнейшей индексации и реализации получения отчетов, которых нет в системе (а их там практически нет - все в ручном режиме через задание sql команд select ...)
цитата:
А как вытаскивать нужные значения в тексте программы ?
ф-я ниже разбирает строку полей, отделенных Chr(9) на массив значений полей fmp_ATokenCSV( [nMapArea], nLine, [lDel], [lCheckUTF8] ) -> {"Line..." | "", ...} // получить массив токенов для файла CSV где lDel == .T. кавычки удаляет ( если есть одновременно обе ) или .F. ничего не удаляет [ lDel == .T. default ] т.е.
aVal := fmp_ATokenCSV( nMp, nI ) (cAls)->( AEval(aVal, {|c,n| FieldPut(n, c) }) )
Одновременно можно открыть до 10 областей (файлов) для обработки, т.е. nMp1 := fmp_Open( cTxt1 ) nMp2 := fmp_Open( cTxt2 ) ... nMp10 := fmp_Open( cTxt10 )
Все даты в формате GMT
3 час. Хитов сегодня: 380
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
). 
- участник сейчас на форуме
- участник вне форума