7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Declare Function SendMessagebyString Lib "user32" Alias "SendMessageA" (ByVal hWND As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2
Private Sub Command1_Click()
Dim d As Date, strLine As String, strDateTime() As String, strDate() As String
Dim datFirstDate As Date, datLastDate As Date
Open "c:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strLine
strDateTime = Split(strLine, ",")
strDate = Split(strDateTime(0), " ")
If datFirstDate = 0 Then datFirstDate = CDate(strDate(0))
datLastDate = CDate(strDate(0))
If IsDate(strDateTime(0)) Then
strLine = Format(strDate(0), "yyyy-mm-dd")
If SendMessagebyString(List1.hWND, LB_FINDSTRINGEXACT, -1, strLine) = -1 Then List1.AddItem strLine
End If
Loop
Close #1
For d = datFirstDate To datLastDate
strLine = Format(d, "yyyy-mm-dd")
If SendMessagebyString(List1.hWND, LB_FINDSTRINGEXACT, -1, strLine) = -1 Then Debug.Print strLine
Next d
End Sub