VBScript

Поделиться31Вторник, 11 июня, 2013г. 06:34:46

Автор: X1
Участник
Зарегистрирован: Четверг, 20 декабря, 2012г.
Приглашений: 0
Сообщений: 24
Провел на форуме:
1 час 53 минуты
Последний визит:
Вторник, 4 февраля, 2014г. 12:27:15

Sub Input_txt
'==================================================================================
Dim m,m1,m2,n,n2,n3 '========================================
Dim i,Strok1,Strok2,Strok3,Strok4,Strok5 '===æ¬α¿»Γ «í¡«ó½Ñ¡¿∩ input1.txt=========
Dim Last1,Last2,Last3,Last4,Last5 '========================================
Dim FSO, NameFile,PutSaveFile,File1,File '========================================
Dim TextWrite
Dim tf
Dim arr1,Line1,Line2,q,SText
Dim NowEtap,LastEtap,NomerEtapa,NomerPlavki,Etap
Dim k1
Dim arrMaster,Master
Dim arrBunt,Bunt,TimeBunt
Dim arrDefekt,DefBunt
Dim KisBunt,Motalka,Ves
Dim arrLite,arrPodg
Dim StartLite,StopLite
Dim NomPlav,NomPlavTag
Dim StartMaster,StopMaster
Dim Sigment1,Sigment2,Sigment3 ,Sigment4
Dim Master_Podg,Master_Lite,Master_Voss,Master_Raf,Master_Zagr
Dim StartVoss,StartRaf,StartZagr,StartPodg
Dim PredPlavka
Dim arrVodil,StartVodil,StopVodil,Vodil_Zagr
Dim T
Dim arrKislorod,arrLabXim
Dim UgolMax,NomPlavPrev,arrPodgot,arrTPech,arrTVann,TimeT
Dim StrkPech, XFor
NomerEtapa = HMIRuntime.Tags("Taimer_Uprav_etap").Read
NomerPlavki = HMIRuntime.Tags("@UA_nom_plavki_nom_plavki").Read
Master = HMIRuntime.Tags("@UA_MasterSmena_MasterRab").Read
arrMaster = UARead ("mastera")
arrBunt = UARead ("BuntPasword")
arrDefekt = UARead ("defektomat")
arrLite = UARead ("Lite")
arrVodil = UARead ("Pogruzshik")
arrKislorod = UARead ("KislorodWeb")
arrLabXim = UARead ("lab_xim")
arrPodgot = UARead ("Podgotovka")
arrTPech = UARead ("T_Pesh")
'arrTVann = UARead ("T_vanna")
For m = 0 To (UBound(arrPodgot)-1)
If arrPodgot(m,45) = NomerPlavki Then NomPlavPrev = arrPodgot(m-1,45) End If
Next
StrkPech = 0
Master_Lite = 0
Strok1 = 0
Strok2 = 0
Strok3 = 0
Strok4 = 0
Strok5 = 0
Last1 = 1
Last2 = 1
Last3 = 1
Last4 = 1
Last5 = 1
'File = "C:\progect\kamkat\Temp\in34.txt"
'File = "\\S07\D$\input2.txt"
File = "C:\progect\kamkat\Temp\input.txt"
m = 1
n = 1
n2= 1
n3= 1
LastEtap = False
Etap = False
'==========================proverka na nalichie faila==================================
'Set fso= CreateObject("Scripting.FileSystemObject")
'
'' If fso.FileExists(File) Then
'
'=============================PODSCHET KOLICHESTVA STROK T_PECHI====================================
'
' TimeT = DateAdd("h",-24,Now)
' For n = 0 To 86400 '18000
' For m = (UBound(arrTPech)-30) To (UBound(arrTPech)-1)
' If DateDiff("s",arrTPech(m,3),TimeT) = 0 Then
' StrkPech = StrkPech + 1
' End If
' Next
' For m1 = (UBound(arrTVann)-30) To (UBound(arrTVann)-1)
' If DateDiff("s",arrTVann(m1,2),TimeT) = 0 Then
' StrkPech = StrkPech + 1
' End If
' Next
' TimeT = DateAdd("s",+1,TimeT)
' Next
''==========================================================================================
' ' '==============================PODSCHET KOLICHESTVA STROK LAB XIM========================================================
For m2 = (UBound(arrLabXim)-34) To (UBound(arrLabXim)-1)
n3=n3+1
Next
'

' '==============================PODSCHET KOLICHESTVA STROK KISLODODA========================================================
For m2 = 0 To (UBound(arrKislorod)-1)
n2=n2+1
Next
'
' '===========================»«ñßτ±Γ ¬«½-óá íπ¡Γ«ó ¿ óαÑ¼∩ ¬αá⌐¡Ñú« íπ¡Γá========================================
For m = (UBound(arrBunt)-40) To (UBound(arrBunt)-1)
If arrBunt(m,1) = NomerPlavki Then
Bunt = Bunt + 1
TimeBunt = Taim_shas(arrBunt(m,23))
End If
Next
'===============================================================================================================

'''================»«ñßτ±Γ ¬«½¿τÑßΓóá ¼áßΓÑα«ó πτáßΓóπεΘ¿σ ó φΓá»Ñ ï¿Γ∞± =========================================
StartLite = HMIRuntime.Tags("Lite_Start").Read
For m2 = (UBound(arrLite)-3) To (UBound(arrLite)-1)
StopLite = arrLite(m2,3)
Next
Master_Lite = 0
Sigment1 = 1
Sigment2 = 1
For m1 = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

StartMaster = arrMaster(m1,1)
Sigment1 = DateDiff("n",StartMaster,StartLite)

If Not m1 = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m1+1,1)
Sigment2 = DateDiff("n",StopMaster,StartLite)
Else
Sigment2 = -1

End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
Master_Lite=Master_Lite+1

End If
Next
'''================»«ñßτ±Γ ¬«½¿τÑßΓóá ¼áßΓÑα«ó πτáßΓóπεΘ¿σ ó φΓá»Ñ Å«ñú«Γ«ó¬á =========================================
StartPodg = HMIRuntime.Tags("Taim_start_plav").Read
Master_Podg = 0
Sigment1 = 1
Sigment2 = 1
For m1 = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

' If arrMaster(m1,2) = NomerPlavki Then

StartMaster = arrMaster(m1,1)
Sigment1 = DateDiff("n",StartMaster,StartPodg)

If Not m1 = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m1+1,1)
Sigment2 = DateDiff("n",StopMaster,StartPodg)
Else
Sigment2 = -1
End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
Master_Podg=Master_Podg+1

End If
'End If
Next
'''====================================================================================================================
'''================»«ñßτ±Γ ¬«½¿τÑßΓóá ¼áßΓÑα«ó πτáßΓóπεΘ¿σ ó φΓá»Ñ çáúαπº¬á =========================================
StartZagr = HMIRuntime.Tags("Taim_start_etap_2").Read 'Taim_start_etap_2 @UA_Zagruzka_Taim_Start
Master_Zagr = 0
Sigment1 = 1
Sigment2 = 1
For m1 = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

'If arrMaster(m1,2) = NomerPlavki Then

StartMaster = arrMaster(m1,1)
Sigment1 = DateDiff("n",StartMaster,StartZagr)

If Not m1 = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m1+1,1)
Sigment2 = DateDiff("n",StopMaster,StartZagr)
Else
Sigment2 = -1

End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
Master_Zagr=Master_Zagr + 1

End If
'End If
Next

'''================»«ñßτ±Γ ¬«½¿τÑßΓóá ¼áßΓÑα«ó πτáßΓóπεΘ¿σ ó φΓá»Ñ ÉáΣ¿¡¿α«óá¡¿Ñ =========================================
StartRaf = HMIRuntime.Tags("Taim_start_etap_3").Read 'Raf_Start
Master_Raf = 0
Sigment1 = 1
Sigment2 = 1
For m1 = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)
StartMaster = arrMaster(m1,1)
Sigment1 = DateDiff("n",StartMaster,StartRaf)

If Not m1 = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m1+1,1)
Sigment2 = DateDiff("n",StopMaster,StartRaf)
Else
Sigment2 = -1

End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
Master_Raf=Master_Raf + 1

End If

Next
'''====================================================================================================================
'''================»«ñßτ±Γ ¬«½¿τÑßΓóá ¼áßΓÑα«ó πτáßΓóπεΘ¿σ ó φΓá»Ñ é«ßßΓá¡«ó½Ñ¡¿Ñ =========================================
StartVoss = HMIRuntime.Tags("Taim_start_etap_4").Read 'Taim_start_etap_2 Voss_Start
Master_Voss = 0
Sigment1 = 1
Sigment2 = 1
For m1 = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

'If arrMaster(m1,2) = NomerPlavki Then

StartMaster = arrMaster(m1,1)
Sigment1 = DateDiff("n",StartMaster,StartVoss)

If Not m1 = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m1+1,1)
Sigment2 = DateDiff("n",StopMaster,StartVoss)
Else
Sigment2 = -1

End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
Master_Voss=Master_Voss+1

End If
'End If
Next
'''================»«ñßτ±Γ ¬«½¿τÑßΓóá ó«ñ¿ΓÑ½Ñ⌐ πτáßΓóπεΘ¿σ ó φΓá»Ñ çáúαπº¬á =========================================
Vodil_Zagr = 0
Sigment1 = 1
Sigment2 = 1
For m1 = (UBound(arrVodil)-25) To (UBound(arrVodil)-1)

StartVodil = arrVodil(m1,1)
Sigment1 = DateDiff("n",StartVodil,StartZagr)

If Not m1 = (UBound(arrVodil)-1) Then
StopVodil = arrVodil(m1+1,1)
Sigment2 = DateDiff("n",StopVodil,StartZagr)
Else
Sigment2 = -1

End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
Vodil_Zagr=Vodil_Zagr + 1

End If

Next
'''====================================================================================================================
'''====================================================================================================================
XFor = 671 + StrkPech

m = 0 ' ä«íáó¿½ æΓÑ¡¿¡ Ç.₧.!!!!!!!!!!!!!

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1)
   Do Until m = 674 'XFor + 3 '674 ' tf.AtEndOfStream
   Line1 = tf.ReadLine
' HMIRuntime.Trace "m = " & m & vbCrLf
' HMIRuntime.Trace "Line1 = " & Line1 & vbCrLf
   'If m = 4 Then
   If m = 673 Then 'XFor + 2 Then ' 673
