Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Writing to a .txt File
Is this the proper way to write to a .txt file? Something must be out
of order b/c the status of the first x is printed next to the second x on the out file, and the status of the second x is printed next to the third x and so on. Close Open out For Output As #2 Close Open in For Input As #1 While (EOF(1) < True) Input #1, x x = Mid(x, 1, 10) Close #2 Open out For Append As #2 Print #2, x & "|" status ' Do Stuff Wend Thanks, -- Dan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Writing to a .txt File
Sub ABC()
Dim sSin As String Dim sOut As String Dim x As String sSin = "C:\In.txt" sOut = "C:\Out.txt" Open sOut For Append As #2 Open sSin For Input As #1 i = 0 While (EOF(1) < True) Input #1, x x = Mid(x, 1, 10) i = i + 1 Status = "Status: " & i Print #2, x & "|"; Status Wend Close #1 Close #2 End Sub worked fine for me. -- Regards, Tom Ogilvy "Dan R." wrote: Is this the proper way to write to a .txt file? Something must be out of order b/c the status of the first x is printed next to the second x on the out file, and the status of the second x is printed next to the third x and so on. Close Open out For Output As #2 Close Open in For Input As #1 While (EOF(1) < True) Input #1, x x = Mid(x, 1, 10) Close #2 Open out For Append As #2 Print #2, x & "|" status ' Do Stuff Wend Thanks, -- Dan |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Writing to a .txt File
Hi Dan,
I suggest to "steal" code: http://www.erlandsendata.no/english/...atextexportcsv Regards, Bernd |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
writing to a DB4 file | Excel Programming | |||
Writing a CSV file | Excel Programming | |||
Writing to a file from excel | Excel Programming | |||
Writing a .txt file | Excel Programming | |||
file writing | Excel Programming |