VBScript

mybb@mybb.ru (X1) — Tue, 11 Jun 2013 06:41:33 +0400

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

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

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

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

Jawa

��

6akJIAH

VBScript

Jawa

�������� ���������

��