Что нового

Переход на участок кода по результатам проверки

joparezzz

Новичок
Сообщения
65
Репутация
0
Есть кусок кода:
Код:
For $q = 1 to 3
	_Run($hWnd)
	_MatterToCuttingLine(1000)
	_Part(1000)
	_Rezult(1000)
	_Preview(1000)
	_Export(1000)
	_ExportHTML(1000)
	_HTMLSave(1000)
	_HTMLArray(1000)
	If $q = 1 then $text1 = _ArrayToString($aCol)
	If $q = 2 then $text2 = _ArrayToString($aCol)
	If $q = 3 then $text3 = _ArrayToString($aCol)
Next

$iResult12 = StringCompare($text1, $text2)
$iResult23 = StringCompare($text2, $text3)
If $iResult12 = 0 And $iResult23 = 0 then
	_ArrayDisplay($aCol)
Else
	MsgBox(0, "Результаты не совпадают", $text1 & @CRlF & @CRlF & $text2 & @CRlF & @CRlF & $text3)
EndIf


Как реализовать переход по аналогии с goto на языке бейсик по результатам проверки результата:

Код:
1:
For $q = 1 to 3
	_Run($hWnd)
	_MatterToCuttingLine(1000)
	_Part(1000)
	_Rezult(1000)
	_Preview(1000)
	_Export(1000)
	_ExportHTML(1000)
	_HTMLSave(1000)
	_HTMLArray(1000)
	If $q = 1 then $text1 = _ArrayToString($aCol)
	If $q = 2 then $text2 = _ArrayToString($aCol)
	If $q = 3 then $text3 = _ArrayToString($aCol)
Next

$iResult12 = StringCompare($text1, $text2)
$iResult23 = StringCompare($text2, $text3)
If $iResult12 = 0 And $iResult23 = 0 then
	goto 2
Else
	goto 1
EndIf
2:
 

gunter123

Продвинутый
Сообщения
159
Репутация
69
Как-то так:
Код:
_Go()
Func _Go()
   For $q = 1 to 3
	   _Run($hWnd)
	   _MatterToCuttingLine(1000)
	   _Part(1000)
	   _Rezult(1000)
	   _Preview(1000)
	   _Export(1000)
	   _ExportHTML(1000)
	   _HTMLSave(1000)
	   _HTMLArray(1000)
	   If $q = 1 then $text1 = _ArrayToString($aCol)
	   If $q = 2 then $text2 = _ArrayToString($aCol)
	   If $q = 3 then $text3 = _ArrayToString($aCol)
   Next

   $iResult12 = StringCompare($text1, $text2)
   $iResult23 = StringCompare($text2, $text3)
   If NOT ($iResult12 = 0 And $iResult23 = 0) then
	  _Go()
   EndIf
EndFunc
 
Верх