HMGforum.com

Code: Select all

Static Procedure ExportData()
Local cExt, cSaveFile, nIndex := 1, cAlias, nRecno

IF !Empty(nFocus)
	cSaveFile := PutFile( { {"DBF files (*.dbf)", "*.dbf"}, {"Text files (*.txt)", "*.txt"}, ;
		{"Data files (*.dat)", "*.dat"}, {"Excel files (*.xls)", "*.xls"}, ;
		{"Clipper, Foxpro files (*.prg)", "*.prg"}, {"All files (*.*)", "*.*"} }, , , , @nIndex )

	IF !Empty( cSaveFile )
		IF nIndex == 2
			cExt := "txt"
		ELSEIF nIndex == 3
			cExt := "dat"
		ELSEIF nIndex == 4
			cExt := "xls"
		ELSEIF nIndex == 5
			cExt := "prg"
		ELSE
			cExt := "dbf"
		ENDIF

Code: Select all

HB_FUNC( C_PUTFILENEW )
{
	OPENFILENAME ofn;
	TCHAR buffer[512];
	char cExt[ 4 ];
	int flags = OFN_FILEMUSTEXIST | OFN_EXPLORER ;
	
	if ( hb_parl(4) )
	{
		flags = flags | OFN_NOCHANGEDIR ;
	}
	
	if( strlen( HMG_parc( 5 ) ) != 0 )
      strcpy( buffer, HMG_parc( 5 ) );
    else
      strcpy( buffer, "" );
	  
	if( strlen( HMG_parc( 6 ) ) != 0 )
       strcpy( cExt, HMG_parc( 6 ) );
    else
       strcpy( cExt, "" );
 
	//******************************************************************************************************//   
	// ofn.lpstrFilter = A buffer containing pairs of null-terminated filter strings. 
	//                   The last string in the buffer must be terminated by two NULL characters.
	// The following code converts a ANSI (CHAR) filter string into a UNICODE (UNSIGNED INT) filter string
   
    #define _MAX_FILTER 32*1024
    INT i, j=0, cont=0;
    CHAR *p = (CHAR*) hb_parc(1);
    TCHAR Filter [_MAX_FILTER];
    memset((void*) &Filter, 0, sizeof(Filter));
    
    for (i=0; *p != '\0'; i++)
    {  cont = cont + strlen(p) + 1;
       if (cont < _MAX_FILTER)
       {   lstrcpy (&Filter[j],HMG_CHAR_TO_WCHAR(p));
           /*
              TCHAR Text [100];
              wsprintf(Text,_TEXT("%d  %d  %s"),i,cont,&Filter[j]);
              MessageBox (NULL, Text, _TEXT("DEBUG"), MB_OK);   
           */
           j = j + lstrlen (HMG_CHAR_TO_WCHAR(p)) + 1;
           p = p + strlen(p) + 1;
       }
       else
          break;
    }
	//**********************************************************************//   

	memset ((void*)&buffer, 0, sizeof(buffer));
	memset( (void*) &ofn, 0, sizeof( OPENFILENAME ) );
	ofn.lStructSize = sizeof(OPENFILENAME);
	ofn.hwndOwner = GetActiveWindow() ;
	// ofn.lpstrFilter = (LPCTSTR) hb_parc(1);
	ofn.lpstrFilter = (LPCTSTR) &Filter;
	ofn.lpstrFile = (LPTSTR) &buffer;
	ofn.nMaxFile = 512;
	ofn.lpstrInitialDir = (LPCTSTR) HMG_parc(3);
	ofn.lpstrTitle = (LPCTSTR) HMG_parc(2);
	ofn.Flags = flags;
	ofn.lpstrDefExt = cExt;
	
	if( GetSaveFileName( &ofn ) )
	{
		HMG_retc(ofn.lpstrFile);
	}
	else
	{
		hb_retc( "" );
	}
}

Code: Select all

*-----------------------------------------------------------------------------*
Function PutfileNew ( aFilter, title, cIniFolder, nochangedir, cDeFilName, cFileName )
*-----------------------------------------------------------------------------*
Local c:='' , n

DEFAULT cFileName := ""
DEFAULT cDeFilName := ""
DEFAULT aFilter:={}
DEFAULT title := ""
DEFAULT cIniFolder := ""
 
For n := 1 TO HMG_LEN ( aFilter )
	c += aFilter [n] [1] + CHR(0) + aFilter [n] [2] + CHR(0)
Next
c :=  c + CHR(0)
Return C_PutFileNew ( c, title, cIniFolder, nochangedir, cDeFilName, cFileName )