- Сообщения
- 36
- Репутация
- -1
Привет. Нужно автоматизировать 1с предприятие 7.7. Скрипт должен искать пробелы в нужных строках. Но почему то он их не находит. Пробовал разные варианты в т.ч. с StringIsSpace, но ничего не находит все равно. Если икать через 1с, тогда работает. Подскажите в чём проблема.
Код:
Local $R, $C, $cell
WinActivate("[CLASS:Afx:400000:0:0:0:3c100d3]")
For $R = 8 To 32
ControlClick("[CLASS:Afx:400000:0:0:0:3c100d3]", "", "[CLASS:Edit; INSTANCE:3]")
ControlCommand("[CLASS:Afx:400000:0:0:0:3c100d3]", "", "[CLASS:Edit; INSTANCE:3]", "EditPaste", 'R'& $R &'C4')
Send("{ENTER}")
$cell = ControlCommand("[CLASS:Afx:400000:0:0:0:3c100d3]", "", "[CLASS:AfxWnd42; INSTANCE:4]", "FindString", ' ')
If StringRegExp("\s", "$cell") = 1 Then
MsgBox(4096, "", "найдено")
EndIf
Next