If InStr(1,Line1,"Å«ñú«Γ«ó¬á Å½ⁿ") = 1 Then
NowEtap = 5
End If
If InStr(1,Line1,"çáúαπº¬á Å½ⁿ") = 1 Then
NowEtap = 1
End If
If InStr(1,Line1,"ÉáΣ¿¡¿α«óá¡¿Ñ Å½ⁿ") = 1 Then
NowEtap = 2
End If
If InStr(1,Line1,"é«ßßΓá¡«ó½Ñ¡¿Ñ Å½ⁿ") = 1 Then
NowEtap = 3
End If
If InStr(1,Line1,"ï¿Γ∞± Å½ⁿ") = 1 Then
NowEtap = 4
End If
End If
   m = m + 1
Loop
'HMIRuntime.Trace "m = " & m & vbCrLf
tf.Close
Set tf = Nothing
Set fso = Nothing

'HMIRuntime.Trace "æ¬α¿»Γ Input_txt ¼ÑΓ¬á NowEtap = " & NowEtap & vbCrLf

If NowEtap = NomerEtapa Then
LastEtap = False '«í¡«ó½Ñ¡¿Ñ
Else
LastEtap = True '»ÑαÑºá»¿ß∞
End If
'============================PODGOTOVKA=============================================
If Not HMIRuntime.Tags("Taim_Start_1").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_2").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_6").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_3").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_9").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_7").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_8").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_5").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_20").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_4").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_10").Read = "" Then
Strok1 = Strok1 + 1
End If
If Not HMIRuntime.Tags("Taim_Start_11").Read = "" Then
Strok1 = Strok1 + 1
End If
'=============================ZAGRUZKA=============================================
If Not HMIRuntime.Tags("A1_1_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("A1_1a_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("A1_2_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("A1_1E_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("A1_1G_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("Slitki1_1_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("Slitki1_2_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("Brak_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("Probi_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("Strugka_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("Polosa_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
If Not HMIRuntime.Tags("Sples_plav").Read = 0 Then
Strok2 = Strok2 + 1
End If
'=============================RAFINIROV=============================================
If Not HMIRuntime.Tags("Raf_Text_Start_1").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_2").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_3").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_4").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_5").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_6").Read = "" Then
Strok3 = Strok3 + 1
End If

If Not HMIRuntime.Tags("Raf_Text_Start_7").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_8").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_9").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_10").Read = "" Then
Strok3 = Strok3 + 1
End If

If Not HMIRuntime.Tags("Raf_Text_Start_11").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_12").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_13").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_14").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_15").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_16").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_17").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_18").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_19").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_20").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_21").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_25").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_22").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_23").Read = "" Then
Strok3 = Strok3 + 1
End If
If Not HMIRuntime.Tags("Raf_Text_Start_24").Read = "" Then
Strok3 = Strok3 + 1
End If
'=============================VOSTANOV=============================================
If Not HMIRuntime.Tags("Voss_Text_Start_1").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_2").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_3").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_4").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_5").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_6").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_7").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_8").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_9").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_10").Read = "" Then
Strok4 = Strok4 + 1

End If
If Not HMIRuntime.Tags("Voss_Text_Start_11").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_12").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_13").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_14").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_15").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_16").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_17").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_18").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_19").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_20").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_21").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_25").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_22").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_23").Read = "" Then
Strok4 = Strok4 + 1
End If
If Not HMIRuntime.Tags("Voss_Text_Start_24").Read = "" Then
Strok4 = Strok4 + 1
End If
'====================================================LITE=================================================
If Not HMIRuntime.Tags("Lite_Text_Start_1").Read = "" Then
Strok5 = Strok5 + 1
End If
If Not HMIRuntime.Tags("Lite_Text_Start_2").Read = "" Then
Strok5 = Strok5 + 1
End If
If Not HMIRuntime.Tags("Lite_Text_Start_3").Read = "" Then
Strok5 = Strok5 + 1
End If
If Not HMIRuntime.Tags("Lite_Text_Start_4").Read = "" Then
Strok5 = Strok5 + 1
End If
If Not HMIRuntime.Tags("Lite_Text_Start_5").Read = "" Then
Strok5 = Strok5 + 1
End If
If Not HMIRuntime.Tags("Lite_Text_Start_6").Read = "" Then
Strok5 = Strok5 + 1
End If
If Not HMIRuntime.Tags("Lite_Text_Start_7").Read = "" Then
Strok5 = Strok5 + 1
End If
If Not HMIRuntime.Tags("Lite_Text_Start_8").Read = "" Then
Strok5 = Strok5 + 1
End If

'HMIRuntime.Trace "LastEtap" & LastEtap& vbCrLf
'==================================================================================================================================
'==================================================================================================================================
'==================================================================================================================================
'==================================================================================================================================
'==================================================================================================================================
'==================================================================================================================================
If LastEtap = False Then
'HMIRuntime.Trace "æ¬α¿»Γ Input_txt_1 «í¡«ó½Ñ¡¿Ñ " & Now & vbCrLf

If NomerEtapa = 5 Then
' ¥ÆÇÅ ï¿Γ∞±
'=====================Å«ñßτ±Γ ¬«½-óá ßΓα«¬==========================
m = 1
n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)

Do Until tf.AtEndOfStream
 Line1 = tf.ReadLine
 m = m + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing
'==================æ«ºñá¡¿Ñ ¼áßß¿óá ===================================
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)

Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing
'===============»«¿ß¬ í½«¬á ï¿Γ∞±===================================
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)

'=============================KISLOROD====================================
File1.WriteLine(0)
File1.WriteLine(n2+1)
File1.WriteLine(5)
File1.WriteLine("è¿ß½«α«ñ")
File1.WriteLine("        éαÑ¼∩")
File1.WriteLine("Å½áó¬á")
File1.WriteLine("ÅÑτ∞")
File1.WriteLine("éá¡¡á")
File1.WriteLine("ï±Γ¬á")
For m2 = 0 To (UBound(arrKislorod)-1)
File1.WriteLine("         " & Taim_shas(arrKislorod(m2,1)))
File1.WriteLine(" " & arrKislorod(m2,5) & " ")
File1.WriteLine(arrKislorod(m2,2))
File1.WriteLine(arrKislorod(m2,3))
File1.WriteLine(arrKislorod(m2,4))
Next
File1.WriteLine("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteBlankLines(3)
File1.WriteLine (Taim_shas(Now))
' '===========================================================================
'
'=============================XIMIYA====================================
File1.WriteLine(0)
File1.WriteLine(37)
File1.WriteLine(10)
File1.WriteLine("ò¿¼¿∩")
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
'File1.WriteLine("Bi")
'File1.WriteLine("Ag")
'File1.WriteLine("S")
'File1.WriteLine("P")
'File1.WriteLine("As")
'File1.WriteLine("Te")
'File1.WriteLine("Mg")
'File1.WriteLine("Al")
'File1.WriteLine("Mn")
'File1.WriteLine("Cr")
'File1.WriteLine("Cd")
'File1.WriteLine("Co")
'File1.WriteLine("Se")
'File1.WriteLine("Si")
File1.WriteLine("  îÑñ∞")

For m2 = (UBound(arrLabXim)-34) To (UBound(arrLabXim)-1)
File1.WriteLine("   " & Taim_shas(arrLabXim(m2,1)))
File1.WriteLine(arrLabXim(m2,3))
File1.WriteLine(arrLabXim(m2,4))
File1.WriteLine(arrLabXim(m2,5))
File1.WriteLine(arrLabXim(m2,6))
File1.WriteLine(arrLabXim(m2,7))
File1.WriteLine(arrLabXim(m2,8))
File1.WriteLine(arrLabXim(m2,9))
File1.WriteLine(arrLabXim(m2,10))
'File1.WriteLine(arrLabXim(m2,11))
'File1.WriteLine(arrLabXim(m2,12))
'File1.WriteLine(arrLabXim(m2,13))
'File1.WriteLine(arrLabXim(m2,14))
'File1.WriteLine(arrLabXim(m2,15))
'File1.WriteLine(arrLabXim(m2,16))
'File1.WriteLine(arrLabXim(m2,17))
'File1.WriteLine(arrLabXim(m2,18))
'File1.WriteLine(arrLabXim(m2,19))
'File1.WriteLine(arrLabXim(m2,20))
'File1.WriteLine(arrLabXim(m2,21))
'File1.WriteLine(arrLabXim(m2,22))
'File1.WriteLine(arrLabXim(m2,23))
'File1.WriteLine(arrLabXim(m2,24))
File1.WriteLine(arrLabXim(m2,25))

Next
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")
File1.WriteLine("ÆÑ¬πΘÑÑ   óαÑ¼∩")
File1.WriteBlankLines(8)
File1.WriteLine (" " &Taim_shas(Now))
''===========================================================================

'=============================T_PECHI====================================

'=============================T_PECHI====================================
File1.WriteLine(0)
File1.WriteLine(36)
File1.WriteLine(3)
File1.WriteLine("ÆÑ¼»ÑαáΓπαá_»Ñτ¿")
File1.WriteLine("  éαÑ¼∩  ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" ÆÑ¼»ÑαáΓπαá ")

For m2 = (UBound(arrTPech)-34) To (UBound(arrTPech)-1)
File1.WriteLine("   " & Taim_shas(arrTPech(m2,3)))
File1.WriteLine(arrTPech(m2,2))
File1.WriteLine("        " & arrTPech(m2,1))

Next
File1.WriteLine ("   " &Taim_shas(Now))
File1.WriteBlankLines(1)
File1.WriteLine("     ÆÑ¬πΘÑÑ       óαÑ¼∩")
''===========================================================================
' File1.WriteLine(0)
' File1.WriteLine(StrkPech+2)
' File1.WriteLine(4)
' File1.WriteLine("ÆÑ¼»ÑαáΓπαá")
' File1.WriteLine("  éαÑ¼∩")
' File1.WriteLine(" Å½áó¬á ")
' File1.WriteLine(" ÅÑτ∞ ")
' File1.WriteLine(" éá¡¡á ")
'
' TimeT = DateAdd("h",-24,Now)
'
' For n = 0 To 86400 '18000
' For m = (UBound(arrTPech)-30) To (UBound(arrTPech)-1)
'
' If DateDiff("s",arrTPech(m,3),TimeT) = 0 Then
' 'HMIRuntime.Trace "Pech | " & arrTPech(m,3) & vbCrLf
' File1.WriteLine("   " & Taim_shas(arrTPech(m2,3)))
' File1.WriteLine(arrTPech(m2,2))
' File1.WriteLine(arrTPech(m2,1))
' File1.WriteLine(" ---")
' End If
' Next
' For m1 = (UBound(arrTVann)-30) To (UBound(arrTVann)-1)
'
' If DateDiff("s",arrTVann(m1,2),TimeT) = 0 Then
' 'HMIRuntime.Trace "Vann | " & arrTVann(m1,2) & vbCrLf
' File1.WriteLine("   " & Taim_shas(arrTVann(m2,2)))
' File1.WriteLine(arrTVann(m2,1))
' File1.WriteLine(" ---")
' File1.WriteLine(arrTVann(m2,3))
' End If
' Next
' TimeT = DateAdd("s",+1,TimeT)
' Next
'
' File1.WriteLine ("   " &Taim_shas(Now))
' File1.WriteBlankLines(2)
' File1.WriteLine("     ÆÑ¬πΘÑÑ       óαÑ¼∩")
''===========================================================================
' ===========================================================

For n = 671 To (UBound(arr1)-1)
SText = arr1(n+3)
If InStr(1,SText,"ï¿Γ∞± Å½ⁿ") = 0 Then
If SText = "ÆÑ¬πΘÑÑ óαÑ¼∩" Then
arr1(n+3) = "éαÑ¼∩ «¬«¡τá¡¿∩ φΓá»á"
Else
If SText = "--:--" And Not arr1(n+1) = "îáßΓÑα" Then
T = DateAdd("n", -2, Now)
arr1(n+3) = Taim_Shas(T)
arr1(n+4) =DateDiff("n",arr1(n+2),arr1(n+3))
End If
End If
File1.WriteLine(arr1(n))
Else
Exit For
End If
Next

'=====================ïêÆ£≡============================================
DefBunt = 0

For m = (UBound(arrDefekt)-100) To (UBound(arrDefekt)-1)
If arrDefekt(m,1) = NomerPlavki Then
DefBunt = DefBunt + 1
End If
Next

Strok5 = Strok5 + Master_Lite + DefBunt + 7
File1.WriteLine(0)
File1.WriteLine(Strok5)
File1.WriteLine(5)
File1.WriteLine("ï¿Γ∞± Å½ⁿ" & Left(NomerPlavki,2) & " 660/" & HMIRuntime.Tags("Taimer_etap_5").Read)

File1.WriteLine("ôú«½ ¡á¬½«¡á »Ñτ¿ (âαáñ.)")
File1.WriteLine Fix (HMIRuntime.Tags("P7").Read)
File1.WriteBlankLines (3)

If Not HMIRuntime.Tags("Lite_Text_Start_1").Read = "" Then
File1.WriteLine("Åα«ª¿ú ½±Γ¬¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_1").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_1").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_1").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_1").Read)
End If

If Not HMIRuntime.Tags("Lite_Text_Start_2").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_2").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_2").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_2").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_2").Read)
End If

