| ページ一覧 | ブログ | twitter |　 書式 | 書式(表) |

MyMemoWiki

「Excel VBA File Utility」の版間の差分

提供: MyMemoWiki
ナビゲーションに移動 検索に移動
 
(同じ利用者による、間の4版が非表示)
1行目: 1行目:
−
==Excel VBA File Utility==
+
==[[Excel VBA File Utility]]==
−
[[Excel VBA]] | {{category VBAソース片}}
+
[[Excel VBA]] | [[Category:VBAソース片]]
  
 
==='''FileUtil.cls'''===
 
==='''FileUtil.cls'''===
76行目: 76行目:
 
  ' @return データがこれ以上ない場合False
 
  ' @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
 
     Dim ret As Boolean
179行目: 179行目:
 
     AppendMode = &H3&
 
     AppendMode = &H3&
 
  End Enum
 
  End Enum
 +
 +
===UTF-8 に対応===
 +
<pre>
 +
Option Explicit
 +
'********************************************
 +
'
 +
'
 +
'    ファイルユーティリティクラス
 +
'      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 stream As Object
 +
 +
Private Const adTypeText = 2
 +
 +
Private Const adModeRead = 1
 +
Private Const admodewrite = 2
 +
Private Const adModeReadWrite = 3
 +
 +
Private Const adStateClosed = 0
 +
Private Const adReadLine = -2
 +
Private Const adCR = 13
 +
Private Const adSaveCreateOverWrite = 2
 +
 +
' 処理対象のファイル名を保持
 +
Private m_Filename  As String
 +
 +
' 処理中のファイル番号を保持
 +
Private m_FileNo    As Integer
 +
 +
Private m_FileMode As FileMode
 +
 +
 +
'
 +
' 初期化
 +
'
 +
Private Sub Class_Initialize()
 +
   
 +
    Set stream = CreateObject("ADODB.Stream")
 +
   
 +
    'Call setFileNo(INVALID_FILENO)
 +
 +
End Sub
 +
 +
'
 +
' 終了処理
 +
'
 +
Private Sub Class_Terminate()
 +
 +
    Call closeFile
 +
 +
    Set stream = Nothing
 +
 +
End Sub
 +
'
 +
' ファイルが開かれているか
 +
'
 +
Public Function isOpen() As Boolean
 +
    ' https://docs.microsoft.com/ja-jp/sql/ado/reference/ado-api/state-property-ado?view=sql-server-ver15
 +
    'isOpen = (getFileNo > 0)
 +
   
 +
    isOpen = (stream.State <> adStateClosed)
 +
 +
End Function
 +
'
 +
' ファイルを開く
 +
'
 +
Public Function openFile(fileName As String, mode As FileMode) As Boolean
 +
    On Error GoTo errHandler
 +
   
 +
    Dim isAppend As Boolean
 +
   
 +
    isAppend = False
 +
    openFile = True
 +
   
 +
    stream.Charset = CHAR_SET
 +
    stream.Type = adTypeText
 +
   
 +
    'https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/lineseparator-property-ado
 +
    stream.LineSeparator = adCR
 +
   
 +
    Call setFilename(fileName)
 +
    'Call setFileNo(FreeFile)
 +
    m_FileMode = mode
 +
   
 +
    Select Case mode
 +
        Case FileMode.InputMode
 +
            'Open getFilename For Input As getFileNo
 +
            stream.mode = adModeReadWrite
 +
            stream.Open
 +
            stream.LoadFromFile fileName
 +
           
 +
        Case FileMode.OutputMode
 +
            'Open getFilename For Output As getFileNo
 +
            stream.mode = adModeReadWrite
 +
            stream.Position = 0
 +
            stream.Open
 +
        Case FileMode.AppendMode
 +
            'Open getFilename For Append As getFileNo
 +
            stream.mode = adModeReadWrite
 +
            'stream.SetEOS = True
 +
            stream.Open
 +
        Case Else
 +
            openFile = False
 +
    End Select
 +
   
 +
    Exit Function
 +
errHandler:
 +
    openFile = False
 +
    Debug.Print Err.Number & ":" & Err.Description
 +
   
 +
End Function
 +
'
 +
' ファイルから1行読込む
 +
'
 +
