StdFuncクラス FileAppendメソッド
文字列をファイルに追記します。ファイルが存在しない場合は新規作成されます。
成功した場合はTrue、失敗した場合はFalseが返ります。
使用法
Dim instance As StdFunc = New StdFunc()
Dim filePathName As String 'ファイルのフルパス
Dim value As String '追記する文字列
Dim returnValue As Boolean '成功:True 失敗:False
'Overloads
returnValue = instance.FileAppend(filePathName, value) 'エンコードを指定しない場合はUTF-8
Dim instance As StdFunc = New StdFunc()
Dim filePathName As String 'ファイルのフルパス
Dim value As String '書き出す文字列
Dim encodeStr As String 'エンコードを表す文字列 "utf8" "shift_jis" "iso-2022-jp" "euc-jp"
Dim returnValue As Boolean '成功:True 失敗:False
'Overloads
returnValue = instance.FileAppend(filePathName, value, encodeStr)
Dim instance As StdFunc = New StdFunc()
Dim filePathName As String 'ファイルのフルパス
Dim value As String '書き出す文字列
Dim encode As System.Text.Encoding 'エンコード
Dim returnValue As Boolean '成功:True 失敗:False
'Overloads
returnValue = instance.FileAppend(filePathName, value, encode)
使用例
'StdFuncクラス FileAppendメソッド
Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Public Class AddIn
Private stdf As StdFunc
Public Sub New()
stdf = New StdFunc()
End Sub
Public Sub AddIn_Start()
Dim fname As String = "D:\tmp\output.txt"
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf) = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
stdf.WaitMilliSec(2000)
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf) = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
stdf.WaitMilliSec(2000)
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf) = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
MessageBox.Show("追記に成功しました")
End Sub
End Class
'StdFuncクラス FileAppendメソッド
Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Public Class AddIn
Private stdf As StdFunc
Public Sub New()
stdf = New StdFunc()
End Sub
Public Sub AddIn_Start()
Dim fname As String = "D:\tmp\output.txt"
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
, "euc-jp") = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
stdf.WaitMilliSec(2000)
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
, "euc-jp") = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
stdf.WaitMilliSec(2000)
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
, "euc-jp") = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
MessageBox.Show("追記に成功しました")
End Sub
End Class
'StdFuncクラス FileAppendメソッド
Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Public Class AddIn
Private stdf As StdFunc
Public Sub New()
stdf = New StdFunc()
End Sub
Public Sub AddIn_Start()
Dim fname As String = "D:\tmp\output.txt"
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
, System.Text.Encoding.GetEncoding(932)) = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
stdf.WaitMilliSec(2000)
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
, System.Text.Encoding.GetEncoding(932)) = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
stdf.WaitMilliSec(2000)
If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
, System.Text.Encoding.GetEncoding(932)) = False Then
MessageBox.Show("追記に失敗しました")
Exit Sub
End If
MessageBox.Show("追記に成功しました")
End Sub
End Class