FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス > SaveTextFileRange メソッド : SaveTextFileRange(Int32,Int32,Int32,Int32,Stream,TextFileFlags,IncludeHeaders,String,String,String) メソッド |
'Declaration Public Overloads Function SaveTextFileRange( _ ByVal row As Integer, _ ByVal column As Integer, _ ByVal rowCount As Integer, _ ByVal columnCount As Integer, _ ByVal stream As Stream, _ ByVal textFileFlags As TextFileFlags, _ ByVal includeHeaders As IncludeHeaders, _ ByVal rowDelimiter As String, _ ByVal columnDelimiter As String, _ ByVal cellDelimiter As String _ ) As Boolean
'使用法 Dim instance As SheetView Dim row As Integer Dim column As Integer Dim rowCount As Integer Dim columnCount As Integer Dim stream As Stream Dim textFileFlags As TextFileFlags Dim includeHeaders As IncludeHeaders Dim rowDelimiter As String Dim columnDelimiter As String Dim cellDelimiter As String Dim value As Boolean value = instance.SaveTextFileRange(row, column, rowCount, columnCount, stream, textFileFlags, includeHeaders, rowDelimiter, columnDelimiter, cellDelimiter)
public bool SaveTextFileRange( int row, int column, int rowCount, int columnCount, Stream stream, TextFileFlags textFileFlags, IncludeHeaders includeHeaders, string rowDelimiter, string columnDelimiter, string cellDelimiter )
SaveFileDialog sfd = new SaveFileDialog(); System.IO.Stream s; sfd.Filter = "text files (*.txt)|*.txt"; sfd.FilterIndex = 2; sfd.RestoreDirectory = true; if (sfd.ShowDialog() == DialogResult.OK) { s = sfd.OpenFile(); fpSpread1.ActiveSheet.SaveTextFileRange(0,0, 5, 5, s, FarPoint.Win.Spread.TextFileFlags.Unformatted, FarPoint.Win.Spread.Model.IncludeHeaders.BothCustomOnly, "\r",",", ""); s.Close(); }
Dim sd As New SaveFileDialog() Dim s As System.IO.Stream sd.Filter = "text files (*.txt)|*.txt" sd.FilterIndex = 2 sd.RestoreDirectory = True If sd.ShowDialog() = DialogResult.OK Then s = sd.OpenFile FpSpread1.ActiveSheet.SaveTextFileRange(0, 0, 5, 5, s, FarPoint.Win.Spread.TextFileFlags.Unformatted, FarPoint.Win.Spread.Model.IncludeHeaders.BothCustomOnly, Chr(13), ",", "") s.Close() End If