LoadTextFileRange(Stream,CellRange,TextFileFlags,String,String,String) メソッド

指定したファイルから区切り付きテキストをシートにロードします。

構文

Visual Basic
C#

'Declaration
 
Public Overloads Sub LoadTextFileRange( _
   ByVal stream As Stream, _
   ByVal cellRange As CellRange, _
   ByVal textFileFlags As TextFileFlags, _
   ByVal rowDelimiter As String, _
   ByVal columnDelimiter As String, _
   ByVal cellDelimiter As String _
)

'使用法
 
Dim instance As SheetView
Dim stream As Stream
Dim cellRange As CellRange
Dim textFileFlags As TextFileFlags
Dim rowDelimiter As String
Dim columnDelimiter As String
Dim cellDelimiter As String
 
instance.LoadTextFileRange(stream, cellRange, textFileFlags, rowDelimiter, columnDelimiter, cellDelimiter)

public void LoadTextFileRange( 
   Stream stream,
   CellRange cellRange,
   TextFileFlags textFileFlags,
   string rowDelimiter,
   string columnDelimiter,
   string cellDelimiter
)

パラメータ

stream: シートのテキストのロード先のストリーム
cellRange: テキストファイルからロードするときのデータの処理範囲を指定します。
textFileFlags: テキストファイルからロードするときのデータの処理方法を指定します。
rowDelimiter: 行区切り文字列
columnDelimiter: 列区切り文字列
cellDelimiter: セル区切り文字列

例外

例外	説明
System.ArgumentException	セル区切り文字列を行または列の区切り文字列に含めることはできません。

例

次のサンプルコードは、LoadTextFileRangeメソッドを使用します。

C#
VB.NET

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

参照

SheetView クラス
 SheetView メンバ
 オーバーロード一覧