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
 
 
 
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
便




top of page