Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;Extract Column Data from a tab delimited txt file using ADO dir = 'c:\temp\' tabfile = 'tabbedfile.txt' columnnum = 7 adOpenStatic = 3 adLockOptimistic = 3 adCmdText = 1 objConnection = CreateObject("ADODB.Connection") objRecordSet = CreateObject("ADODB.Recordset") objConnection.Open(StrCat('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=',dir,';Extended Properties="text;HDR=YES;FMT=TabDelimited"')) objRecordset.Open(StrCat("SELECT * FROM " , tabfile ), objConnection, adOpenStatic, adLockOptimistic, adCmdText) While !objRecordset.EOF ;Get entire row row = objRecordset.Fields.Item(0).Value ;Skip blank rows If row == "" objRecordset.movenext Continue EndIf ;Get column item = ItemExtract(columnnum, row, @TAB ) ;Skip blank fields If item == "" objRecordset.movenext Continue EndIf Message("Data", item) objRecordset.movenext EndWhile Exit
Article ID: W17440
File Created: 2008:04:10:15:10:28
Last Updated: 2008:04:10:15:10:28