If Not HMIRuntime.Tags("Lite_Text_Start_3").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_3").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_3").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_3").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_3").Read)
End If
If Not HMIRuntime.Tags("Lite_Text_Start_4").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_4").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_4").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_4").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_4").Read)
End If
If Not HMIRuntime.Tags("Lite_Text_Start_5").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_5").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_5").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_5").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_5").Read)
End If
If Not HMIRuntime.Tags("Lite_Text_Start_6").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_6").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_6").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_6").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_6").Read)
End If
If Not HMIRuntime.Tags("Lite_Text_Start_7").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_7").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_7").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_7").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_7").Read)
End If
If Not HMIRuntime.Tags("Lite_Text_Start_8").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Start_8").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Lite_Text_Stop_8").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_Text_Fakt_8").Read)
File1.WriteLine(HMIRuntime.Tags("Lite_I/O_Prichina_8").Read)
End If

'=============================MACTEP=========================================================
'HMIRuntime.Trace " MASTER " & arrMaster(UBound(arrMaster)-1,1) & vbCrLf

For m = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

StartMaster = arrMaster(m,1)
Sigment1 = DateDiff("n",CDate(StartMaster),CDate(StartLite))
If Not m = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m+1,1)
Sigment2 = DateDiff("n",StopMaster,StartLite)
Else
StopMaster = "--:--"
Sigment2 = -1
End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
File1.WriteLine("îáßΓÑα")
File1.WriteLine(Taim_shas (StartMaster))
File1.WriteLine(Taim_shas (StopMaster))
File1.WriteBlankLines (1)
File1.WriteLine(arrMaster(m,4))

End If

Next
'====================================================================================================

'====================Γáí½¿µá íπ¡Γ«ó ñÑΣÑ¬Γ«¼áΓá======================================================

File1.WriteLine ("**********************")
File1.WriteLine ("*************")
File1.WriteLine ("*************")
File1.WriteLine ("*************")
File1.WriteLine ("*******************")

File1.WriteLine ("üπ¡Γ (ⁿ »« ñÑΣÑ¬Γ«¼áΓπ)")
File1.WriteLine ("éÑßδ (¬ú)")
File1.WriteLine ("è¿ß½«α«ñ(ppm)")
File1.WriteLine ("î«Γá½¬á (¬ú)")
File1.WriteLine ("îá½.äÑΣÑ¬Γ (¬«½-ó«)")
For m = (UBound(arrDefekt)-100) To (UBound(arrDefekt)-1)
If arrDefekt(m,1) = NomerPlavki Then
If IsNull(arrDefekt(m,2)) Then
File1.WriteLine ("---")
Else
File1.WriteLine (arrDefekt(m,2))
End If

If IsNull(arrDefekt(m,11)) Then
File1.WriteLine ("---")
Else
File1.WriteLine (arrDefekt(m,11))
Ves = Ves + (arrDefekt(m,11))
End If

If IsNull(arrDefekt(m,10)) Then
If Not m = (UBound(arrDefekt)-1) Then
File1.WriteLine ("---</red>")
KisBunt = KisBunt + 1
Else
File1.WriteLine ("---")
End If
Else
If arrDefekt(m,10)<150 Or arrDefekt(m,10)>250 Then
File1.WriteLine (" " & arrDefekt(m,10) & " </red>")
'File1.WriteLine (" " & arrDefekt(m,10) & " !")
KisBunt = KisBunt + 1
Else
If IsNull(KisBunt)Or KisBunt = "" Then
KisBunt = 0
End If
File1.WriteLine arrDefekt(m,10)

'
End If
End If

If IsNull(arrDefekt(m,6)) Then
File1.WriteLine ("---")
Else
File1.WriteLine (arrDefekt(m,6))
Motalka = Motalka + (arrDefekt(m,6))
End If

If IsNull(arrDefekt(m,7)) Then
File1.WriteLine ("---")
Else
File1.WriteLine (arrDefekt(m,7))
End If

End If
Next

File1.WriteBlankLines (5)

File1.WriteLine ("êΓ«ú«:")
File1.WriteLine (Ves)
If KisBunt > 0 Then
File1.WriteLine (" " & KisBunt & " </red>")
Else
File1.WriteLine (KisBunt)
End If

'File1.WriteLine "-"
File1.WriteLine ( Motalka )
File1.WriteLine (" ")

File1.WriteLine ("**********************")
File1.WriteLine ("*************")
File1.WriteLine ("*************")
File1.WriteLine ("*************")
File1.WriteLine ("*******************")

