[AccessD] Eliminating lines of text before importing

jwcolby jwcolby at colbyconsulting.com
Fri Oct 26 20:19:04 CDT 2007


LOL, what did you gain with that?  I can (and do) open files of 10 gigabytes
with my method.


John W. Colby
Colby Consulting
www.ColbyConsulting.com 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Drew Wutka
Sent: Friday, October 26, 2007 3:03 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Eliminating lines of text before importing

Egads, that sounds ugly!

Dim i as long
Dim f as long
Dim strArray() as string
Dim strTemp as string	
Dim strFilePath as string
strFilePath="C:\YourImportFile.txt"
f=freefile
open strfilepath for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f
strArray=split(strtemp,vbcrlf)
kill strfilepath
f=freefile
open strfilepath for binary access write as f for i=65 to ubound(strarray())
	put f,,strarray(i)
next i
close f


Drew

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: Friday, October 26, 2007 8:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Eliminating lines of text before importing

I do it by opening a file for input and a file for output, read line by
line, count 65 lines, then start writing out to the output file on line 66. 


John W. Colby
Colby Consulting
www.ColbyConsulting.com
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of ewaldt at gdls.com
Sent: Friday, October 26, 2007 7:29 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Eliminating lines of text before importing

I have a semicolon-delimited text file coming in from another operating
system. The data I want to import begins on line 66. How can I tell Access
to either delete the first 65 lines before importing the data, or just start
importing on line 66? At this point the user has to delete the first
65 lines manually, but I'd like to automate this. I have Access 2002 (XP),
and am using VBA, of course.

TIA.

Thomas F. Ewald
Stryker Mass Properties
General Dynamics Land Systems


This is an e-mail from General Dynamics Land Systems. It is for the intended
recipient only and may contain confidential and privileged information.
No
one else may read, print, store, copy, forward or act in reliance on it or
its attachments.  If you are not the intended recipient, please return this
message to the sender and delete the message and any attachments from your
computer. Your cooperation is appreciated.

--
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 The information contained in this
transmission is intended only for the person or entity to which it is
addressed and may contain II-VI Proprietary and/or II-VI BusinessSensitve
material. If you are not the intended recipient, please contact the sender
immediately and destroy the material in its entirety, whether electronic or
hard copy. You are notified that any review, retransmission, copying,
disclosure, dissemination, or other use of, or taking of any action in
reliance upon this information by persons or entities other than the
intended recipient is prohibited.


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




More information about the AccessD mailing list