Get Datas from Text File separated with commas...

[COSIDUS]

Hi everyone !!

I'd like to know how i could get datas from a Text file where datas are separated with commas. My aim is to get these datas and make them appear in different Textboxes as a Data Object can do... I need to do SQL request too with this text file... How could I do ??

If someone could help...

Thank you

COSIDUS

[Gary.Lowe]

Cosidus

Try this


Dim cnn As New ADODB.Connection
Dim rstText As New ADODB.Recordset

'Open the connection to the directory where the file is stored
cnn.Open "Provider=MSDASQL;Driver={Microsoft text Driver (*.txt; *.csv)};DBQ=C:\Test"

'Open the text file for import
rstText.Open "test.txt", cnn, adOpenKeyset

txtText1 = Trim(rstText.Fields(0))
txtText2 = Trim(rstText.Fields(1))
txtText3 = Trim(rstText.Fields(2))
'ETC


Hope this is of use to you

[Clunietp]

Or try this method, it doesn't use ODBC


'Uses ADO 2.1/5

Dim cn As ADODB.Connection
Dim rs As Recordset

Set cn = New Connection
Set rs = New Recordset

'open connection to folder that contains the CSV file
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties=Text;"

'open the file
rs.Open "select * from test.csv", cn

'we have data
MsgBox rs.Fields(1).Value

[softwareguy74]

In the example that Gary.Lowe gave, how would you specify a different delimiter, such as ::

It seems that your code only works if it's a comma..

Any help would be appreciated..

Dan