'将该用户ID写入DicomLog文件中,标注为未处理状态
Open gDicomLogPath For Input As #1
Do While Not EOF(1) '判断是否到达最后
intI = intI + 1
ReDim Preserve strA(intI) As String
Input #1, strA(intI) '读出所有记录
Loop
Close #1
Open gDicomLogPath For Output As #1
For intCount = 1 To intI
Print #1, strA(intCount)
Next
Print #1, TestID
Close