Retrieving data from Txt file into datatable

[kriday]

Hi
I have written the following code to get data from txt file into datatable

Code:

Const   ForReading =1
row=1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\ExcelFiles\TestReg.txt" ,  ForReading)

Dim afilelines()
i=0
Do until objFile.AtEndOfStream
    ReDim Preserve afilelines(i)
    afilelines(i) = objFile.ReadLine
    i=i+1
Loop

objFile.Close
For Each strLine in afilelines
    MyArray =Split(strLine, " ", -1,1)
    For each sline in MyArray
        DataTable.SetCurrentRow(row)
        datatable("A" , dtglobalsheet) = sline
        row=row+1
    Next
Next
DataTable.ExportSheet  "C:\ExcelFiles\Book1.xls" , 1
ExitRun

but iam getting the following error

Code:

The set DataTable.Value operation failed. The <A> column does not exist.

Line (19): "DataTable("A" , dtGlobalSheet) = sline".

I need help on this
Thank you all

[vinod123]

i am not able know the error you have committed so i have posting the code which i use

Code:

Public Function ReadLineTextFile (strTextFile)

Dim fso, MyFile
Dim arrPairs, arrColumns, i

  Set fso = CreateObject("Scripting.FileSystemObject")

  ' Open the file for reading only
  Set MyFile = fso.OpenTextFile(strTextFile, 1)

  ' Read the input file
  ReadLineTextFile = MyFile.ReadLine

  ' Load the Global DataSheet.
  arrPairs = Split(ReadLineTextFile, "|")

  ' Note: This loop begins at Index 3 because Indices 0, 1, and 2
  '      (CurrentURL, CurrentBrowser, and CurrentPage) are already
  '      in the Global DataSheet)
  For i = 3 To UBound(arrPairs) - 1
    arrColumns = Split(arrPairs(i), ";")
    DataTable.GlobalSheet.AddParameter arrColumns(0), ""
    DataTable.Value(arrColumns(0), dtGlobalSheet) = arrColumns(1)
  Next

End Function '  ReadLineTextFile (strTextFile)

In your test script, just identify the path and filename of the text file...

  ' Identify the name of the input file to use.
  strTextFilePath = "C:\Test Data Files\"
  strTextFile = strTextFilePath & "FileName.txt"

Then just call the function when you need to...

  Call ReadLineTextFile (strTextFile)

[srinijg20]

Hi

Did u rename the column name as "A" if not rename it.

[vinod123]

just rename the column name to A