File1.WriteLine ("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteLine (Taim_shas(Now))
File1.WriteBlankLines (2)
File1.Write (Left(Now,10))
'= tekushaya stroka
' File1.WriteLine ("<MARQUEE>çá »½áó¬π ⁿ20 «Γ½¿Γ« 18719 ¬ú. çá ¼Ñß∩µ îá⌐ «Γ½¿Γ« 1590918 ¬ú. çñÑß∞ ¼«ú½á íδ íδΓ∞ óáΦá αÑ¬½á¼á. </MARQUEE>")
' File1.WriteBlankLines (3)
' File1.Write (" ")
'

File1.Close
Set File1 = Nothing
Set fso = Nothing
'UgolMax =Int(TegLoggingSred ("247",StartLite,Now,-1000))
'HMIRuntime.Trace "UgolMax = " & UgolMax & vbCrLf
End If

'=======================================================================================================================
'======================================================================================================================='
'=======================================================================================================================

If NomerEtapa = 1 Then
' ¥ÆÇÅ Å«ñú«Γ«ó¬á
UgolMax =Int(TegLoggingSred ("247",StartLite,StopLite,-1000))
m = 1
n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
 Do Until tf.AtEndOfStream
 Line1 = tf.ReadLine
 m = m + 1
Loop

tf.Close
Set tf = Nothing
Set fso = Nothing



Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
'''''HMIRuntime.Trace "æ«ºñá¡¿Ñ ¼áßß¿óá" & m & vbCrLf
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)

'=============================KISLOROD====================================
File1.WriteLine(0)
File1.WriteLine(n2+1)
File1.WriteLine(5)
File1.WriteLine("è¿ß½«α«ñ")
File1.WriteLine("        éαÑ¼∩")
File1.WriteLine("Å½áó¬á")
File1.WriteLine("ÅÑτ∞")
File1.WriteLine("éá¡¡á")
File1.WriteLine("ï±Γ¬á")
For m2 = 0 To (UBound(arrKislorod)-1)
File1.WriteLine("         " & Taim_shas(arrKislorod(m2,1)))
File1.WriteLine(" " & arrKislorod(m2,5) & " ")
File1.WriteLine(arrKislorod(m2,2))
File1.WriteLine(arrKislorod(m2,3))
File1.WriteLine(arrKislorod(m2,4))
Next
File1.WriteLine("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteBlankLines(3)
File1.WriteLine (Taim_shas(Now))
' '===========================================================================
'
'=============================XIMIYA====================================
File1.WriteLine(0)
File1.WriteLine(37)
File1.WriteLine(10)
File1.WriteLine("ò¿¼¿∩")
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")

For m2 = (UBound(arrLabXim)-34) To (UBound(arrLabXim)-1)
File1.WriteLine("   " & Taim_shas(arrLabXim(m2,1)))
File1.WriteLine(arrLabXim(m2,3))
File1.WriteLine(arrLabXim(m2,4))
File1.WriteLine(arrLabXim(m2,5))
File1.WriteLine(arrLabXim(m2,6))
File1.WriteLine(arrLabXim(m2,7))
File1.WriteLine(arrLabXim(m2,8))
File1.WriteLine(arrLabXim(m2,9))
File1.WriteLine(arrLabXim(m2,10))
File1.WriteLine(arrLabXim(m2,25))

Next
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")
File1.WriteLine("ÆÑ¬πΘÑÑ   óαÑ¼∩")
File1.WriteBlankLines(8)
File1.WriteLine (" " &Taim_shas(Now))
''===========================================================================

'=============================T_PECHI====================================
File1.WriteLine(0)
File1.WriteLine(36)
File1.WriteLine(3)
File1.WriteLine("ÆÑ¼»ÑαáΓπαá_»Ñτ¿")
File1.WriteLine("  éαÑ¼∩  ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" ÆÑ¼»ÑαáΓπαá ")

For m2 = (UBound(arrTPech)-34) To (UBound(arrTPech)-1)
File1.WriteLine("   " & Taim_shas(arrTPech(m2,3)))
File1.WriteLine(arrTPech(m2,2))
File1.WriteLine("        " & arrTPech(m2,1))

Next
File1.WriteLine ("   " &Taim_shas(Now))
File1.WriteBlankLines(1)
File1.WriteLine("     ÆÑ¬πΘÑÑ       óαÑ¼∩")
''===========================================================================

Ves = 0
KisBunt = 0

For n = 671 To (UBound(arr1)-1)
SText = arr1(n+3)
If InStr(1,SText,"Å«ñú«Γ«ó¬á Å½ⁿ") = 0 Then

If Left(SText,6) = "üπ¡Γ ⁿ" Then
'HMIRuntime.Trace "SText " & SText & " " & arr1(n+4) & " " & arr1(n+5) & vbCrLf

If arr1(n+4) = "---" Or arr1(n+5) = "---</red>" Or arr1(n+5) = "---" Then

For m = (UBound(arrDefekt)-100) To (UBound(arrDefekt)-1)

If arrDefekt(m,1) = NomPlavPrev Then

If arrDefekt(m,2) = SText Then

If IsNull(arrDefekt(m,11)) Then
arr1(n+4) = ("---")
Else
arr1(n+4) = (arrDefekt(m,11))

End If

If IsNull(arrDefekt(m,10)) Then
If Not m = (UBound(arrDefekt)-1) Then
arr1(n+5) = ("---</red>")
Else
arr1(n+5) = ("---")
End If
Else
If arrDefekt(m,10)<150 Or arrDefekt(m,10)>250 Then
arr1(n+5) = (" " & arrDefekt(m,10) & " </red>")
KisBunt = KisBunt + 1
Else
arr1(n+5) = arrDefekt(m,10)
End If
End If
End If
End If
Next
End If
End If
If SText = "êΓ«ú«:" Then
For m = (UBound(arrDefekt)-100) To (UBound(arrDefekt)-1)

If arrDefekt(m,1) = NomPlavPrev Then
Ves = Ves + (arrDefekt(m,11))
If IsNull(arrDefekt(m,10)) Then
KisBunt = KisBunt + 1
Else
If arrDefekt(m,10)<150 Or arrDefekt(m,10)>250 Then
KisBunt = KisBunt + 1
End If

End If
'
End If
Next
If KisBunt > 0 Then
KisBunt = (" " & KisBunt & " </red>")
End If
arr1(n+4) = Ves
arr1(n+5) = KisBunt
'HMIRuntime.Trace "Ves " & Ves & " = " & arr1(n+4) & vbCrLf
'HMIRuntime.Trace "KisBunt " & KisBunt & " = " & arr1(n+5) & vbCrLf
End If


If SText = "ôú«½ ¡á¬½«¡á »Ñτ¿ (âαáñ.)" Then
arr1(n+3) = "ôú«½ ¡á¬½«¡á »Ñτ¿ (îáσ)"
arr1(n+4) = UgolMax
Else
If SText = "ÆÑ¬πΘÑÑ óαÑ¼∩" Then
arr1(n+3) = "éαÑ¼∩ «¬«¡τá¡¿∩ φΓá»á"
Else
If SText = "--:--" And Not arr1(n+1) = "îáßΓÑα" Then
T = DateAdd("n", -2, Now)
arr1(n+3) = Taim_Shas(T)
arr1(n+4) =DateDiff("n",arr1(n+2),arr1(n+3))

End If
End If
End If
File1.WriteLine(arr1(n))
Else
'''''HMIRuntime.Trace "Å«ñú«Γ«ó¬á ¡á⌐ñÑ¡" & vbCrLf
Exit For
End If
Next

'=====================================ÅÄäâÄÆÄéèÇ===========================================================================
Strok1 = Strok1 + Master_Podg + 1
File1.WriteLine(0)
File1.WriteLine(Strok1)
File1.WriteLine("5")
File1.WriteLine("Å«ñú«Γ«ó¬á Å½ⁿ" & Left(NomerPlavki,2) & " 50/" & HMIRuntime.Tags("Taimer_etap_1").Read)

If Not HMIRuntime.Tags("Taim_Start_1").Read = "" Then
File1.WriteLine("ù¿ßΓ¬á ½±Γ¬¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_1").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_1").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_1").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_1").Read)

End If

If Not HMIRuntime.Tags("Taim_Start_2").Read = "" Then
File1.WriteLine("Äß¼«Γα ΣπΓÑα«ó¬¿ »Ñτ¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_2").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_2").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_2").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_2").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_6").Read = "" Then
File1.WriteLine("Å«ñú«Γ«ó¬á Φ¿íÑαá ¬ αáí«ΓÑ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_6").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_6").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_6").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_6").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_3").Read = "" Then
File1.WriteLine("çá¼Ñα «ßΓáΓ¬á ó »Ñτ¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_3").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_3").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_3").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_3").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_9").Read = "" Then
File1.WriteLine("Åα«óÑα¬á αáí«Γδ ú¿ñα«ß¿ßΓÑ¼δ »Ñτ¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_9").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_9").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_9").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_9").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_7").Read = "" Then
File1.WriteLine("ù¿ßΓ¬á »«α«úá ºáúαπº«τ¡«⌐ »Ñτ¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_7").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_7").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_7").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_7").Read)
End If


If Not HMIRuntime.Tags("Taim_Start_8").Read = "" Then
File1.WriteLine("ù¿ßΓ¬á »«α«úá ß¼«Γα«ó«⌐ ñóÑα¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_8").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_8").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_8").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_8").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_5").Read = "" Then
File1.WriteLine("çá»ÑτáΓδóá¡¿Ñ ½±Γ¬¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_5").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_5").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_5").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_5").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_20").Read = "" Then
File1.WriteLine("Åα«úαÑó »Ñτ¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_20").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_20").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_20").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_20").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_4").Read = "" Then
File1.WriteLine("ù¿ßΓ¬á í«α«óá, Φ½á¬«ó«ú« «ΓóÑαßΓ¿∩ í«α«ú«")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_4").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_4").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_4").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_4").Read)
End If


If Not HMIRuntime.Tags("Taim_Start_10").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_10").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_10").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_10").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_10").Read)
End If

If Not HMIRuntime.Tags("Taim_Start_11").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Start_11").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Taim_Stop_11").Read)
File1.WriteLine(HMIRuntime.Tags("Taim_Start_Stop_11").Read)
File1.WriteLine(HMIRuntime.Tags("Pshina_11").Read)
End If

Поделиться32Вторник, 11 июня, 2013г. 06:36:42

Автор: X1
Участник
Зарегистрирован: Четверг, 20 декабря, 2012г.
Приглашений: 0
Сообщений: 24
Провел на форуме:
1 час 53 минуты
Последний визит:
Вторник, 4 февраля, 2014г. 12:27:15

'==============================îÇæÆàÉ=============================================
Sigment1 = 1
Sigment2 = 1

For m = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

StartMaster = arrMaster(m,1)
Sigment1 = DateDiff("n",StartMaster,StartPodg)

If Not m = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m+1,1)
Sigment2 = DateDiff("n",StopMaster,StartPodg)
Else
StopMaster = "--:--"
Sigment2 = -1
End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
File1.WriteLine("îáßΓÑα")
File1.WriteLine(Taim_shas (StartMaster))
File1.WriteLine(Taim_shas (StopMaster))
File1.WriteBlankLines (1)
File1.WriteLine(arrMaster(m,4))

End If
Next

'=====================================================================================

