FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス > SaveTextFile メソッド : SaveTextFile(String,TextFileFlags,IncludeHeaders,String,String,String) メソッド |
'Declaration Public Overloads Function SaveTextFile( _ ByVal fileName As String, _ 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 fileName As String 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(fileName, textFileFlags, includeHeaders, rowDelimiter, columnDelimiter, cellDelimiter)
public bool SaveTextFile( string fileName, TextFileFlags textFileFlags, IncludeHeaders includeHeaders, string rowDelimiter, string columnDelimiter, string cellDelimiter )
SaveFileDialog sfd = new SaveFileDialog(); string s; sfd.Filter = "text files (*.txt)|*.txt"; sfd.FilterIndex = 2; sfd.RestoreDirectory = true; if (sfd.ShowDialog() == DialogResult.OK) { s = sfd.FileName; fpSpread1.Sheets[0].SaveTextFile(s, FarPoint.Win.Spread.TextFileFlags.None, FarPoint.Win.Spread.Model.IncludeHeaders.BothCustomOnly, "\r", ",", ""); }
Dim sd As New SaveFileDialog() Dim s As String sd.Filter = "text files (*.txt)|*.txt" sd.FilterIndex = 2 sd.RestoreDirectory = True If sd.ShowDialog() = DialogResult.OK Then s = sd.FileName FpSpread1.Sheets(0).SaveTextFile(s, FarPoint.Win.Spread.TextFileFlags.None, FarPoint.Win.Spread.Model.IncludeHeaders.BothCustomOnly, Chr(13), ",", "") End If