Click here to Skip to main content
12,076,925 members (46,353 online)
Rate this:
 
Please Sign up or sign in to vote.
See more: C# VB VB.NET
The Below Code i have used to Export for CSV Format
<  Dim FileFullPath As String = System.IO.Path.GetFullPath(psPhysicalFileName)
        Dim FileExtension As String = System.IO.Path.GetExtension(FileFullPath)
 
        ' Determine the original file name.
        ' When the download window opens, show the original file name in the File Name textbox.
        Dim OriginalFileName As String = System.IO.Path.GetFileName(psOriginalFileName)
 
        Dim FileType As String = String.Empty
        Dim FileContentType As String = String.Empty
 
        Try
            If Not IsDBNull(FileExtension) Then
                FileType = LCase(FileExtension)
 
                ' Determine the content type based on the file extension.
                Select Case FileType
                    Case ".html"
                        FileContentType = "text/HTML"
                    Case ".gif"
                        FileContentType = "image/GIF"
                    Case "jpeg"
                        FileContentType = "image/JPEG"
                    Case ".txt"
                        FileContentType = "text/plain"
                    Case ".csv"
                        FileContentType = "text/csv"
                End Select
            End If
 
            ' The dialog should show the original file name.
            If (forceDownload) Then
                Response.AppendHeader("content-disposition", _
                                      "attachment; filename=" & OriginalFileName)
            End If
 
            ' Sent the content type so that browser will know how to handle the file.
            If FileType <> String.Empty Then
                Response.ContentType = FileContentType
            End If
 

            ' Initiate the download
            Response.WriteFile(FileFullPath.ToString())
 
            ' Show the link to all the user to download the file if necessary.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "You have downloaded the file " & OriginalFileName
 
            End If
 
            Response.End()
 
        Catch oEx As Exception
 
            ' Show the error message if needed.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "Error downloading the file " & OriginalFileName
            End If
 
        Finally
            ' Clean up objects
        End Try
>

In one cell,i get output like
"Left Message – VM" Instead of "Left Message - VM"
Thanks in Advance
Posted 30-Aug-12 0:03am
rajrprk894
Edited 30-Aug-12 0:05am
Legor5.9K
v2

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month


Advertise | Privacy | Mobile
Web03 | 2.8.160212.1 | Last Updated 30 Aug 2012
Copyright © CodeProject, 1999-2016
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100