File1.WriteLine ("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteLine (Taim_shas(Now))
File1.WriteBlankLines (2)
File1.Write (Left(Now,10))

File1.Close
Set File1 = Nothing
Set fso = Nothing
End If
''=====================================================================================================================
'=====================================================================================================================
''==================================================================================================================

If NomerEtapa = 2 Then
' ' ¥ÆÇÅ çÇâÉôçèÇ
'''''HMIRuntime.Trace "¥ÆÇÅ çÇâÉôçèÇ " & Now & vbCrLf

m = 1
n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
'''''HMIRuntime.Trace "Å«ñßτ±Γ ¬«½-óá ßΓα«¬" & vbCrLf
 Do Until tf.AtEndOfStream
 Line1 = tf.ReadLine
 m = m + 1
Loop

tf.Close
Set tf = Nothing
Set fso = Nothing



Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
'''''HMIRuntime.Trace "æ«ºñá¡¿Ñ ¼áßß¿óá" & m & vbCrLf
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

'======================TEKUSHEE VREMYA========================================

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)
'

'=============================KISLOROD====================================
File1.WriteLine(0)
File1.WriteLine(n2+1)
File1.WriteLine(5)
File1.WriteLine("è¿ß½«α«ñ")
File1.WriteLine("        éαÑ¼∩")
File1.WriteLine("Å½áó¬á")
File1.WriteLine("ÅÑτ∞")
File1.WriteLine("éá¡¡á")
File1.WriteLine("ï±Γ¬á")
For m2 = 0 To (UBound(arrKislorod)-1)
File1.WriteLine("         " & Taim_shas(arrKislorod(m2,1)))
File1.WriteLine(" " & arrKislorod(m2,5) & " ")
File1.WriteLine(arrKislorod(m2,2))
File1.WriteLine(arrKislorod(m2,3))
File1.WriteLine(arrKislorod(m2,4))
Next
File1.WriteLine("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteBlankLines(3)
File1.WriteLine (Taim_shas(Now))
' '===========================================================================
'
'=============================XIMIYA====================================
File1.WriteLine(0)
File1.WriteLine(37)
File1.WriteLine(10)
File1.WriteLine("ò¿¼¿∩")
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")

For m2 = (UBound(arrLabXim)-34) To (UBound(arrLabXim)-1)
File1.WriteLine("   " & Taim_shas(arrLabXim(m2,1)))
File1.WriteLine(arrLabXim(m2,3))
File1.WriteLine(arrLabXim(m2,4))
File1.WriteLine(arrLabXim(m2,5))
File1.WriteLine(arrLabXim(m2,6))
File1.WriteLine(arrLabXim(m2,7))
File1.WriteLine(arrLabXim(m2,8))
File1.WriteLine(arrLabXim(m2,9))
File1.WriteLine(arrLabXim(m2,10))
File1.WriteLine(arrLabXim(m2,25))

Next
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")
File1.WriteLine("ÆÑ¬πΘÑÑ   óαÑ¼∩")
File1.WriteBlankLines(8)
File1.WriteLine (" " &Taim_shas(Now))
''===========================================================================

'=============================T_PECHI====================================
File1.WriteLine(0)
File1.WriteLine(36)
File1.WriteLine(3)
File1.WriteLine("ÆÑ¼»ÑαáΓπαá_»Ñτ¿")
File1.WriteLine("  éαÑ¼∩  ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" ÆÑ¼»ÑαáΓπαá ")

For m2 = (UBound(arrTPech)-34) To (UBound(arrTPech)-1)
File1.WriteLine("   " & Taim_shas(arrTPech(m2,3)))
File1.WriteLine(arrTPech(m2,2))
File1.WriteLine("        " & arrTPech(m2,1))

Next
File1.WriteLine ("   " &Taim_shas(Now))
File1.WriteBlankLines(1)
File1.WriteLine("     ÆÑ¬πΘÑÑ       óαÑ¼∩")
''===========================================================================

Ves = 0
KisBunt = 0

For n = 671 To (UBound(arr1)-1)
SText = arr1(n+3)
If InStr(1,SText,"çáúαπº¬á Å½ⁿ") = 0 Then

If Left(SText,6) = "üπ¡Γ ⁿ" Then
'HMIRuntime.Trace "SText " & SText & " " & arr1(n+4) & " " & arr1(n+5) & vbCrLf

If arr1(n+4) = "---" Or arr1(n+5) = "---</red>" Or arr1(n+5) = "---" Then

For m = (UBound(arrDefekt)-100) To (UBound(arrDefekt)-1)

If arrDefekt(m,1) = NomPlavPrev Then

If arrDefekt(m,2) = SText Then

If IsNull(arrDefekt(m,11)) Then
arr1(n+4) = ("---")
Else
arr1(n+4) = (arrDefekt(m,11))

End If

If IsNull(arrDefekt(m,10)) Then
If Not m = (UBound(arrDefekt)-1) Then
arr1(n+5) = ("---</red>")
Else
arr1(n+5) = ("---")
End If
Else
If arrDefekt(m,10)<150 Or arrDefekt(m,10)>250 Then
arr1(n+5) = (" " & arrDefekt(m,10) & " </red>")
KisBunt = KisBunt + 1
Else
arr1(n+5) = arrDefekt(m,10)
End If
End If
End If
End If
Next
End If
End If
If SText = "êΓ«ú«:" Then
For m = (UBound(arrDefekt)-100) To (UBound(arrDefekt)-1)

If arrDefekt(m,1) = NomPlavPrev Then
Ves = Ves + (arrDefekt(m,11))
If IsNull(arrDefekt(m,10)) Then
KisBunt = KisBunt + 1
Else
If arrDefekt(m,10)<150 Or arrDefekt(m,10)>250 Then
KisBunt = KisBunt + 1
End If

End If
'
End If
Next
If KisBunt > 0 Then
KisBunt = (" " & KisBunt & " </red>")
End If
arr1(n+4) = Ves
arr1(n+5) = KisBunt
'HMIRuntime.Trace "Ves " & Ves & " = " & arr1(n+4) & vbCrLf
'HMIRuntime.Trace "KisBunt " & KisBunt & " = " & arr1(n+5) & vbCrLf
End If

If SText = "ÆÑ¬πΘÑÑ óαÑ¼∩" Then
arr1(n+3) = "éαÑ¼∩ «¬«¡τá¡¿∩ φΓá»á"
Else
If SText = "--:--" And Not arr1(n+1) = "îáßΓÑα" Then
T = DateAdd("n", -2, Now)
arr1(n+3) = Taim_Shas(T)
arr1(n+4) =DateDiff("n",arr1(n+2),arr1(n+3))
End If
End If
File1.WriteLine(arr1(n))
Else
'''''HMIRuntime.Trace "çÇâÉôçèÇ ¡á⌐ñÑ¡" & vbCrLf
Exit For
End If
Next

'======================çÇâÉôçèÇ========================================

Strok2 = Strok2 + Master_Zagr + Vodil_Zagr + 3
'HMIRuntime.Trace " è«½¿τÑßΓó« ó«ñ¿ΓÑ½Ñ⌐ ¡á φΓá»Ñ ºáúαπº¬á " & Vodil_Zagr & vbCrLf
'HMIRuntime.Trace " è«½¿τÑßΓó« ßΓα«¬ ¡á φΓá»Ñ ºáúαπº¬á " & Strok2 & vbCrLf
File1.WriteLine(0)
File1.WriteLine(Strok2)
File1.WriteLine(2)
File1.WriteLine("çáúαπº¬á Å½ⁿ" & Left(NomerPlavki,2) & " 400/" & HMIRuntime.Tags("Taimer_etap_2").Read)

If Not HMIRuntime.Tags("A1_1_plav").Read = 0 Then
File1.WriteLine("Ç1-1")
File1.WriteLine(HMIRuntime.Tags("A1_1_plav").Read)
End If

If Not HMIRuntime.Tags("A1_1a_plav").Read = 0 Then
File1.WriteLine("Ç1-1á")
File1.WriteLine(HMIRuntime.Tags("A1_1a_plav").Read)
End If
If Not HMIRuntime.Tags("A1_2_plav").Read = 0 Then
File1.WriteLine("Ç1-2")
File1.WriteLine(HMIRuntime.Tags("A1_2_plav").Read)
End If
If Not HMIRuntime.Tags("A1_1E_plav").Read = 0 Then
File1.WriteLine("Ç1-1à")
File1.WriteLine(HMIRuntime.Tags("A1_1E_plav").Read)
End If
If Not HMIRuntime.Tags("A1_1G_plav").Read = 0 Then
File1.WriteLine("Ç1-1å")
File1.WriteLine(HMIRuntime.Tags("A1_1G_plav").Read)
End If
If Not HMIRuntime.Tags("Slitki1_1_plav").Read = 0 Then
File1.WriteLine("æ½¿Γ¬¿ 1-1á")
File1.WriteLine(HMIRuntime.Tags("Slitki1_1_plav").Read)
End If

If Not HMIRuntime.Tags("Slitki1_2_plav").Read = 0 Then
File1.WriteLine("æ½¿Γ¬¿ 1-2")
File1.WriteLine(HMIRuntime.Tags("Slitki1_2_plav").Read)
End If

If Not HMIRuntime.Tags("Brak_plav").Read = 0 Then
File1.WriteLine("èáΓ-¬á üαá¬")
File1.WriteLine(HMIRuntime.Tags("Brak_plav").Read)
End If

If Not HMIRuntime.Tags("Probi_plav").Read = 0 Then
File1.WriteLine("Åα«íδ")
File1.WriteLine(HMIRuntime.Tags("Probi_plav").Read)
End If

If Not HMIRuntime.Tags("Strugka_plav").Read = 0 Then
File1.WriteLine("æΓαπª¬á")
File1.WriteLine(HMIRuntime.Tags("Strugka_plav").Read)
End If

If Not HMIRuntime.Tags("Polosa_plav").Read = 0 Then
File1.WriteLine("Å«½«ßá")
File1.WriteLine(HMIRuntime.Tags("Polosa_plav").Read)
End If

If Not HMIRuntime.Tags("Sples_plav").Read = 0 Then
File1.WriteLine("æ»½Ñßδ ")
File1.WriteLine(HMIRuntime.Tags("Sples_plav").Read)
End If
' File1.WriteLine("éαÑ¼∩ ß« ßΓáαΓá ºáúαπº¬¿")
' File1.WriteLine(HMIRuntime.Tags("Taimer_etap_2").Read)

File1.WriteLine("ÄíΘ. ¬«½-ó« ºáúαπªÑ¡¡«ú«")
File1.WriteLine(HMIRuntime.Tags("summa_plav").Read)

File1.WriteLine("ÆÑ¼»ÑαáΓπαá ó »Ñτ¿ (æ) / éαÑ¼∩ ºá¼Ñαá ")
File1.WriteLine(HMIRuntime.Tags("T_PESHI").Read & " / " & Taim_shas (HMIRuntime.Tags("T_Pesh_Taim").Read))

'==============================îÇæÆàÉ=============================================
Sigment1 = 1
Sigment2 = 1

For m = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

StartMaster = arrMaster(m,1)
Sigment1 = DateDiff("n",StartMaster,StartZagr)

If Not m = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m+1,1)
Sigment2 = DateDiff("n",StopMaster,StartZagr)
Else
StopMaster = "--:--"
Sigment2 = -1
End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
File1.WriteLine("îáßΓÑα      (¡áτá½« ß¼Ñ¡δ  " & Taim_shas (StartMaster) & ")")
File1.WriteLine(arrMaster(m,4))

End If

Next

'=====================================================================================
'
'=============================éÄäêÆàï£============================================

 Sigment1 = 1
Sigment2 = 1

For m = (UBound(arrVodil)-25) To (UBound(arrVodil)-1)

StartVodil = arrVodil(m,1)
Sigment1 = DateDiff("n",StartVodil,StartZagr)

