摘取一段
Private Sub Command1_Click()
CommonDialog1.Filter = "空箱清单(*.TXT)|*.TXT"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Open "路径(保密不显示)" For Input As #2
Line Input #2, data3
mark = Mid(data3, 1, 2)
mark = mark + 1
If mark < 400 Then
data4 = mark
DAY = Date
DAYD = DateDiff("D", DAY, 2006 - 12 - 31)
If DAYD > -37119 Then