Read .CSV file in VB.NET

[pallavi]

Thanks Phil for the reply.

Any program i am writting to read .CSV file, gives the same error that
1) "The Microsoft Jet database engine could not find the object 'test.csv'. Make sure the object exists and that you spell its name and the path name correctly."

I checked for the name and directory - its correct.

After searching on net I found that there could be second reason that
there should be an assembly with a strong name.

"create and sign an assembly with a strong name using the Assembly Linker"
At the command prompt, type the following command:
al /out:<assembly name> <module name> /keyfile:<file name>

but when I am creating assembly using command
<compiler command> <module name>
vbc Module1.vb -- its giving error

2) vbc : Command line error BC2001 : file 'Module1.vb' could not be found
vbc : Command line error BC2008 : no input sources specified

I searched for this issue - This issue occurs because a DLL that appears in the error
message is not registered in the global assembly cache. This could be done using

gacutil -i DriveLetter:\YourPath\YourAssemblyName.dll

now when i am registering , it says

3) "Failure adding assembly to the cache: The filename, directory name, or volume
label syntax is incorrect."

How can we add assembly to the cache before we create it?
Please tell me, how do I work out to create the assembly?
or any other way to sort out first error (1)?

Thanks and Regards.

[Phil Weber]

(I have split your question into its own thread. You originally posted it to a thread about reading a .CSV file in VB6, but it appears that you are using .NET.)

You do not need to create a strong-named assembly or add anything to the GAC in order to read a .CSV file. You may simply do this:

Dim FileNumber As Integer = FreeFile()

' Open file
FileOpen(FileNumber, "d:\filename.csv", OpenMode.Input)
' Loop until end of file
Do Until EOF(FileNumber)
' Read a line from file
Dim Text As String = LineInput(FileNumber)
' Split line at commas
Dim Values() As String = Split(Text, ",")
' Values(0) now contains first column value,
' Values(1) contains second column, etc.
Loop
' Close file
FileClose(FileNumber)