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.