くだすれVB6.0以前（超初心者向け）

くだすれVB6.0以前（超初心者向け） at TECH

60:59
08/09/18 23:48:31
>>50
この環境にVB6入ってないからデバッグできてない挙句に、久し振りすぎてあちこち怪しいが、草案だけ出しておく。
Const MAX_X = 1 '配列の要素数が固定であるならば、
Const MAX_Y = 50000 'Constを使っておくと修正が楽。
Private t(MAX_Y,MAX_X) As Long

'--------メイン------->
Private Sub mn_Save_Click()　　　'セーブを要求する場合。例として、メニューの保存辺りから呼ぶとして…。
Dim Ret As Integer
Ret = MsgBox("セーブする？",vbOkOnly)
Select Case Ret
Case vbOK
Debug.Print "csvKakiko => FileName:" & App.Path & "t.csv"　　'一応、送られた文字列を確認。
Call csvKakiko(App.Path & "t.csv")
End Select
End Sub

'----保存とか--->
Private sub csvKakiko(ByVal FileName As String)　　'csvに書き込む。／引数：FileName：ファイル名/絶対パス
Dim Fnum As Integer
Dim i As Long,i_Max As Long
Dim tmp As String
Fnum = FreeFile() '※必須。Closeされていないファイルナンバーを用いてOpen処理以降を発生させると別のファイルに書いてしまったりする。
Open FileName For Binary Access Write As #Fnum
For i=0 To MAX_Y '0から構造のY最大値まで昇順。(MAX_Yが50000なので、0-50000の50001レコードが記述される。)
　　tmp= Format(t(i,0)) & "," & Format(t(i,1)) & vbCrLf '記録する文字列を組みながら
　　Put #Fnum, , tmp '記録する。
Next
Close #Fnum
End Sub

次ページ

続きを表示

1を表示