FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス > LoadTextFileRange メソッド : LoadTextFileRange(Stream,CellRange,TextFileFlags) メソッド |
'Declaration Public Overloads Sub LoadTextFileRange( _ ByVal stream As Stream, _ ByVal cellRange As CellRange, _ ByVal textFileFlags As TextFileFlags _ )
'使用法 Dim instance As SheetView Dim stream As Stream Dim cellRange As CellRange Dim textFileFlags As TextFileFlags instance.LoadTextFileRange(stream, cellRange, textFileFlags)
public void LoadTextFileRange( Stream stream, CellRange cellRange, TextFileFlags textFileFlags )
OpenFileDialog ofd = new OpenFileDialog(); string s; ofd.Filter = "text files (*.txt)|*.txt"; ofd.FilterIndex = 2; ofd.RestoreDirectory = true; if (ofd.ShowDialog() == DialogResult.OK) { s = ofd.FileName; FarPoint.Win.Spread.Model.CellRange cr = new FarPoint.Win.Spread.Model.CellRange(0, 0, 3, 3); fpSpread1.ActiveSheet.LoadTextFileRange(s, cr,FarPoint.Win.Spread.TextFileFlags.None); //fpSpread1.ActiveSheet.LoadTextFileRange(s, cr, FarPoint.Win.Spread.TextFileFlags.None, "\r", ",", "", System.Text.Encoding.ASCII); //fpSpread1.ActiveSheet.LoadTextFileRange(s, cr, FarPoint.Win.Spread.TextFileFlags.None, "\r", ",", ""); }
Dim s As String Dim ofd As New OpenFileDialog() ofd.Filter = "text files (*.txt)|*.txt" ofd.FilterIndex = 2 ofd.RestoreDirectory = True If ofd.ShowDialog() = DialogResult.OK Then s = ofd.FileName Dim cr As New FarPoint.Win.Spread.Model.CellRange(0, 0, 3, 3) FpSpread1.ActiveSheet.LoadTextFileRange(s, cr, FarPoint.Win.Spread.TextFileFlags.Unformatted) 'FpSpread1.ActiveSheet.LoadTextFileRange(s, cr, FarPoint.Win.Spread.TextFileFlags.Unformatted, Chr(13), ",", "", System.Text.Encoding.ASCII) 'FpSpread1.ActiveSheet.LoadTextFileRange(s, cr, FarPoint.Win.Spread.TextFileFlags.Unformatted, Chr(13), ",", "") End If