If Not m = (UBound(arrVodil)-1) Then
StopVodil = arrVodil(m+1,1)
Sigment2 = DateDiff("n",StopVodil,StartZagr)
Else
'StopVodil = "--:--"
Sigment2 = -1
End If

If Sigment1 <= 0 Or Sigment2 <= 0 Then
File1.WriteLine("é«ñ¿ΓÑ½∞    (¡áτá½« ß¼Ñ¡δ  " & Taim_shas (StartVodil) & ")")
File1.WriteLine(arrVodil(m,4))

End If

Next

File1.WriteLine ("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.Write (Taim_shas(Now))
'
'
'

File1.Close
Set File1 = Nothing
Set fso = Nothing
End If

'=======================================================================================================================
'======================================================================================================================='
'=======================================================================================================================

If NomerEtapa = 3 Then
' ' ¥ÆÇÅ ÉáΣ¿¡¿α«óá¡¿Ñ

m = 1
n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
'''''HMIRuntime.Trace "Å«ñßτ±Γ ¬«½-óá ßΓα«¬" & vbCrLf
 Do Until tf.AtEndOfStream
 Line1 = tf.ReadLine
 m = m + 1
Loop

tf.Close
Set tf = Nothing
Set fso = Nothing



Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
'''''HMIRuntime.Trace "æ«ºñá¡¿Ñ ¼áßß¿óá" & m & vbCrLf
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)
'''''HMIRuntime.Trace "Å«¿ß¬ í½«¬á ÉáΣ¿¡¿α«óá¡¿Ñ" & vbCrLf

'=============================KISLOROD====================================
File1.WriteLine(0)
File1.WriteLine(n2+1)
File1.WriteLine(5)
File1.WriteLine("è¿ß½«α«ñ")
File1.WriteLine("        éαÑ¼∩")
File1.WriteLine("Å½áó¬á")
File1.WriteLine("ÅÑτ∞")
File1.WriteLine("éá¡¡á")
File1.WriteLine("ï±Γ¬á")
For m2 = 0 To (UBound(arrKislorod)-1)
File1.WriteLine("         " & Taim_shas(arrKislorod(m2,1)))
File1.WriteLine(" " & arrKislorod(m2,5) & " ")
File1.WriteLine(arrKislorod(m2,2))
File1.WriteLine(arrKislorod(m2,3))
File1.WriteLine(arrKislorod(m2,4))
Next
File1.WriteLine("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteBlankLines(3)
File1.WriteLine (Taim_shas(Now))
' '===========================================================================
'
'=============================XIMIYA====================================
File1.WriteLine(0)
File1.WriteLine(37)
File1.WriteLine(10)
File1.WriteLine("ò¿¼¿∩")
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")

For m2 = (UBound(arrLabXim)-34) To (UBound(arrLabXim)-1)
File1.WriteLine("   " & Taim_shas(arrLabXim(m2,1)))
File1.WriteLine(arrLabXim(m2,3))
File1.WriteLine(arrLabXim(m2,4))
File1.WriteLine(arrLabXim(m2,5))
File1.WriteLine(arrLabXim(m2,6))
File1.WriteLine(arrLabXim(m2,7))
File1.WriteLine(arrLabXim(m2,8))
File1.WriteLine(arrLabXim(m2,9))
File1.WriteLine(arrLabXim(m2,10))
File1.WriteLine(arrLabXim(m2,25))

Next
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")
File1.WriteLine("ÆÑ¬πΘÑÑ   óαÑ¼∩")
File1.WriteBlankLines(8)
File1.WriteLine (" " &Taim_shas(Now))
''===========================================================================

'=============================T_PECHI====================================
File1.WriteLine(0)
File1.WriteLine(36)
File1.WriteLine(3)
File1.WriteLine("ÆÑ¼»ÑαáΓπαá_»Ñτ¿")
File1.WriteLine("  éαÑ¼∩  ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" ÆÑ¼»ÑαáΓπαá ")

For m2 = (UBound(arrTPech)-34) To (UBound(arrTPech)-1)
File1.WriteLine("   " & Taim_shas(arrTPech(m2,3)))
File1.WriteLine(arrTPech(m2,2))
File1.WriteLine("        " & arrTPech(m2,1))

Next
File1.WriteLine ("   " &Taim_shas(Now))
File1.WriteBlankLines(1)
File1.WriteLine("     ÆÑ¬πΘÑÑ       óαÑ¼∩")
''===========================================================================

For n = 671 To (UBound(arr1)-1)
SText = arr1(n+3)
If InStr(1,SText,"ÉáΣ¿¡¿α«óá¡¿Ñ Å½ⁿ") = 0 Then

If SText = "ÆÑ¬πΘÑÑ óαÑ¼∩" Then
arr1(n+3) = "éαÑ¼∩ «¬«¡τá¡¿∩ φΓá»á"
' Else
' If SText = "--:--" And Not arr1(n+1) = "îáßΓÑα" Then
' T = DateAdd("n", -2, Now)
' arr1(n+3) = Taim_Shas(T)
' arr1(n+4) =DateDiff("n",arr1(n+2),arr1(n+3))
' End If
End If
File1.WriteLine(arr1(n))
Else
'''''HMIRuntime.Trace "ÉáΣ¿¡¿α«óá¡¿Ñ ¡á⌐ñÑ¡" & vbCrLf
Exit For
End If
Next
'HMIRuntime.Trace "Ves " & Ves & vbCrLf
'HMIRuntime.Trace "KisBunt " & KisBunt & vbCrLf

Поделиться33Вторник, 11 июня, 2013г. 06:41:33

Автор: X1
Участник
Зарегистрирован: Четверг, 20 декабря, 2012г.
Приглашений: 0
Сообщений: 24
Провел на форуме:
1 час 53 минуты
Последний визит:
Вторник, 4 февраля, 2014г. 12:27:15

'=====================ÉáΣ¿¡¿α«óá¡¿Ñ====================================

Strok3 =Strok3 + Master_Raf + 1 '

File1.WriteLine(0)
File1.WriteLine(Strok3)
File1.WriteLine("5")
File1.WriteLine("ÉáΣ¿¡¿α«óá¡¿Ñ Å½ⁿ" & Left(NomerPlavki,2) & " 85/" & HMIRuntime.Tags("Taimer_etap_3").Read)

If Not HMIRuntime.Tags("Raf_Text_Start_1").Read = "" Then

File1.WriteLine("çáúαπº¬á üÄÉèê")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_1").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_1").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_1").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_1").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_2").Read = "" Then
File1.WriteLine("ÅÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_2").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_2").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_2").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_2").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_3").Read = "" Then
File1.WriteLine("Äτ¿ßΓ¬á Φ½á¬«ó«⌐ ñóÑα¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_3").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_3").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_3").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_3").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_4").Read = "" Then
File1.WriteLine("æ¡∩Γ¿Ñ Φ½á¬á")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_4").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_4").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_4").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_4").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_5").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_5").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_5").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_5").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_5").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_6").Read = "" Then
File1.WriteLine("çáúαπº¬á âîö (Γáí½¿µá é)")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_6").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_6").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_6").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_6").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_7").Read = "" Then
File1.WriteLine("ÅÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_7").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_7").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_7").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_7").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_8").Read = "" Then
File1.WriteLine("æ¡∩Γ¿Ñ Φ½á¬á")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_8").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_8").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_8").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_8").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_9").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_9").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_9").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_9").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_9").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_10").Read = "" Then
File1.WriteLine("çáúαπº¬á âîö (Γáí½¿µá é)")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_10").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_10").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_10").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_10").Read)
End If

If Not HMIRuntime.Tags("Raf_Text_Start_11").Read = "" Then
File1.WriteLine("ÅÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_11").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_11").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_11").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_11").Read)
End If



If Not HMIRuntime.Tags("Raf_Text_Start_12").Read = "" Then
File1.WriteLine("æ¡∩Γ¿Ñ Φ½á¬á")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_12").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_12").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_12").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_12").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_13").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_13").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_13").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_13").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_13").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_14").Read = "" Then
File1.WriteLine("Å«ñΩ±¼ ¬¿ß½«α«ñá »«ñ æÄäô")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_14").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_14").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_14").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_14").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_15").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_15").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_15").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_15").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_15").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_16").Read = "" Then
File1.WriteLine("çáúαπº¬á æÄä¢ (Æáí½¿µá æ)")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_16").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_16").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_16").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_16").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_17").Read = "" Then
File1.WriteLine("ÅÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_17").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_17").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_17").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_17").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_18").Read = "" Then
File1.WriteLine("æ¡∩Γ¿Ñ Φ½á¬á")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_18").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_18").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_18").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_18").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_19").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_19").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_19").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_19").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_19").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_20").Read = "" Then
File1.WriteLine("çáúαπº¬á ß«ñδ (Æáí½¿µá æ)")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_20").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_20").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_20").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_20").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_21").Read = "" Then
File1.WriteLine("ÅÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_21").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_21").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_21").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_21").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_22").Read = "" Then
File1.WriteLine("æ¡∩Γ¿Ñ Φ½á¬á")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_22").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_22").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_22").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_22").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_23").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_23").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_23").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_23").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_23").Read)
End If


If Not HMIRuntime.Tags("Raf_Text_Start_24").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_24").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_24").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_24").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_24").Read)
End If



If Not HMIRuntime.Tags("Raf_Text_Start_25").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Start_25").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Raf_Text_Stop_25").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_Text_Fakt_25").Read)
File1.WriteLine(HMIRuntime.Tags("Raf_I/O_Prichina_25").Read)
End If
'==============================îÇæÆàÉ=============================================
 Sigment1 = 1
Sigment2 = 1

For m = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

StartMaster = arrMaster(m,1)
Sigment1 = DateDiff("n",StartMaster,StartRaf)

If Not m = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m+1,1)
Sigment2 = DateDiff("n",StopMaster,StartRaf)
Else
StopMaster = "--:--"
Sigment2 = -1
End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
File1.WriteLine("îáßΓÑα")
File1.WriteLine(Taim_shas (StartMaster))
File1.WriteLine(Taim_shas (StopMaster))
File1.WriteBlankLines (1)
File1.WriteLine(arrMaster(m,4))

End If

Next

'=====================================================================================

