writefile.frm

来自「vb apriori algorithm」· FRM 代码 · 共 47 行

VERSION 5.00
Begin VB.Form WriteFile 
   Caption         =   "WriteFile"
   ClientHeight    =   2985
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3585
   LinkTopic       =   "Form1"
   ScaleHeight     =   2985
   ScaleWidth      =   3585
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   960
      TabIndex        =   0
      Top             =   1080
      Width           =   1575
   End
End
Attribute VB_Name = "WriteFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, j, k As Long
Open "ResultFile2.dat" For Append As #1 ' 打开输出文件
Print #1, "this is a result file of Apiror"
Print #1, "threshhold"; "     "; SupportThreshold
Print #1, "confidence"; "     "; ConfidenceThreshold
Print #1, "L1Num"; "          "; L1Num
Print #1, "C2TotalNum"; "     "; C2TotalNum
Print #1, "L2Num"; "          "; L2Num
For i = 0 To L1Num - 1
    Print #1, i; "                "; L1(i).ItemStr; "    "; L1(i).ItemStrCount
Next i
For j = 0 To C2TotalNum
    Print #1, j; "                "; C2(j).ItemStr; "    "; C2(j).ItemStrCount
Next j
For k = 0 To L2Num - 1
    Print #1, k; "                "; L2(k).ItemStr; "    "; L2(k).ItemStrCount
Next k
Print #1, "time/s"; "          "; Sparetime
Close #1
End Sub