NSDFile.NSDTextFile メンバ
テキストファイルの操作を行います。
●コンストラクタ
名前 説明 NSDFile.NSDTextFile NSDFile.NSDTextFileを初期化します。
●メソッドの一覧
名前 引数 戻り値 説明 Dispose なし なし リソースの解放を行います。 GetTotalLineCount ( String ) Long型 全体の行数を取得します。 ( String , String ) Long型 ファイルのエンコード名を指定して全体の行数を取得します。 ( String , Integer ) Long型 ファイルのエンコード(コードページ番号)を指定して全体の行数を取得します。 ( String , Encoding , [String] , [Integer] ) Long型 ファイルのエンコード、改行コード、読込バッファサイズを指定して全体の行数を取得します。 DeleteStartLineCount ( String , Long ) Long型 先頭から指定行数を削除します。 ( String , Long , String ) Long型 ファイルのエンコード名を指定して先頭から指定行数を削除します。 ( String , Long , Integer ) Long型 ファイルのエンコード(コードページ番号)を指定して先頭から指定行数を削除します。 ( String , Long , Encoding , [String] , [Integer] ) Long型 ファイルのエンコード、改行コード、読込バッファサイズを指定して先頭から指定行数を削除します。 DeleteEndLineCount ( String , Long ) Long型 最後から指定行数を削除します。 ( String , Long , String ) Long型 ファイルのエンコード名を指定して最後から指定行数を削除します。 ( String , Long , Integer ) Long型 ファイルのエンコード(コードページ番号)を指定して最後から指定行数を削除します。 ( String , Long , Encoding , [String] , [Integer] ) Long型 ファイルのエンコード、改行コード、読込バッファサイズを指定して最後から指定行数を削除します。 AppendOneLine ( String , String , Encoding , String ) Boolean型 最後尾に1行追加します。 AppendStartOneLine ( String , String , Encoding , String , [NSD_BOM_Style] ) Boolean型 先頭に1行追加します。 AppendNLine ( String , String , Encoding , String , [Boolean] ) Boolean型 最後尾に複数行追加します。 AppendStartNLine ( String , String , Encoding , String , [NSD_BOM_Style] , [Boolean] , [Integer] ) Boolean型 先頭に複数行追加します。
●定数の一覧
名前:NSD_BOM_Style (BOM (Byte Order Mark) の設定。) 名前 内容 Set_BOM BOMをセットします。 NotSet_BOM BOMはセットしません。 CheckAndSet_BOM 元のデータにBOMがある場合はBOMをセットします。
※新たに作成されるファイルはBOMをセットしません。CheckAndNewSet_BOM 元のデータにBOMがある場合はBOMをセットします。
※新たに作成されるファイルはBOMをセットします。
●NSDTextFileコンストラクタの説明
構文:Public Sub New()
使用法:Dim Cls_TextFile As New NSDFile.NSDTextFile
引数:なし。
使用例:
Public Class Form1 Dim Cls_TextFile As New NSDFile.NSDTextFile : End Class
●NSDTextFileメソッドの説明
名前:Dispose
構文:Public Overridable Sub Dispose() Implements IDisposable.Dispose 機能:リソースの解放を行います。
※終了時に必ず呼び出します。
引数:なし。
戻り値:なし。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub End Class
名前:GetTotalLineCount
機能:全体の行数を取得します。
@全体の行数を取得します。 構文:Public Function GetTotalLineCount( FileName ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) 行数を取得するファイルのフルパス名を渡します。
※Utf-8で作成されているファイル。戻り値:Long
戻り値の説明:
行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 全体の行数を取得します。 Private Sub Button_GetLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_GetLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.GetTotalLineCount(Str_File) MsgBox("全行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Aファイルのエンコード名を指定して全体の行数を取得します。 構文:Public Function GetTotalLineCount( FileName , EncodeingName ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) 行数を取得するファイルのフルパス名を渡します。 EncodeingName String 値渡し(ByVal) ファイルのEncodeing名を渡します。 戻り値:Long
戻り値の説明:
行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 全体の行数を取得します。 Private Sub Button_GetLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_GetLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.GetTotalLineCount(Str_File, "SJIS") MsgBox("全行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Bファイルのエンコード(コードページ番号)を指定して全体の行数を取得します。 構文:Public Function GetTotalLineCount( FileName , EncodeCodePage ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) 行数を取得するファイルのフルパス名を渡します。 EncodeCodePage Integer 値渡し(ByVal) エンコードのコードページ番号を渡します。 戻り値:Long
戻り値の説明:
行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 全体の行数を取得します。 Private Sub Button_GetLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_GetLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.GetTotalLineCount(Str_File, 932) MsgBox("全行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Cファイルのエンコード、改行コード、読込バッファサイズを指定して全体の行数を取得します。 構文:Public Function GetTotalLineCount( FileName , Encoding , [NewLineCode] , [OneReadBufferSize] ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) 行数を取得するファイルのフルパス名を渡します。 Encoding System.Text.Encoding 値渡し(ByVal) エンコードを渡します。 [NewLineCode] String 値渡し(ByVal) 改行コードを渡します。(既定値:Nothing)
※Nothingの場合は、システムで設定されているコードを確認します。
指定されているコードが存在しない場合はCrLfを改行コードにします。[OneReadBufferSize] Integer 値渡し(ByVal) 1度に読み込むバッファサイズを渡します。(既定値:4096) 戻り値:Long
戻り値の説明:
行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 全体の行数を取得します。 Private Sub Button_GetLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_GetLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim En As System.Text.Encoding = System.Text.Encoding.GetEncoding("SJIS") Dim Lng_LineCount As Long = Cls_TextFile.GetTotalLineCount(Str_File, En, _ ControlChars.CrLf, 4096) MsgBox("全行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
名前:DeleteStartLineCount
機能:先頭から指定行数を削除します。
@先頭から指定行数を削除します。 構文:Public Function DeleteStartLineCount( FileName , CutLineCount ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。
※Utf-8で作成されているファイル。CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 先頭から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.DeleteStartLineCount(Str_File, 2) MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Aファイルのエンコード名を指定して先頭から指定行数を削除します。 構文:Public Function DeleteStartLineCount( FileName , CutLineCount , EncodeingName ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 EncodeingName String 値渡し(ByVal) ファイルのEncodeing名を渡します。 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 先頭から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.DeleteStartLineCount(Str_File, 2, "SJIS") MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Bファイルのエンコード(コードページ番号)を指定して先頭から指定行数を削除します。 構文:Public Function DeleteStartLineCount( FileName , CutLineCount , EncodeCodePage ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 EncodeCodePage Integer 値渡し(ByVal) エンコードのコードページ番号を渡します。 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 先頭から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.DeleteStartLineCount(Str_File, 2, 932) MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Cファイルのエンコード、改行コード、読込バッファサイズを指定して先頭から指定行数を削除します。 構文:Public Function DeleteStartLineCount( FileName , CutLineCount , Encoding , [NewLineCode] , [OneReadBufferSize] ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 Encoding System.Text.Encoding 値渡し(ByVal) エンコードを渡します。 [NewLineCode] String 値渡し(ByVal) 改行コードを渡します。(既定値:Nothing)
※Nothingの場合は、システムで設定されているコードを確認します。
指定されているコードが存在しない場合はCrLfを改行コードにします。[OneReadBufferSize] Integer 値渡し(ByVal) 1度に読み込むバッファサイズを渡します。(既定値:4096) 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 先頭から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim En As System.Text.Encoding = System.Text.Encoding.GetEncoding("SJIS") Dim Lng_LineCount As Long = Cls_TextFile.DeleteStartLineCount(Str_File, 2, _ En, ControlChars.CrLf, 4096) MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
名前:DeleteEndLineCount
機能:最後から指定行数を削除します。
@最後から指定行数を削除します。 構文:Public Function DeleteEndLineCount( FileName , CutLineCount ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。
※Utf-8で作成されているファイル。CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 最後から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.DeleteEndLineCount(Str_File, 2) MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Aファイルのエンコード名を指定して最後から指定行数を削除します。 構文:Public Function DeleteEndLineCount( FileName , CutLineCount , EncodeingName ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 EncodeingName String 値渡し(ByVal) ファイルのEncodeing名を渡します。 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 最後から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.DeleteEndLineCount(Str_File, 2, "SJIS") MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Bファイルのエンコード(コードページ番号)を指定して最後から指定行数を削除します。 構文:Public Function DeleteEndLineCount( FileName , CutLineCount , EncodeCodePage ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 EncodeCodePage Integer 値渡し(ByVal) エンコードのコードページ番号を渡します。 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 最後から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.DeleteEndLineCount(Str_File, 2, 932) MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
Cファイルのエンコード、改行コード、読込バッファサイズを指定して最後から指定行数を削除します。 構文:Public Function DeleteEndLineCount( FileName , CutLineCount , Encoding , [NewLineCode] , [OneReadBufferSize] ) As Long
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 CutLineCount Long 値渡し(ByVal) 削除する行数を渡します。 Encoding System.Text.Encoding 値渡し(ByVal) エンコードを渡します。 [NewLineCode] String 値渡し(ByVal) 改行コードを渡します。(既定値:Nothing)
※Nothingの場合は、システムで設定されているコードを確認します。
指定されているコードが存在しない場合はCrLfを改行コードにします。[OneReadBufferSize] Integer 値渡し(ByVal) 1度に読み込むバッファサイズを渡します。(既定値:4096) 戻り値:Long
戻り値の説明:
削除した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 最後から指定行数を削除します。 Private Sub Button_DeleteLine_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_DeleteLine.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Lng_LineCount As Long = Cls_TextFile.DeleteEndLineCount(Str_File, 2, _ En, ControlChars.CrLf, 4096) MsgBox("削除した行数:" & Lng_LineCount.ToString()) Catch ex As Exception End Try End Sub End Class
名前:AppendOneLine
構文:Public Function AppendOneLine( FileName , TextData , Encoding , NewLineCode ) As Boolean 機能:最後尾に1行追加します。
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 TextData String 値渡し(ByVal) 追加するテキストを渡します。 Encoding System.Text.Encoding 値渡し(ByVal) エンコードを渡します。 NewLineCode String 値渡し(ByVal) 改行コードを渡します。 戻り値:Boolean
戻り値の説明:
True:成功 False:失敗
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 最後尾に1行追加します。 Private Sub Button_AppendText_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_AppendText.Click Try Dim Str_File As String = Me.TextBox1.Text Dim En As System.Text.Encoding = System.Text.Encoding.GetEncoding("SJIS") If Cls_TextFile.AppendOneLine( Str_File, "あいうえお", En, ControlChars.CrLf) Then MsgBox("1行追加しました。") Else MsgBox("行の追加に失敗しました。") End If Catch ex As Exception End Try End Sub End Class
名前:AppendStartOneLine
構文:Public Function AppendStartOneLine( FileName , TextData , Encoding , NewLineCode , [BOMStyle] ) As Boolean 機能:先頭に1行追加します。
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 TextData String 値渡し(ByVal) 追加するテキストを渡します。 Encoding System.Text.Encoding 値渡し(ByVal) エンコードを渡します。 NewLineCode String 値渡し(ByVal) 改行コードを渡します。 [BOMStyle] NSD_BOM_Style 値渡し(ByVal) BOM(Byte Order Mark)の処理方法を渡します。(既定値:NSD_BOM_Style.CheckAndSet_BOM) 戻り値:Boolean
戻り値の説明:
True:成功 False:失敗
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 先頭に1行追加します。 Private Sub Button_AppendText_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_AppendText.Click Try Dim Str_File As String = Me.TextBox1.Text Dim En As System.Text.Encoding = System.Text.Encoding.GetEncoding("SJIS") If Cls_TextFile.AppendStartOneLine( Str_File, "あいうえお", _ En, ControlChars.CrLf) Then MsgBox("1行追加しました。") Else MsgBox("行の追加に失敗しました。") End If Catch ex As Exception End Try End Sub End Class
名前:AppendNLine
構文:Public Function AppendNLine( FileName , TextData , Encoding , NewLineCode , [LastNullAdd] ) As Long 機能:最後尾に複数行追加します。
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 TextData String 値渡し(ByVal) 追加するテキストを渡します。 Encoding System.Text.Encoding 値渡し(ByVal) エンコードを渡します。 NewLineCode String 値渡し(ByVal) 改行コードを渡します。 [LastNullAdd] Boolean 値渡し(ByVal) 追加するテキストの最後に""が存在する場合に追加の有無を指定します。(既定値:False)
※追加するテキストの最後に改行コードが存在する場合、最後に改行のみの行を追加する場合はTrue、追加しない場合はFalseを指定します。戻り値:Long
戻り値の説明:
追加した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 最後尾に複数行追加します。 Private Sub Button_AppendText_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_AppendText.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Str_Text As String = Me.TextBox2.Text Dim En As System.Text.Encoding = System.Text.Encoding.GetEncoding("SJIS") Dim Lng_LC As Long = Cls_TextFile.AppendNLine( Str_File, Str_Text, _ En, ControlChars.CrLf) MsgBox( Lng_LC.ToString() & "行追加しました。") Catch ex As Exception End Try End Sub End Class
名前:AppendStartNLine
構文:Public Function AppendStartNLine( FileName , TextData , Encoding , NewLineCode , [BOMStyle] , [LastNullAdd] , [OneReadBufferSize] ) As Long 機能:先頭に複数行追加します。
引数:
名前 型 引数渡しの方法 説明 FileName String 値渡し(ByVal) ファイルのフルパス名を渡します。 TextData String 値渡し(ByVal) 追加するテキストを渡します。 Encoding System.Text.Encoding 値渡し(ByVal) エンコードを渡します。 NewLineCode String 値渡し(ByVal) 改行コードを渡します。 [BOMStyle] NSD_BOM_Style 値渡し(ByVal) BOM(Byte Order Mark)の処理方法を渡します。(既定値:NSD_BOM_Style.CheckAndSet_BOM) [LastNullAdd] Boolean 値渡し(ByVal) 追加するテキストの最後に""が存在する場合に追加の有無を指定します。(既定値:False)
※追加するテキストの最後に改行コードが存在する場合、最後に改行のみの行を追加する場合はTrue、追加しない場合はFalseを指定します。[OneReadBufferSize] Integer 値渡し(ByVal) 1回のデータを読み込むバッファサイズを渡します。(既定値:4096) 戻り値:Long
戻り値の説明:
追加した行数を返します。
使用例:
Public Class Form1 ' NSDTextFileを初期化します。 Dim Cls_TextFile As New NSDFile.NSDTextFile ' FormClosing。 Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDTextFileの解放。 If Not (Cls_TextFile Is Nothing) Then Cls_TextFile.Dispose() Cls_TextFile = Nothing End If Catch ex As Exception End Try End Sub ' 先頭に複数行追加します。 Private Sub Button_AppendText_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_AppendText.Click Try Dim Str_File As String = Me.TextBox1.Text Dim Str_Text As String = Me.TextBox2.Text Dim En As System.Text.Encoding = System.Text.Encoding.GetEncoding("SJIS") Dim Lng_LC As Long = Cls_TextFile.AppendStartNLine( Str_File, Str_Text, _ En, ControlChars.CrLf) MsgBox( Lng_LC.ToString() & "行追加しました。") Catch ex As Exception End Try End Sub End Class
Copyright (C) 2010-2012 Nihon System Developer Corp. All Rights Reserved.