プロが教えるわが家の防犯対策術!

以前の質問で下記の様にご教示頂いたのですが、
標記の内容がわからなくうまくいきません
初歩的な質問ではございますが、
作成方法を教えてくださいます様、よろしくお願いいたします

用意するもの
1.CSVのデータ1行を表すクラス(CsvQueueクラスとする)
 メンバー変数は、その1行のデータとCsvQueueクラスへのポインタ。データは面倒ならPublicでよいだろう。
 メンバー関数は、PutData()とGetData()。

CsvQueueクラス
Public strCsvData1 As String
Public strCsvData2 As String
Public strCsvData3 As String
Private queNextData As CsvQueue

参考:::::::::::::::::::::
Public Function PutData(ByVal q As CsvQueue) As Boolean
 If queNextData Is Nothing Then
  Set queNextData = q
  Exit Function
 End If
 PutData = queNextData.PutData(q)
End Function

Public Function GetData() As CsvData
 GetData = queNextData
End Function

CSV出力モジュール内(追加した行を++で表している)
Private csvRoot As CsvData ' Nothingに初期化

Private Sub output(ByVal ofile As String)
On Error GoTo trap
handle = FreeFile()
Open ofile For Append As #handle
 Do Until csvRoot Is Nothing
  (中略と同内容)
  csvRoot = csvRoot.GetData()
 Loop
(中略)
Print #handle, _
Close #handle
Exit Sub
trap:
'MsgBox Err.number & "," & Err.Description, vbInformation, "output"
 Dim csvTemp As New CsvData
 csvTemp.strCsvData1 = ...
 If csvRoot Is Nothing Then
  Set csvRoot = csvTemp
 Else
  csvRoot.PutData(csvTemp)
 End If
End Sub

A 回答 (1件)

質問の意味を取り違えていたら、すみません。



Public Class CsvQueue
 質問内の『CsvQueueクラス』以下を貼り付けてください。

End Class

またヘルプを起動して、Classで検索を行うと、
詳細が表示されます。
頑張ってみてください。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!