[AccessD] Re-Invent The Wheel??

Not to be so forward but, "care to share?"  :-)


Robert Gracie
www.servicexp.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben
Cummings
Sent: Monday, October 17, 2005 10:46 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Re-Invent The Wheel??

I just did this and my system uses a table that holds the field name,
how long the field should be when text, and if there should be leading
zeros or trailing blanks.

This way I can create a text file for any database I have just by typing
in the field names I need extracted and the data type and length
required for output.  In this case, I had some data that was numbers and
the state required that they have leading zeros - that's why I mention
data type.

Then it uses code similar to Seth's or Stuart's to create the actual
string.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Stuart 
> McLachlan
> Sent: Saturday, October 15, 2005 5:53 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Re-Invent The Wheel??
>
>
> On 15 Oct 2005 at 12:03, Gustav Brock wrote:
> > Go to Seth's site:
> >
> > http://www-personal.ksu.edu/~sgsax/download/file_io.txt
>
> > >>> robert at servicexp.com 15-10-2005 02:20 >>>
> >
> > Hello, All
> >  Does anyone have some text exporting code that I can use.. I need 
> > to come up with a system that will pull data from multiple tables, 
> > format the data, name fields and export said data out in a very 
> > specific fixed width txt file.
> >
>
> The only thing to change in Seth's code is how to build the output 
> string since you need fixed width.
>
> The way I build fixed width strings for output is something like this:
>
> Function Pad(TextString,StringLength) a String 'outputs a fixed length

> string 'pads short strings with spaces and truncates long strings Pad 
> = Left$(TextString & Space$(StringLength),StringLength)
> End Function
>
> .......
> strOutput = Space$(intTotalStringLength) 'Insert a Text field
> Mid$(strOutput,1) = Pad(!Field1,10)
> 'Insert a Numeric field
> Mid$(strOuput,11) = Pad(Trim$(Str(!Field2)),10) ....
>
> --
> Stuart
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com