File1.WriteLine ("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteLine (Taim_shas(Now))
File1.WriteBlankLines (2)
File1.Write (Left(Now,10))

File1.Close
Set File1 = Nothing
Set fso = Nothing
End If

'=======================================================================================================================
'======================================================================================================================='
'=======================================================================================================================

If NomerEtapa = 4 Then
' ' ¥ÆÇÅ é«ßßΓá¡«ó½Ñ¡¿Ñ

m = 1
n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
'''''HMIRuntime.Trace "Å«ñßτ±Γ ¬«½-óá ßΓα«¬" & vbCrLf
 Do Until tf.AtEndOfStream
 Line1 = tf.ReadLine
 m = m + 1
Loop

tf.Close
Set tf = Nothing
Set fso = Nothing



Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
'''''HMIRuntime.Trace "æ«ºñá¡¿Ñ ¼áßß¿óá" & m & vbCrLf
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)
'''''HMIRuntime.Trace "Å«¿ß¬ í½«¬á é«ßßΓá¡«ó½Ñ¡¿Ñ" & vbCrLf
'=============================KISLOROD====================================
File1.WriteLine(0)
File1.WriteLine(n2+1)
File1.WriteLine(5)
File1.WriteLine("è¿ß½«α«ñ")
File1.WriteLine("        éαÑ¼∩")
File1.WriteLine("Å½áó¬á")
File1.WriteLine("ÅÑτ∞")
File1.WriteLine("éá¡¡á")
File1.WriteLine("ï±Γ¬á")
For m2 = 0 To (UBound(arrKislorod)-1)
File1.WriteLine("         " & Taim_shas(arrKislorod(m2,1)))
File1.WriteLine(" " & arrKislorod(m2,5) & " ")
File1.WriteLine(arrKislorod(m2,2))
File1.WriteLine(arrKislorod(m2,3))
File1.WriteLine(arrKislorod(m2,4))
Next
File1.WriteLine("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteBlankLines(3)
File1.WriteLine (Taim_shas(Now))
' '===========================================================================
'
'=============================XIMIYA====================================
File1.WriteLine(0)
File1.WriteLine(37)
File1.WriteLine(10)
File1.WriteLine("ò¿¼¿∩")
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")

For m2 = (UBound(arrLabXim)-34) To (UBound(arrLabXim)-1)
File1.WriteLine("   " & Taim_shas(arrLabXim(m2,1)))
File1.WriteLine(arrLabXim(m2,3))
File1.WriteLine(arrLabXim(m2,4))
File1.WriteLine(arrLabXim(m2,5))
File1.WriteLine(arrLabXim(m2,6))
File1.WriteLine(arrLabXim(m2,7))
File1.WriteLine(arrLabXim(m2,8))
File1.WriteLine(arrLabXim(m2,9))
File1.WriteLine(arrLabXim(m2,10))
File1.WriteLine(arrLabXim(m2,25))

Next
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")
File1.WriteLine("ÆÑ¬πΘÑÑ   óαÑ¼∩")
File1.WriteBlankLines(8)
File1.WriteLine (" " &Taim_shas(Now))
''===========================================================================

'=============================T_PECHI====================================
File1.WriteLine(0)
File1.WriteLine(36)
File1.WriteLine(3)
File1.WriteLine("ÆÑ¼»ÑαáΓπαá_»Ñτ¿")
File1.WriteLine("  éαÑ¼∩  ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" ÆÑ¼»ÑαáΓπαá ")

For m2 = (UBound(arrTPech)-34) To (UBound(arrTPech)-1)
File1.WriteLine("   " & Taim_shas(arrTPech(m2,3)))
File1.WriteLine(arrTPech(m2,2))
File1.WriteLine("        " & arrTPech(m2,1))

Next
File1.WriteLine ("   " &Taim_shas(Now))
File1.WriteBlankLines(1)
File1.WriteLine("     ÆÑ¬πΘÑÑ       óαÑ¼∩")
''===========================================================================

For n = 671 To (UBound(arr1)-1)
SText = arr1(n+3)
If InStr(1,SText,"é«ßßΓá¡«ó½Ñ¡¿Ñ Å½ⁿ") = 0 Then
If SText = "ÆÑ¬πΘÑÑ óαÑ¼∩" Then
arr1(n+3) = "éαÑ¼∩ «¬«¡τá¡¿∩ φΓá»á"
Else
If SText = "--:--" And Not arr1(n+1) = "îáßΓÑα" Then
T = DateAdd("n", -2, Now)
arr1(n+3) = Taim_Shas(T)
arr1(n+4) =DateDiff("n",arr1(n+2),arr1(n+3))
End If
End If
File1.WriteLine(arr1(n))
Else
'''''HMIRuntime.Trace "é«ßßΓá¡«ó½Ñ¡¿Ñ ¡á⌐ñÑ¡" & vbCrLf
Exit For
End If
Next

'=====================é«ßßΓá¡«ó½Ñ¡¿Ñ===================================

Strok4 =Strok4 + Master_Voss + 1

File1.WriteLine(0)
File1.WriteLine(Strok4)
File1.WriteLine("5")
File1.WriteLine("é«ßßΓá¡«ó½Ñ¡¿Ñ Å½ⁿ" & Left(NomerPlavki,2) & " 180/" & HMIRuntime.Tags("Taimer_etap_4").Read)

If Not HMIRuntime.Tags("Voss_Text_Start_1").Read = "" Then
File1.WriteLine("ä«ºáúαπº¬á »Ñτ¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_1").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_1").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_1").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_1").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_2").Read = "" Then
File1.WriteLine("çá¼áº¬á Φ½á¬«ó«ú« «¬¡á")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_2").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_2").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_2").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_2").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_3").Read = "" Then
File1.WriteLine("Åα«»½áó½Ñ¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_3").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_3").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_3").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_3").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_4").Read = "" Then
File1.WriteLine("ÅÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_4").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_4").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_4").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_4").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_5").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_5").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_5").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_5").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_5").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_6").Read = "" Then
File1.WriteLine("çá¼áº¬á ºáúαπº«τ¡«ú« «¬¡á")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_6").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_6").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_6").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_6").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_7").Read = "" Then
File1.WriteLine("âáº ó Σαπ¼δ ¿ »ÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_7").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_7").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_7").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_7").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_8").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_8").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_8").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_8").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_8").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_9").Read = "" Then
File1.WriteLine("çáúαπº¬á ßó¿¡µá »«αµ¿∩ ⁿ1")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_9").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_9").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_9").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_9").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_10").Read = "" Then
File1.WriteLine("âáº ó Σαπ¼δ ¿ »ÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_10").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_10").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_10").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_10").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_11").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_11").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_11").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_11").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_11").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_12").Read = "" Then
File1.WriteLine("çáúαπº¬á ßó¿¡µá »«αµ¿∩ ⁿ2")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_12").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_12").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_12").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_12").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_13").Read = "" Then
File1.WriteLine("âáº ó Σαπ¼δ ¿ »ÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_13").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_13").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_13").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_13").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_14").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_14").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_14").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_14").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_14").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_15").Read = "" Then
File1.WriteLine("çáúαπº¬á ßó¿¡µá »«αµ¿∩ ⁿ3")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_15").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_15").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_15").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_15").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_16").Read = "" Then
File1.WriteLine("âáº ó Σαπ¼δ ¿ »ÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_16").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_16").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_16").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_16").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_17").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_17").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_17").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_17").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_17").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_18").Read = "" Then
File1.WriteLine("âáº ó Σαπ¼δ ¿ »ÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_18").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_18").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_18").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_18").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_19").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_19").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_19").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_19").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_19").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_20").Read = "" Then
File1.WriteLine("âáº ó Σαπ¼δ ¿ »ÑαÑ¼ÑΦ¿óá¡¿Ñ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_20").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_20").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_20").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_20").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_21").Read = "" Then
File1.WriteLine("Åα«íá ¿ ºá¼Ñα ΓÑ¼»ÑαáΓπαδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_21").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_21").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_21").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_21").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_25").Read = "" Then
File1.WriteLine("Äσ½áªñÑ¡¿Ñ αáß»½áóá »Ñτ¿")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_25").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_25").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_25").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_25").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_22").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_22").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_22").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_22").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_22").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_23").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_23").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_23").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_23").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_23").Read)
End If

