12,673
回編集
差分
ナビゲーションに移動
検索に移動
stream.SaveToFile
stream.Position = 0
→UTF-8 に対応
<pre>
Option Explicit
'********************************************
'
' WARP個別部品見積ファイル生成ツール
'
' ファイルユーティリティクラス
' File関連のオブジェクト(ADODB.Stream)をラップ
'
'
' @see https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/stream-object-ado
'
'
'********************************************
Private Const INVALID_FILENO As Integer = -1
Private Const adReadLine = -2
Private Const adCR = 13
Private Const adSaveCreateOverWrite = 2
' 処理対象のファイル名を保持
' 処理中のファイル番号を保持
Private m_FileNo As Integer
Private m_FileMode As FileMode
'
' 初期化
Call setFilename(fileName)
'Call setFileNo(FreeFile)
m_FileMode = mode
Select Case mode
Case FileMode.OutputMode
'Open getFilename For Output As getFileNo
stream.mode = admodewriteadModeReadWrite stream.Position = 0
stream.Open
Case FileMode.AppendMode
'Open getFilename For Append As getFileNo
stream.mode = admodewriteadModeReadWrite 'stream.OpenSetEOS = True stream.SaveToFile stream.SetEOS = TrueOpen
Case Else
openFile = False
'Print #getFileNo(), str
stream.WriteText writeText str
End Sub
'
'Close getFileNo()
If isOpen() Then
Select Case m_FileMode
Case FileMode.InputMode
Case FileMode.OutputMode
Call stream.SaveToFile(m_Filename, adSaveCreateOverWrite)
Case FileMode.AppendMode
Call stream.SaveToFile(m_Filename, adSaveCreateOverWrite)
Case Else
End Select
stream.Close
End If
End Function
</pre>
{{ref FileUtil.cls}}
© 2006 矢木浩人
