how to create multiple text files from a table of data? 2

[steveroot]

Hello all, can anyone help me with this please?

I have a table of data, something like,

Widgets £3.00
Gizmos £8.00

I would like to create a text file for each line on the table, so the first line would become a text file called 'widges.txt', and contain the string "widgets £3.00", the second line a file called 'Gizmos.txt' and contains "Gizmos £8.00".

I have used a module to get each line as a variable in a loop, but I can't work out any way of creating the text file from the module using the variables? Does anyone know how to do this bit please?

--
Steve Root

http://www.rootskitchens.co.uk

 

[DougP]

Sure use the Open command

Open Filename for Output as #1
Print #1, Yourdata
Close#1 DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[steveroot]

Thanks DougP, but how do i turn #1 into a text file? I have tried it but I can't find the file thats been created.

Thanks, --
Steve Root

http://www.rootskitchens.co.uk

 

[pflangan]

you don't turn #1, you use the name you stored in the String variable Filename

dim Filename as string

Filename="C:\output.txt"

open Filename for Output as #1
Print #1, "hello"
Close #1

you will have to set up some looping code to run through all the data in your table, taking the name of your product, and making a filename from it, opening the file, writing your data, closing the file, and looping back again

dim rs as adodb.recordset
set rs=new adodb.recordset

rs.open "SELECT productname, productprice FROM products", CurrentProject.Connection

while note rs.eof
Filename = "C:\temp\" & rs("productname&quot & ".txt"
open Filename for output as #1
print #1, rs("productprice&quot
close #1
rs.movenext
wend
rs.close
set rs=nothing

there you go.

 

[steveroot]

Thanks DougP & Pflangan, thats just what i needed to know and my database now does what i want it to
--
Steve Root

http://www.rootskitchens.co.uk