1,ICT測試機每天都測試,測試出一臺產品后會自動生成一個.txt的資料到指定路徑位置。   （資料名稱的構造為：ODBC20210122.LOG）    其中只有年月日會更新，例如：今天那就是ODBC20210126.LOG     明天那就是ODBC20210127.LOG  
   

想了解VB6可以實現自動讀取當天的.Log嗎？  


2,如果第一點可以實現,那麼     裡面的內容只要測試就會有增加,如何讀取最新的那筆資料                                                                                                                                

假设这些日志文件都在d:\

Private Sub Form_Load()
Dim ymd As String
Dim filename As String
ymd = Year(Date) & String(2 - Len(Month(Date)), "0") & Month(Date) & String(2 - Len(Day(Date)), "0") & Day(Date) 
filename = "ODBC" & ymd & ".LOG"
Shell "cmd /c notepad.exe d:\" & filename, vbHide
End Sub

[此贴子已经被作者于2021-1-27 10:25编辑过]

假设：
1、.LOG文件都在d:\
2、.LOG文件编码为GBK或gb2312

Private Sub Form_Load()
Me.Hide  '隐藏窗体
Dim ymd As String
Dim filename As String
Dim str As String
ymd = Year(Date) & String(2 - Len(Month(Date)), "0") & Month(Date) & String(2 - Len(Day(Date)), "0") & Day(Date)
filename = "ODBC" & ymd & ".LOG"
Open "d:\" & filename For Input As #1
While Not EOF(1)
Line Input #1, str
a = a + 1
Wend
Close #1
MsgBox str, 4096, "最新数据" '弹出置顶对话框
End '退出程序
End Sub

[此贴子已经被作者于2021-1-27 10:26编辑过]

感謝樓上的大神在百忙之中回答我的疑問！
1,剛開始測試驗證時,都為正常，後面不知道為什麼ymd裡面的日期後面帶有一個0在裡面，從而找不到日誌文件。

代碼是使用的Command2來啟用
Private Sub Command2_Click()

'Me.Hide  '隐藏窗体
Dim ymd As String
Dim filename As String
Dim str As String
ymd = Year(Date) & String(2 - Len(Month(Date)), "0") & Month(Date) & String(2 - Len(Day(Date)), "0") & Day(Date) & String(2 - Len(Hour(Time)), "0")
filename = "ODBC" & ymd & ".LOG"
Open "C:\ew518fe\ES340A\" & filename For Input As #1
While Not EOF(1)
Line Input #1, str
a = a + 1
Wend
Close #1
'MsgBox str, 4096, "最新数据" '弹出置顶对话框
Text1 = str
'End '退出程序
End Sub

2,此功能是否可以實現：
 a，每天的早上上班后,可能我還沒有測試,(也就是說：沒有日誌文件時,程式是會報錯的),是否可以自動持續搜索呢？

加入了多种判断。。。

Private Sub Form_Load()
Me.Hide  '隐藏窗体
Dim ymd As String       '日期变量
Dim FileName As String  '文件名变量
Dim Str As String       '读取到的数据内容变量
Dim FilePath As String

FilePath = "C:\ew518fe\ES340A\"   '日志.LOG的文件夹

ymd = Year(Date) & String(2 - Len(Month(Date)), "0") & Month(Date) & String(2 - Len(Day(Date)), "0") & Day(Date)
FileName = "ODBC" & ymd & ".LOG"
'MsgBox FileName
 
If Dir(FilePath, vbDirectory + vbHidden) = "" Then

    MsgBox "日志文件目录不存在!"
    End
ElseIf Dir(FilePath & FileName) = "" Then
    MsgBox "今天没有新日志文件！", 4096, "提示"
    End

Else

Open FilePath & FileName For Input As #1
While Not EOF(1)
    Line Input #1, Str
    a = a + 1
Wend
'DoEvents
Close #1

  If Str <> "" Then
    MsgBox Str, 4096, "最新数据" '弹出置顶对话框
  Else
    MsgBox "有日志文件，但日志内容为空!", 4096, "提示"
  End If
  
End If

End Sub

[此贴子已经被作者于2021-1-27 10:25编辑过]

通過現場的實際測試驗證： 1,三種條件有分別進行了驗證,OK的。
                         2,當實際應用中,VB6的程式是一直開啟的,此時...ICT測試機會間隔幾秒就會有新的日誌寫入,是否能做到實時檢查新日誌。
                         3,當有新的日誌寫入后,VB6通過串口（9600,8,1）發生55 01 01 02 00 00 00 59  （吸合第一路繼電器）  等待1S左右  發生55 01 01 01 00 00 00 58  （斷開第一路繼電器）   備註：只要發現一筆新日誌就做一次繼電器的吸合和斷開。


謝謝
     

你是要写 单片机 上位机、下位机程序啊？
单片机我不熟，帮不了你。

你哪里的，怎么文字都是繁体中文的？

怎麼聯繫你呢，微信/電話？

那能實現此功能嗎？
1,當實際應用中,VB6的程式是一直開啟的,此時...ICT測試機會間隔幾秒就會有新的日誌寫入,是否能做到實時檢查新日誌。

读取文件的最后修改日期就可以