Почтовый адрес форсирует 2-ю запись в CSV (DevExpress Controls) - PullRequest
Новая
       14

Почтовый адрес форсирует 2-ю запись в CSV (DevExpress Controls)

0 голосов
/ 20 апреля 2010

Мой экспорт DevExpress CSV имеет две строки на запись. 

Rank Score,Prog.,Full Address               
63.30     ,JIW  ,1234 Whispering Pines Dr   
          ,     ,Sometown MI 48316
62.80     ,JIW  ,9876 Beagle Dr             
          ,     ,Sometown Twp MI 48382

Я хотел бы изменить его на одну строку, потому что я хочу выполнить слияние Word.(Если Word не может объединить эти две строки вместе, что я не могу сделать)

Разрешает ли это DevExpress XtraGrid ExportToText ?используется XtraGrid и инициализируется с использованием следующего кода (замечен ControlChars.NewLine): 

Public ReadOnly Property FullAddress() As String
    Get
        Dim strAddress As System.Text.StringBuilder = New StringBuilder()
        If Not IsNullEntity Then
            strAddress.Append(Line1 + ControlChars.NewLine)
            If Not Line2 Is Nothing AndAlso Me.Line2.Length > 0 Then
                strAddress.Append(Line2 + ControlChars.NewLine)
            End If
            If Not Line3 Is Nothing AndAlso Me.Line3.Length > 0 Then
                strAddress.Append(Line3 + ControlChars.NewLine)
            End If
            strAddress.Append(String.Format("{0} {1} {2}", City, RegionCode, PostalCode))
            If Me.Country <> "UNITED STATES" Then
                strAddress.Append(ControlChars.NewLine + Me.Country)
            End If
        End If
        Return strAddress.ToString
    End Get
End Property

Вот экспорт в код CSV: 

    Dim saveFile As New SaveFileDialog
    With saveFile
        '.InitialDirectory = ClientManager.CurrentClient.Entity.StudentPictureDirectory
        .FileName = "ApplicantList.csv"
        .CheckPathExists = True
        .CheckFileExists = False
        .Filter = "All Files (*.*)|*.*"
    End With
    If saveFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
        Dim PrintingTextExportOptions As New DevExpress.XtraPrinting.TextExportOptions(",", Encoding.ASCII)
        PrintingTextExportOptions.QuoteStringsWithSeparators = True
        ApplicantRankListViewsGridControl.ExportToText(saveFile.FileName, PrintingTextExportOptions)
    End If

1 Ответ

2 голосов
/ 26 мая 2010

Я считаю http://www.filehelpers.net/ отличным инструментом для экспорта / импорта файлов в различные форматы. Надеюсь, это поможет вам.

...