私のDevExpressCSVエクスポートには、レコードごとに2行あります。
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 Mergeを実行したいので、1行に変更したいと思います。(Wordがこれらの2行をマージして元に戻すことができない限り、私はそれができることはありません)
DevExpress XtraGrid ExportToTextはこれを可能にしますか?
MemoEditは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