Public Function readLine(ByRef line As String) As Boolean
 +
       
 +
    Dim ret As Boolean
 +
   
 +
    ret = Not isEOF()
 +
   
 +
    If ret Then
 +
        'Line Input #getFileNo(), line
 +
       
 +
        line = stream.ReadText(adReadLine)
 +
       
 +
    End If
 +
   
 +
    readLine = ret
 +
   
 +
End Function
 +
'
 +
' ファイルがEOFに達しているか
 +
'
 +
Public Function isEOF() As Boolean
 +
 +
    'isEOF = EOF(getFileNo())
 +
    isEOF = stream.EOS
 +
   
 +
End Function
 +
'
 +
' 1行出力
 +
'
 +
Public Sub println(str As String)
 +
 +
    'Print #getFileNo(), str
 +
    stream.writeText str
 +
   
 +
   
 +
End Sub
 +
'
 +
' ファイルを閉じる
 +
'
 +
Public Sub closeFile()
 +
   
 +
    '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 Sub
 +
 +
'
 +
' ファイル名の設定
 +
'
 +
Private Sub setFilename(newVal As String)
 +
 +
    m_Filename = newVal
 +
 +
End Sub
 +
'
 +
' ファイル名の取得
 +
'
 +
Public Function getFilename() As String
 +
 +
    getFilename = m_Filename
 +
 +
End Function
 +
'
 +
' ファイルNoの設定
 +
'
 +
Private Sub setFileNo(newVal As Integer)
 +
 +
    m_FileNo = newVal
 +
 +
End Sub
 +
'
 +
' ファイルNoの取得
 +
'
 +
Public Function getFileNo() As Integer
 +
 +
    getFileNo = m_FileNo
 +
 +
End Function
 +
 +
</pre>
 +
  
 
{{ref FileUtil.cls}}
 
{{ref FileUtil.cls}}

2021年9月26日 (日) 10:44時点における最新版

Excel VBA File Utility

Excel VBA |

FileUtil.cls

  1. Option Explicit
  2.  
  3. Private Const INVALID_FILENO As Integer = -1
  4.  
  5. ' 処理対象のファイル名を保持
  6. Private m_Filename  As String
  7.  
  8. ' 処理中のファイル番号を保持
  9. Private m_FileNo    As Integer
  10. '
  11. ' 初期化
  12. '
  13. Private Sub Class_Initialize()
  14.     
  15.     Call setFileNo(INVALID_FILENO)
  16.  
  17. End Sub
  18.  
  19. '
  20. ' 終了処理
  21. '
  22. Private Sub Class_Terminate()
  23.  
  24.     Call closeFile
  25.  
  26. End Sub
  27. '
  28. ' ファイルが開かれているか
  29. '
  30. ' @return 開かれていれば True
  31. '
  32. Public Function isOpen() As Boolean
  33.  
  34.     isOpen = (getFileNo > 0)
  35.  
  36. End Function
  37. '
  38. ' ファイルを開く
  39. '
  40. ' @param fileName
  41. ' @param mode
  42. ' @return 成功した場合True
  43. '
  44. Public Function openFile(fileName As String, mode As FileMode) As Boolean
  45.     On Error GoTo errHandler
  46.     openFile = True
  47.     Call setFilename(fileName)
  48.     Call setFileNo(FreeFile)
  49.     
  50.     Select Case mode
  51.         Case FileMode.InputMode
  52.             Open getFilename For Input As getFileNo
  53.             
  54.         Case FileMode.OutputMode
  55.             Open getFilename For Output As getFileNo
  56.         
  57.         Case FileMode.AppendMode
  58.             Open getFilename For Append As getFileNo
  59.             
  60.         Case Else
  61.             openFile = False
  62.     End Select
  63.     
  64.     Exit Function
  65. errHandler:
  66.     openFile = False
  67. End Function
  68. '
  69. ' ファイルから1行読込む
  70. '
  71. ' @param line 読み込んだ行を格納
  72. ' @return データがこれ以上ない場合False
  73. '
  74. Public Function readLine(ByRef line As String) As Boolean
  75.         
  76.     Dim ret As Boolean
  77.     
  78.     ret = Not isEOF()
  79.     
  80.     If ret Then
  81.         Line Input #getFileNo(), line
  82.     End If
  83.     
  84.     readLine = ret
  85.     
  86. End Function
  87. '
  88. ' ファイルがEOFに達しているか
  89. '
  90. ' @return ファイルがEOFに達している場合True
  91. '
  92. Public Function isEOF() As Boolean
  93.  
  94.     isEOF = EOF(getFileNo())
  95.     
  96. End Function
  97. '
  98. ' 出力(改行しない)
  99. '
  100. ' @param str 出力内容
  101. '
  102. Public Sub print_(str As String)
  103.  
  104.     Print #getFileNo(), str;
  105.  
  106. End Sub
  107. '
  108. ' 1行出力
  109. '
  110. ' @param str 出力内容
  111. '
  112. Public Sub println(str As String)
  113.  
  114.     Print #getFileNo(), str
  115.  
  116. End Sub
  117. '
  118. ' ファイルを閉じる
  119. '
  120. Public Sub closeFile()
  121.     
  122.     Close getFileNo()
  123.  
  124. End Sub
  125.  
  126. '
  127. ' ファイル名の設定
  128. '
  129. ' @param newFileName
  130. '
  131. '
  132. Private Sub setFilename(newFileName As String)
  133.  
  134.     m_Filename = newFileName
  135.  
  136. End Sub
  137. '
  138. ' ファイル名の取得
  139. '
  140. ' @param ファイル名
  141. '
  142. Public Function getFilename() As String
  143.  
  144.     getFilename = m_Filename
  145.  
  146. End Function
  147. '
  148. ' ファイルNoの設定
  149. '
  150. ' @param ファイルNo
  151. '
  152. Private Sub setFileNo(newFileNo As Integer)
  153.  
  154.     m_FileNo = newFileNo
  155.  
  156. End Sub
  157. '
  158. ' ファイルNoの取得
  159. '
  160. ' @return ファイルNo
  161. '
  162. Public Function getFileNo() As Integer
  163.  
  164.     getFileNo = m_FileNo
  165.  
  166. End Function
