summaryrefslogtreecommitdiff
path: root/bin/dbfxtrct.cpp
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2014-08-02 08:43:31 +0200
committerJörg Frings-Fürst <debian@jff-webhosting.net>2014-08-02 08:43:31 +0200
commitdaf17154bf13139d9375f48525d19d6aaba08155 (patch)
treee3c08b6c49dc8a8e83f03327591310546675b43d /bin/dbfxtrct.cpp
Imported Upstream version 3.1.2upstream/3.1.2
Diffstat (limited to 'bin/dbfxtrct.cpp')
-rwxr-xr-xbin/dbfxtrct.cpp188
1 files changed, 188 insertions, 0 deletions
diff --git a/bin/dbfxtrct.cpp b/bin/dbfxtrct.cpp
new file mode 100755
index 0000000..5d36b1e
--- /dev/null
+++ b/bin/dbfxtrct.cpp
@@ -0,0 +1,188 @@
+/*
+ Xbase64 project source code
+
+ This program extracts data from a dbf data file and puts it in
+ a comma delimited output file, suitable for input into an awk or
+ perl script
+
+ This program excludes all memo fields
+
+ Copyright (C) 1997,2003 Gary A. Kunkel
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+ Contact:
+
+ Email:
+
+ xbase64-devel@lists.sourceforge.net
+ xbase64-users@lists.sourceforge.net
+
+
+ Regular Mail:
+
+ XBase Support
+ 149C South Main St
+ Keller Texas, 76248
+ USA
+
+*/
+
+#include <xbase64/xbase64.h>
+
+/*************************************************************************/
+void Usage();
+void Usage()
+{
+ std::cout << "\nUsage: dbfxtrct -iDATABASE.DBF -sINDEX.N[TD]X -f -F -dMM/DD/YY\n";
+ std::cout << "\nWhere DATABASE.DBF is the name of the database file to dump\n";
+ std::cout << "INDEX.NTX or .NDX is an optional index sort paramater\n";
+ std::cout << "-f optional field name list in first record\n";
+ std::cout << "-F optional field name and attributes in first record\n";
+ std::cout << "MM/DD/YY is an optional output date format for any date fields\n";
+ std::cout << "\nThis program creates output suitable for awk and perl scripts\n";
+ std::cout << "\nThis program does not support memo fields (yet).\n";
+}
+/*************************************************************************/
+int main(int ac,char** av)
+{
+ xbXBase x;
+ xbDbf d( &x );
+ xbShort rc, FieldOption = 0;
+ xbIndex *ix = 0;
+ xbNdx z(&d);
+
+ char *dbfname = NULL;
+ char *ixname = NULL;
+ char *p;
+ char buf[200];
+ xbExpn exp( &x );
+
+/* Get the input paramaters
+
+ -i input datafile name
+ -s optional sort index name
+ -f optional field names in record one
+ -F optional field names and attributes in record one
+ -d date format
+*/
+ for( int i = 1; i < ac; i++ )
+ {
+ p = av[i];
+ if( *p != '-' ){
+ std::cout << "Invalid paramater " << *p << std::endl;
+ Usage();
+ return 1;
+ }
+ p++;
+ if( *p == 'i' )
+ dbfname = ++p;
+ else if( *p == 's' )
+ ixname = ++p;
+ else if( *p == 'f' )
+ FieldOption = 1;
+ else if( *p == 'F' )
+ FieldOption = 2;
+ else if( *p == 'd' )
+ x.SetDefaultDateFormat( ++p );
+ else{
+ std::cout << "Invalid paramater " << *p << std::endl;
+ Usage();
+ return 1;
+ }
+ }
+
+/* if missing params, display a usage message and exit */
+
+ if( !dbfname ){
+ Usage();
+ return 1;
+ }
+
+/* open the database file */
+
+ if(( rc = d.OpenDatabase( dbfname )) != XB_NO_ERROR )
+ {
+ std::cout << "\nCould not open file " << dbfname << " rc = " << rc
+ << "\n";
+ return 2;
+ }
+
+/* if an index was specified, open the index file */
+
+ if( ixname ){
+
+#ifdef XB_INDEX_NTX
+ if( strstr( ixname, "NTX" ))
+ ix = new xbNtx( &d );
+#endif
+
+#ifdef XB_INDEX_NDX
+ if( strstr( ixname, "NDX" ))
+ ix = new xbNdx( &d );
+#endif
+ if( !ix ){
+ std::cout << "Unknown index type. .NTX and .NDX index file support only\n";
+ return 3;
+ }
+ if(( rc = ix->OpenIndex( ixname )) != XB_NO_ERROR )
+ {
+ std::cout << "\nCould not open index " << ixname << " rc = " << rc
+ << "\n";
+ return 4;
+ }
+ }
+
+
+/* if -f or -F paramater, dump the header information */
+ if( FieldOption ){
+ for( xbLong l = 0; l < d.FieldCount(); l++ ){
+ if( l ) std::cout << ",";
+ std::cout << d.GetFieldName(l);
+ if( FieldOption == 2 ){
+ std::cout << "|" << d.GetFieldType(l) << "|" << d.GetFieldLen(l);
+ std::cout << "|" << d.GetFieldDecimal(l);
+ }
+ }
+ std::cout << std::endl;
+ }
+
+/* if an index used, then loop thru each record, based on index, else
+ dump in dbf sort order */
+ if( ixname )
+ rc = ix->GetFirstKey();
+ else
+ rc = d.GetFirstRecord();
+
+ while( rc == XB_NO_ERROR ){
+ for( xbLong l = 0; l < d.FieldCount(); l++ ){
+ if( l ) std::cout << ",";
+ strcpy( buf, exp.LTRIM( d.GetStringField( l )));
+ if( d.GetFieldType( l ) == 'D' )
+ std::cout << exp.DTOC( buf );
+ else
+ std::cout << exp.TRIM( buf );
+ }
+ if( ixname )
+ rc = ix->GetNextKey();
+ else
+ rc = d.GetNextRecord();
+ std::cout << std::endl;
+ }
+
+/* close everything */
+ d.CloseDatabase();
+ return 0;
+}