Drew Wutka
DWUTKA at Marlow.com
Sun Oct 28 18:46:43 CDT 2007
I know, just seems ugly... ;) 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:19 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Eliminating lines of text before importing 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 -- 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.