Solved

TAB SEPERATED TEXT FILE

Posted on 1998-09-02
1
150 Views
Last Modified: 2010-04-30
I need to create a text file.  Can you show me code from start to finish.  It needs to be these numbers sent to a text file without quotes and seperated by a tab.  EG.

1 tab 3 tab 4 tab 5 6 tab7 tab 8 tab 9 tab 10
11 tab 12 tab 13 tab 14 tab 15 tab 16 tab 17

Etc How do I do this?

0
Comment
Question by:DAVIDH
1 Comment
 
LVL 2

Accepted Solution

by:
VBDesigns earned 40 total points
Comment Utility
Dim iFF as Integer
Dim iLoop as Integer

iFF = FreeFile

Open "c:\FileName.text" for Output as #iFF
For iLoop = 0 to (count-1)
    Write #iFF, , (cStr(iLoop) + Chr(9)) ' vbTab
Next iLoop

Close #iFF
0

Featured Post

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now