Visual Basic 6.0 Write to a text file

[Petec12]

Dear All,
I would like to know to write data from a group of .csv files to a newly created .csv file. Any ideas?

This is my code so far
Dim streets As Integer
Dim blpus As Integer
Dim addresses As Integer
Dim paonaddress As Integer
Dim saonaddress As Integer
Dim newfile As Integer
Dim addressdata() As String
Dim a As Integer

MyHeaderrecord.NameofFile = sourcefilename
Unit = FreeFile()

Open sourcefilename For Input As #Unit
streets = FreeFile()
Open "c:\temp_streets.csv" For Output As #streets

blpus = FreeFile()
Open "c:\temp_blpus.csv" For Output As #blpus

paonaddress = FreeFile()
Open "c:\temp_paon.csv" For Output As #paonaddress

saonaddress = FreeFile()
Open "c:\temp_saon.csv" For Output As #saonaddress

Do
Line Input #Unit, RecordData

Select Case Mid(RecordData, 1, 2)

Case "10"
header = RecordData

Case "11"
Print #streets, RecordData

' Case "21"
' Print #blpus, RecordData
' Case 24
' addressdata = Split(RecordData, ",")

' If addressdata(6) = """""" Then
' Print #paonaddress, RecordData
' Else
' Print #saonaddress, RecordData
' End If

Case 99
trailer = RecordData

Case Default


End Select
Loop Until EOF(Unit)

Close #streets
Close #blpus
Close #paonaddress
Close #saonaddress

newfile = FreeFile()
Open ("c:\pete_new_file.csv") For Output As #newfile

**** I am stuck here ****


End Sub

 

[IRstuff]

You should post this on the Tek-Tips forum for Visual Basic:

http://www.tek-tips.com/threadminder.cfm?pid=222

TTFN