要求:
有日期,消费类型,金额,录入到txt文件
可以根据日期查询某天的消费情况,及消费总额。
直接贴代码。
Dim sum1 As Long
Dim temp1 As String
Dim arr1() As String
'录入
Private Sub Command1_Click()
If IsNumeric(Text3.Text) Then
Open App.Path & "/data.txt" For Append As #1
Print #1, Text1.Text & "|" & Text2.Text & "|" & Text3.Text
Close #1 '关闭文件
End If
End Sub
Private Sub Command2_Click()
Dim i As Long '计数器,求和用
i = 0
sum1 = 0
List1.Clear
List2.Clear
Open App.Path & "/data.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp1
arr1 = Split(temp1, "|") 'split可以按照分隔符把字符串分割成数组
If arr1(0) = Text4.Text T