標準モジュールに
  1. '----------------
  2. 'ファイルモード
  3. '----------------
  4. Public Enum FileMode
  5.     InputMode = &H1&
  6.     OutputMode = &H2&
  7.     AppendMode = &H3&
  8. End Enum

UTF-8 に対応

  1. Option Explicit
  2. '********************************************
  3. '
  4. '
  5. '     ファイルユーティリティクラス
  6. '       File関連のオブジェクト(ADODB.Stream)をラップ
  7. '
  8. '
  9. '       @see https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/stream-object-ado
  10. '
  11. '
  12. '********************************************
  13.  
  14. Private Const INVALID_FILENO As Integer = -1
  15.  
  16. Private stream As Object
  17.  
  18. Private Const adTypeText = 2
  19.  
  20. Private Const adModeRead = 1
  21. Private Const admodewrite = 2
  22. Private Const adModeReadWrite = 3
  23.  
  24. Private Const adStateClosed = 0
  25. Private Const adReadLine = -2
  26. Private Const adCR = 13
  27. Private Const adSaveCreateOverWrite = 2
  28.  
  29. ' 処理対象のファイル名を保持
  30. Private m_Filename  As String
  31.  
  32. ' 処理中のファイル番号を保持
  33. Private m_FileNo    As Integer
  34.  
  35. Private m_FileMode As FileMode
  36.  
  37.  
  38. '
  39. ' 初期化
  40. '
  41. Private Sub Class_Initialize()
  42.     
  43.     Set stream = CreateObject("ADODB.Stream")
  44.     
  45.     'Call setFileNo(INVALID_FILENO)
  46.  
  47. End Sub
  48.  
  49. '
  50. ' 終了処理
  51. '
  52. Private Sub Class_Terminate()
  53.  
  54.     Call closeFile
  55.  
  56.     Set stream = Nothing
  57.  
  58. End Sub
  59. '
  60. ' ファイルが開かれているか
  61. '
  62. Public Function isOpen() As Boolean
  63.     ' https://docs.microsoft.com/ja-jp/sql/ado/reference/ado-api/state-property-ado?view=sql-server-ver15
  64.     'isOpen = (getFileNo > 0)
  65.     
  66.     isOpen = (stream.State <> adStateClosed)
  67.  
  68. End Function
  69. '
  70. ' ファイルを開く
  71. '
  72. Public Function openFile(fileName As String, mode As FileMode) As Boolean
  73.     On Error GoTo errHandler
  74.     
  75.     Dim isAppend As Boolean
  76.     
  77.     isAppend = False
  78.     openFile = True
  79.     
  80.     stream.Charset = CHAR_SET
  81.     stream.Type = adTypeText
  82.     
  83.     'https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/lineseparator-property-ado
  84.     stream.LineSeparator = adCR
  85.     
  86.     Call setFilename(fileName)
  87.     'Call setFileNo(FreeFile)
  88.     m_FileMode = mode
  89.     
  90.     Select Case mode
  91.         Case FileMode.InputMode
  92.             'Open getFilename For Input As getFileNo
  93.             stream.mode = adModeReadWrite
  94.             stream.Open
  95.             stream.LoadFromFile fileName
  96.             
  97.         Case FileMode.OutputMode
  98.             'Open getFilename For Output As getFileNo
  99.             stream.mode = adModeReadWrite
  100.             stream.Position = 0
  101.             stream.Open
  102.         Case FileMode.AppendMode
  103.             'Open getFilename For Append As getFileNo
  104.              stream.mode = adModeReadWrite
  105.              'stream.SetEOS = True
  106.             stream.Open
  107.         Case Else
  108.             openFile = False
  109.     End Select
  110.     
  111.     Exit Function
  112. errHandler:
  113.     openFile = False
  114.     Debug.Print Err.Number & ":" & Err.Description
  115.     
  116. End Function
  117. '
  118. ' ファイルから1行読込む
  119. '
  120. Public Function readLine(ByRef line As String) As Boolean
  121.         
  122.     Dim ret As Boolean
  123.     
  124.     ret = Not isEOF()
  125.     
  126.     If ret Then
  127.         'Line Input #getFileNo(), line
  128.         
  129.         line = stream.ReadText(adReadLine)
  130.         
  131.     End If
  132.     
  133.     readLine = ret
  134.     
  135. End Function
  136. '
  137. ' ファイルがEOFに達しているか
  138. '
  139. Public Function isEOF() As Boolean
  140.  
  141.     'isEOF = EOF(getFileNo())
  142.     isEOF = stream.EOS
  143.     
  144. End Function
  145. '
  146. ' 1行出力
  147. '
  148. Public Sub println(str As String)
  149.  
  150.     'Print #getFileNo(), str
  151.     stream.writeText str
  152.     
  153.     
  154. End Sub
  155. '
  156. ' ファイルを閉じる
  157. '
  158. Public Sub closeFile()
  159.     
  160.     'Close getFileNo()
  161.     If isOpen() Then
  162.     
  163.         
  164.         Select Case m_FileMode
  165.             Case FileMode.InputMode
  166.                 
  167.             Case FileMode.OutputMode
  168.                 Call stream.SaveToFile(m_Filename, adSaveCreateOverWrite)
  169.             Case FileMode.AppendMode
  170.                 Call stream.SaveToFile(m_Filename, adSaveCreateOverWrite)
  171.             Case Else
  172.         End Select
  173.     
  174.     
  175.         stream.Close
  176.     End If
  177.  
  178. End Sub
  179.  
  180. '
  181. ' ファイル名の設定
  182. '
  183. Private Sub setFilename(newVal As String)
  184.  
  185.     m_Filename = newVal
  186.  
  187. End Sub
  188. '
  189. ' ファイル名の取得
  190. '
  191. Public Function getFilename() As String
  192.  
  193.     getFilename = m_Filename
  194.  
  195. End Function
  196. '
  197. ' ファイルNoの設定
  198. '
  199. Private Sub setFileNo(newVal As Integer)
  200.  
  201.     m_FileNo = newVal
  202.  
  203. End Sub
  204. '
  205. ' ファイルNoの取得
  206. '
  207. Public Function getFileNo() As Integer
  208.  
  209.     getFileNo = m_FileNo
  210.  
  211. End Function
  212.  


テンプレート:Ref FileUtil.cls

「https://www.typea.info/tips_/index.php?title=Excel_VBA_File_Utility&oldid=33667」から取得

© 2006 矢木浩人