If Not HMIRuntime.Tags("Voss_Text_Start_24").Read = "" Then
File1.WriteLine("ä«»«½¡¿ΓÑ½∞¡δÑ αáí«Γδ")
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Start_24").Read)
File1.WriteLine Taim_shas(HMIRuntime.Tags("Voss_Text_Stop_24").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_Text_Fakt_24").Read)
File1.WriteLine(HMIRuntime.Tags("Voss_I/O_Prichina_24").Read)
End If

'==============================îÇæÆàÉ=============================================
Sigment1 = 1
Sigment2 = 1

For m = (UBound(arrMaster)-25) To (UBound(arrMaster)-1)

If arrMaster(m,2) = NomerPlavki Then

StartMaster = arrMaster(m,1)
Sigment1 = DateDiff("n",StartMaster,StartVoss)

If Not m = (UBound(arrMaster)-1) Then
StopMaster = arrMaster(m+1,1)
Sigment2 = DateDiff("n",StopMaster,StartVoss)
Else
StopMaster = "--:--"
Sigment2 = -1
End if

If Sigment1 <= 0 Or Sigment2 <= 0 Then
File1.WriteLine("îáßΓÑα")
File1.WriteLine(Taim_shas (StartMaster))
File1.WriteLine(Taim_shas (StopMaster))
File1.WriteBlankLines (1)
File1.WriteLine(arrMaster(m,4))

End If
End If
Next

'=====================================================================================

File1.WriteLine ("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteLine (Taim_shas(Now))
File1.WriteBlankLines (2)
File1.Write (Left(Now,10))

File1.Close
Set File1 = Nothing
Set fso = Nothing
End If

End If

'==================================================================================================================================
'==================================================================================================================================
'===========================================æîàìÇ ¥ÆÇÅÇ============================================================================
'==================================================================================================================================

If LastEtap = True Then

If NomerEtapa = 5 Then
'===================================== ¥ÆÇÅ ï¿Γ∞±

m = 1
n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
 Do Until tf.AtEndOfStream
 Line1 = tf.ReadLine
 m = m + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)

'=============================KISLOROD====================================
File1.WriteLine(0)
File1.WriteLine(n2+1)
File1.WriteLine(5)
File1.WriteLine("è¿ß½«α«ñ")
File1.WriteLine("        éαÑ¼∩")
File1.WriteLine("Å½áó¬á")
File1.WriteLine("ÅÑτ∞")
File1.WriteLine("éá¡¡á")
File1.WriteLine("ï±Γ¬á")
For m2 = 0 To (UBound(arrKislorod)-1)
File1.WriteLine("         " & Taim_shas(arrKislorod(m2,1)))
File1.WriteLine(" " & arrKislorod(m2,5) & " ")
File1.WriteLine(arrKislorod(m2,2))
File1.WriteLine(arrKislorod(m2,3))
File1.WriteLine(arrKislorod(m2,4))
Next
File1.WriteLine("ÆÑ¬πΘÑÑ óαÑ¼∩")
File1.WriteBlankLines(3)
File1.WriteLine (Taim_shas(Now))
' '===========================================================================
'
'=============================XIMIYA====================================
File1.WriteLine(0)
File1.WriteLine(37)
File1.WriteLine(10)
File1.WriteLine("ò¿¼¿∩")
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")

For m2 = (UBound(arrLabXim)-34) To (UBound(arrLabXim)-1)
File1.WriteLine("   " & Taim_shas(arrLabXim(m2,1)))
File1.WriteLine(arrLabXim(m2,3))
File1.WriteLine(arrLabXim(m2,4))
File1.WriteLine(arrLabXim(m2,5))
File1.WriteLine(arrLabXim(m2,6))
File1.WriteLine(arrLabXim(m2,7))
File1.WriteLine(arrLabXim(m2,8))
File1.WriteLine(arrLabXim(m2,9))
File1.WriteLine(arrLabXim(m2,10))
File1.WriteLine(arrLabXim(m2,25))

Next
File1.WriteLine("  éαÑ¼∩")
File1.WriteLine(" îÑßΓ« «Γí«αá ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" û¿¡¬ ")
File1.WriteLine(" åÑ½Ñº« ")
File1.WriteLine(" ì¿¬Ñ½∞ ")
File1.WriteLine(" Ä½«ó« ")
File1.WriteLine(" æó¿¡Ñµ ")
File1.WriteLine(" æπα∞¼á ")
File1.WriteLine("  îÑñ∞")
File1.WriteLine("ÆÑ¬πΘÑÑ   óαÑ¼∩")
File1.WriteBlankLines(8)
File1.WriteLine (" " &Taim_shas(Now))
''===========================================================================

'=============================T_PECHI====================================
File1.WriteLine(0)
File1.WriteLine(36)
File1.WriteLine(3)
File1.WriteLine("ÆÑ¼»ÑαáΓπαá_»Ñτ¿")
File1.WriteLine("  éαÑ¼∩  ")
File1.WriteLine(" Å½áó¬á ")
File1.WriteLine(" ÆÑ¼»ÑαáΓπαá ")

For m2 = (UBound(arrTPech)-34) To (UBound(arrTPech)-1)
File1.WriteLine("   " & Taim_shas(arrTPech(m2,3)))
File1.WriteLine(arrTPech(m2,2))
File1.WriteLine("        " & arrTPech(m2,1))

Next
File1.WriteLine ("   " &Taim_shas(Now))
File1.WriteBlankLines(1)
File1.WriteLine("     ÆÑ¬πΘÑÑ       óαÑ¼∩")
''===========================================================================

For n = 671 To (UBound(arr1)-1)
If Etap = False Then
SText = arr1(n+3)
Else
SText = arr1(n)
End If
If InStr(1,SText,"ï¿Γ∞± Å½ⁿ") = 0 Then
File1.WriteLine(arr1(n))
Else
k1 = arr1(n+2)*arr1(n+1)+3
n = n + k1
Etap = True
End If
Next

'=====================ïêÆ£≡============================================

File1.WriteLine(0)
File1.WriteLine(1)
File1.WriteLine("5")
File1.WriteLine("ï¿Γ∞± Å½ⁿ" & Left(NomerPlavki,2) & " 660/" & HMIRuntime.Tags("Taimer_etap_5").Read)
File1.WriteLine("ìÇùÇïÄ ¥ÆÇÅÇ")
File1.WriteBlankLines(4)

File1.Close
Set File1 = Nothing
Set fso = Nothing

End If

'=======================================================================================================================
'======================================================================================================================='
'=======================================================================================================================

If NomerEtapa = 1 Then
' ' ¥ÆÇÅ Å«ñú«Γ«ó¬á
'''''HMIRuntime.Trace "¥ÆÇÅ »«ñú«Γ«ó¬á " & Now & vbCrLf


 m = 1
 n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Do Until tf.AtEndOfStream
Line1 = tf.ReadLine
m = m + 1
Loop

tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)
For n = 1 To (UBound(arr1)-1)
If Etap = False Then
SText = arr1(n+3)
Else
SText = arr1(n)
End If
If InStr(1,SText,"Å«ñú«Γ«ó¬á Å½ⁿ") = 0 Then
File1.WriteLine(arr1(n))
Else
k1 = arr1(n+2)*arr1(n+1)+3
n = n + k1
Etap = True
End If
Next

'=====================================ÅÄäâÄÆÄéèÇ===========================================================================
File1.WriteLine(0)
File1.WriteLine(1)
File1.WriteLine(5)
File1.WriteLine("Å«ñú«Γ«ó¬á Å½ⁿ" & Left(NomerPlavki,2) & " 50/" & HMIRuntime.Tags("Taimer_etap_1").Read)
File1.WriteLine("ìÇùÇïÄ ¥ÆÇÅÇ")
File1.WriteBlankLines (4)
File1.Close
Set File1 = Nothing
Set fso = Nothing
End If
''=====================================================================================================================
'====================================================================================================================='=======
'''==================================================================================================================

If NomerEtapa = 2 Then
' ¥ÆÇÅ çÇâÉôçèÇ


 m = 1
 n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Do Until tf.AtEndOfStream
Line1 = tf.ReadLine
m = m + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Redim arr1(m)

Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)
'
For n = 1 To (UBound(arr1)-1)
If Etap = False Then '¡Ñ ¡á⌐ñÑ¡
SText = arr1(n+3)
Else
SText = arr1(n)
End If
If InStr(1,SText,"çáúαπº¬á Å½ⁿ") = 0 Then
File1.WriteLine(arr1(n))
Else
k1 = arr1(n+2)*arr1(n+1)+3
n = n + k1
Etap = True '¡á⌐ñÑ¡
End If
Next

'======================çÇâÉôçèÇ========================================
File1.WriteLine(0)
File1.WriteLine(1)
File1.WriteLine(2)
File1.WriteLine("çáúαπº¬á Å½ⁿ" & Left(NomerPlavki,2) & " 400/" & HMIRuntime.Tags("Taimer_etap_2").Read)

File1.WriteLine("ìÇùÇïÄ ¥ÆÇÅÇ")
File1.Write(" ")

'
File1.Close
Set File1 = Nothing
Set fso = Nothing
End If
'=======================================================================================================================
'======================================================================================================================='
'=======================================================================================================================

If NomerEtapa = 3 Then
' ' ¥ÆÇÅ ÉáΣ¿¡¿α«óá¡¿Ñ


   m = 1
   n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Do Until tf.AtEndOfStream
Line1 = tf.ReadLine
m = m + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)
For n = 1 To (UBound(arr1)-1)
If Etap = False Then
SText = arr1(n+3)
Else
SText = arr1(n)
End If
If InStr(1,SText,"ÉáΣ¿¡¿α«óá¡¿Ñ Å½ⁿ") = 0 Then
File1.WriteLine(arr1(n))
Else
k1 = arr1(n+2)*arr1(n+1)+3
n = n + k1
Etap = True
End If
Next

'=====================ÉáΣ¿¡¿α«óá¡¿Ñ====================================

File1.WriteLine(0)
File1.WriteLine(1)
File1.WriteLine(5)
File1.WriteLine("ÉáΣ¿¡¿α«óá¡¿Ñ Å½ⁿ" & Left(NomerPlavki,2) & " 85/" & HMIRuntime.Tags("Taimer_etap_3").Read)
File1.WriteLine("ìÇùÇïÄ ¥ÆÇÅÇ")
File1.WriteBlankLines (4)

File1.Close
Set File1 = Nothing
Set fso = Nothing
End If

'=======================================================================================================================
'======================================================================================================================='
'=======================================================================================================================

If NomerEtapa = 4 Then
' ' ¥ÆÇÅ é«ßßΓá¡«ó½Ñ¡¿Ñ
m = 1
n = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Do Until tf.AtEndOfStream
Line1 = tf.ReadLine
m = m + 1
Loop

tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(File,1,-2)
Redim arr1(m)
Do Until tf.AtEndOfStream
arr1(n) = tf.ReadLine
n = n + 1
Loop
tf.Close
Set tf = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(File,2,-2)

For n = 1 To (UBound(arr1)-1)
If Etap = False Then
SText = arr1(n+3)
Else
SText = arr1(n)
End If
If InStr(1,SText,"é«ßßΓá¡«ó½Ñ¡¿Ñ Å½ⁿ") = 0 Then
File1.WriteLine(arr1(n))
Else
k1 = arr1(n+2)*arr1(n+1)+3
n = n + k1
Etap = True
End If
Next

'=======================================================================é«ßßΓá¡«ó½Ñ¡¿Ñ===================================

File1.WriteLine(0)
File1.WriteLine(1)
File1.WriteLine("5")
File1.WriteLine("é«ßßΓá¡«ó½Ñ¡¿Ñ Å½ⁿ" & Left(NomerPlavki,2) & " 180/" & HMIRuntime.Tags("Taimer_etap_4").Read)
File1.WriteLine("ìÇùÇïÄ ¥ÆÇÅÇ")
File1.WriteBlankLines (4)

File1.Close
Set File1 = Nothing
Set fso = Nothing
End If
End If
' HMIRuntime.Trace "æ¬α¿»Γ Input_txt stop " & vbCrLf

6akJIAH

Меню навигации

Пользовательские ссылки

Информация о пользователе

VBScript

Сообщений 31 страница 33 из 33

Поделиться31Вторник, 11 июня, 2013г. 06:34:46

Поделиться32Вторник, 11 июня, 2013г. 06:36:42

Поделиться33Вторник, 11 июня, 2013г. 06:41:33