China DOS Union

Originally posted by zhoushijay at 2007-5-12 04:26 PM:
set fso=createobject("scripting.filesystemobject")
set op=fso.opentextfile("1.txt",1)
set d=createobject("scripting.dictionary")
on error resume next
for i=1 to 10 ...

Using FOR, it seems that using WHILE would be better.
Loop using the op.atendofstream property.

Didn't look closely at slore's reply. Just posting water. o(∩_∩)o... Haha

[ Last edited by wudixin96 on 2007-5-12 at 05:38 PM ]

After the suggestion from floor 13, I made a little modification. But I still think the dictionary is more convenient. The main reason for the last mistake was the algorithm error in extracting the largest number from the set. Now it has been corrected and tested.

set fso=createobject("scripting.filesystemobject")
set op=fso.opentextfile("1.txt",1)
set d=createobject("scripting.dictionary")
i=1
do until op.atendofstream=true
ln=op.readline
t=mid(ln,17,3)
on error resume next
t=int(t)
if err=0 then
d.add i,t
end if
i=i+1
loop
mx=0
for each i in d
if d(i)>mx then
mx=d(i)
end if
next

if mx>45 and mx<90 then
msgbox("Temperature is OK"&chr(10)&"The hotest is "&mx&"C")
else
msgbox("Temperature is NG"&chr(10)&"The hotest is "&mx&"C")
end if

[ Last edited by zhoushijay on 2007-5-13 at 12:19 PM ]

t = mid(ln, 17, 2)

t = mid(ln, 17, 3)
? Then T is only one?

Fortunately, there are spaces after it.

XX C
XXX C

You take 3 digits... "XX " or "XXX" after INT becomes XX and XXX.

Then just take 3 digits.

Option Explicit 'Strict syntax
Dim reg, matches, match, file, max, flag, submatch, fso, temp

Set fso = CreateObject("scripting.filesystemobject")'Create FSO object
Set reg = new regexp 'Create regular expression object

reg.global = True 'Global search
reg.ignorecase = True 'Ignore case
reg.pattern = "CT : *([0-9\-]+) +C" 'Matching pattern string (regular expression)
flag = False 'Mark whether it is the first loop
Set file = fso.opentextfile("1.txt",1)

If Not file.atendofstream Then 'File is not empty
Set matches = reg.execute(file.readall()) 'Execute search
For Each match In matches 'Iterate all matches
For Each submatch In match.submatches 'Iterate matching sub-items (content in parentheses in pattern string)
temp = Int(submatch) 'Transform into positive number
Next
If flag=False Then 'First time direct assignment
max = temp
flag = True
ElseIf max<temp Then 'Comparison assignment later
max = temp
End if
Next
End If

If max>45 And max<90 Then
MsgBox "OK"
Else
MsgBox "NG"
End If

'Release object
Set reg = Nothing
Set fso = Nothing