FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス > SaveTextFile メソッド : SaveTextFile(Stream,TextFileFlags,IncludeHeaders,String,String,String) メソッド |
'Declaration Public Overloads Function SaveTextFile( _ 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 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.SaveTextFile(stream, textFileFlags, includeHeaders, rowDelimiter, columnDelimiter, cellDelimiter)
public bool SaveTextFile( 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.SaveTextFile(s, FarPoint.Win.Spread.TextFileFlags.None, 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.SaveTextFile(s, FarPoint.Win.Spread.TextFileFlags.None, FarPoint.Win.Spread.Model.IncludeHeaders.BothCustomOnly, Chr(13), ",", "") s.Close() End If