Excel VBA File Utility - 版の履歴

Piroto: /* UTF-8 に対応 */

2021-09-26T10:44:25Z

UTF-8 に対応

Piroto: /* UTF-8 に対応 */

2020-10-14T07:44:42Z

UTF-8 に対応

Piroto: /* UTF-8 に対応 */

2020-10-14T06:57:28Z

UTF-8 に対応

Piroto: /* Excel VBA File Utility */

2020-10-12T08:57:42Z

Excel VBA File Utility

2020年2月16日 (日) 04:25にPirotoによる

2020-02-16T04:25:25Z

2020年2月15日 (土) 08:35にPirotoによる

2020-02-15T08:35:31Z

2020年2月15日 (土) 08:02にPirotoによる

2020-02-15T08:02:24Z

Piroto: ページの作成:「==Excel VBA File Utility== [Excel VBA]{{category VBAソース片}} ==='''FileUtil.cls'''=== Option Explicit Private Const INVALID_FILENO As Integer = -1 '…」

2020-02-15T07:32:08Z

ページの作成:「==Excel VBA File Utility== [Excel VBA]{{category VBAソース片}} ==='''FileUtil.cls'''=== Option Explicit Private Const INVALID_FILENO As Integer = -1 '…」

新規ページ

==Excel VBA File Utility==
[Excel VBA]{{category VBAソース片}}

==='''FileUtil.cls'''===
Option Explicit

Private Const INVALID_FILENO As Integer = -1

' 処理対象のファイル名を保持
Private m_Filename As String

' 処理中のファイル番号を保持
Private m_FileNo As Integer
'
' 初期化
'
Private Sub Class_Initialize()

Call setFileNo(INVALID_FILENO)

End Sub

'
' 終了処理
'
Private Sub Class_Terminate()

Call closeFile

End Sub
'
' ファイルが開かれているか
'
' @return 開かれていれば True
'
Public Function isOpen() As Boolean

isOpen = (getFileNo > 0)

End Function
'
' ファイルを開く
'
' @param fileName
' @param mode
' @return 成功した場合True
'
Public Function openFile(fileName As String, mode As FileMode) As Boolean
On Error GoTo errHandler
openFile = True
Call setFilename(fileName)
Call setFileNo(FreeFile)

Select Case mode
Case FileMode.InputMode
Open getFilename For Input As getFileNo

Case FileMode.OutputMode
Open getFilename For Output As getFileNo

Case FileMode.AppendMode
Open getFilename For Append As getFileNo

Case Else
openFile = False
End Select

Exit Function
errHandler:
openFile = False
End Function
'
' ファイルから1行読込む
'
' @param line 読み込んだ行を格納
' @return データがこれ以上ない場合False
'
Public Function readLine(ByRef line As String) As Boolean

Dim ret As Boolean

ret = Not isEOF()

If ret Then
Line Input #getFileNo(), line
End If

readLine = ret

End Function
'
' ファイルがEOFに達しているか
'
' @return ファイルがEOFに達している場合True
'
Public Function isEOF() As Boolean

isEOF = EOF(getFileNo())

End Function
'
' 出力(改行しない)
'
' @param str 出力内容
'
Public Sub print_(str As String)

Print #getFileNo(), str;

End Sub
'
' 1行出力
'
' @param str 出力内容
'
Public Sub println(str As String)

Print #getFileNo(), str

End Sub
'
' ファイルを閉じる
'
Public Sub closeFile()

Close getFileNo()

End Sub

'
' ファイル名の設定
'
' @param newFileName
'
'
Private Sub setFilename(newFileName As String)

m_Filename = newFileName

End Sub
'
' ファイル名の取得
'
' @param ファイル名
'
Public Function getFilename() As String

getFilename = m_Filename

End Function
'
' ファイルNoの設定
'
' @param ファイルNo
'
Private Sub setFileNo(newFileNo As Integer)

m_FileNo = newFileNo

End Sub
'
' ファイルNoの取得
'
' @return ファイルNo
'
Public Function getFileNo() As Integer

getFileNo = m_FileNo

End Function

=====標準モジュールに=====
'----------------
'ファイルモード
'----------------
Public Enum FileMode
InputMode = &H1&
OutputMode = &H2&
AppendMode = &H3&
End Enum

{{ref FileUtil.cls}}

@@ 185行目: / 185行目: @@
 '********************************************
+'
+'
 '     ファイルユーティリティクラス

@@ 183行目: / 183行目: @@
 <pre>
 Option Explicit
 Private Const INVALID_FILENO As Integer = -1
@@ 197行目: / 209行目: @@
 Private Const adReadLine = -2
 Private Const adCR = 13
 ' 処理対象のファイル名を保持
@@ 203行目: / 216行目: @@
 ' 処理中のファイル番号を保持
 Private m_FileNo    As Integer
+'
 ' 初期化
@@ 253行目: / 270行目: @@
      Call setFilename(fileName)
      'Call setFileNo(FreeFile)
      Select Case mode
@@ 263行目: / 281行目: @@
          Case FileMode.OutputMode
              'Open getFilename For Output As getFileNo
-             stream.mode = admodewrite
+             stream.mode = adModeReadWrite
              stream.Open
          Case FileMode.AppendMode
              'Open getFilename For Append As getFileNo
-              stream.mode = admodewrite
+              stream.mode = adModeReadWrite
-              stream.Open
+              'stream.SetEOS = True
-             stream.SaveToFile
+            stream.Open
          Case Else
              openFile = False
@@ 318行目: / 333行目: @@
      'Print #getFileNo(), str
-     stream.WriteText str
+     stream.writeText str
-−
 End Sub
+'
@@ 328行目: / 344行目: @@
      'Close getFileNo()
      If isOpen() Then
          stream.Close
      End If
@@ 365行目: / 394行目: @@
 End Function
 </pre>
 {{ref FileUtil.cls}}

@@ 258行目: / 258行目: @@
              'Open getFilename For Input As getFileNo
              stream.mode = adModeReadWrite
          Case FileMode.OutputMode
              'Open getFilename For Output As getFileNo
              stream.mode = admodewrite
          Case FileMode.AppendMode
              'Open getFilename For Append As getFileNo
               stream.mode = admodewrite
-              isAppend = True
+              stream.Open
+             stream.SaveToFile
          Case Else
              openFile = False
      End Select
      Exit Function

@@ 1行目: / 1行目: @@
-==Excel VBA File Utility==
+==[[Excel VBA File Utility]]==
-[[Excel VBA]] | {{category VBAソース片}}
+[[Excel VBA]] | [[Category:VBAソース片]]
 ==='''FileUtil.cls'''===
@@ 76行目: / 76行目: @@
   ' @return データがこれ以上ない場合False
+  '
-  Public Function readLine(ByRef line As String) As Boolean
+  Public Function readLine(By[[R]]ef line As String) As Boolean
       Dim ret As Boolean

@@ 1行目: / 1行目: @@
 ==Excel VBA File Utility==
-[[Excel VBA]]{{category VBAソース片}}
+[[Excel VBA]] | {{category VBAソース片}}
 ==='''FileUtil.cls'''===

@@ 179行目: / 179行目: @@
       AppendMode = &H3&
   End Enum
 {{ref FileUtil.cls}}