Поиск нужного текста

#include <Array.au3>
$sText= ControlGetText('Untitled - Notepad', '', 'Edit1')

$sText="L=Екатеринбург, [email protected], T=892*****, N=Иванов Василий Иннокентьевич, O=ОАО 'Сити Сервис', S=66"
$aString = StringRegExp($sText, ", O=(.*),", 3)
If UBound($aString) > 0 Then ClipPut ($aString[0]) 
_ArrayDisplay($aString)

$sText= ControlGetText('Untitled - Notepad', '', 'Edit1')

$aString = StringRegExp($sText, ", O=(.*),", 3)
If UBound($aString) > 0 Then ClipPut ($aString[0]) 
_ArrayDisplay($aString)

#include <Array.au3>
$sText= ControlGetText('[class:Notepad]', '', 'Edit1') ;используем класс
$aString = StringRegExp($sText, ", O=(.*),", 3)
If UBound($aString) > 0 Then ClipPut ($aString[0])
_ArrayDisplay($aString)

#include <Array.au3>
#include <String.au3>
$sText="L=Екатеринбург, [email protected], T=892*****, N=Иванов Василий Иннокентьевич, O=ОАО 'Сити Сервис', O=ЗАО 'qwerty', S=66"
$aString =_StringBetween($sText,"O=","',")
If UBound($aString) > 0 Then ClipPut ($aString[0])
_ArrayDisplay($aString)

#include <Array.au3>
#include <String.au3>
$sText = "L=Екатеринбург, [email protected], T=892*****, N=Иванов Василий Иннокентьевич, O=ОАО 'Сити Сервис', O=ЗАО 'qwerty', S=66"
$array = _StringBetween($sText, "O=", "',")
If UBound($array) > 0 Then
	$string = _ArrayToString($array, @CRLF)
	ClipPut($string)
	MsgBox(0, '', ClipGet())
EndIf
_ArrayDisplay($array)

Send("{TAB 4}") ;переходим в нужную строку ( Класс EDIT, поле Edit2 (!))
Sleep (1000)
Send("^{C}")

$sText= ControlGetText('[class:Edit]', ' ', 'Edit2')

$aString = StringRegExp($sText, ", O=(.*)", 3)
If UBound($aString) > 0 Then ClipPut ($aString[0]) 
_ArrayDisplay($aString, "test")


Exit

$aString = StringRegExp($sText, ", O=(.*)", 3)

$sText= ControlGetText('[class:Notepad]', '', 'Edit1')

FileRead

$aString = StringRegExp($sText, ", O=(.*)", 3)

$sText= ControlGetText('[class:Notepad]', '', 'Edit1')

#include <Array.au3>
#include <String.au3>
$sText= ControlGetText('[class:Notepad]', '', 'Edit1')
$array = _StringBetween($sText, "O=", "',")
If IsArray($array) Then
    $string = _ArrayToString($array, @CRLF)
    ClipPut($string)
    MsgBox(0, '', ClipGet())
EndIf
_ArrayDisplay($array)

$sText= ControlGetText('1 — Блокнот', '', 'Edit1')

Send("{TAB 4}")
Sleep (1000)
Send("^{C}") ; поместили в буфер обмена ВЕСЬ текст

Run("Notepad.exe")
WinWaitActive('[class:Notepad]', '', 'Edit1')
Send("^{V}")

$sText= ControlGetText('[class:Notepad]', '', 'Edit1')
$array = _StringBetween($sText, "O=", ", OID") ; Нашли необходимую фразу

If IsArray($array) Then
  $string = _ArrayToString($array, @CRLF)
  ClipPut($string)
  MsgBox(0, '', ClipGet())
EndIf
_ArrayDisplay($array)

#include <Array.au3>
#include <String.au3>
$sText= ClipGet()
$array = _StringBetween($sText, "O=", "',")
If IsArray($array) Then
    $string = _ArrayToString($array, @CRLF)
	FileWriteLine('1.txt',$string)
EndIf

#include <Array.au3>
#include <String.au3>
$sText= ClipGet()
$array = _StringBetween($sText, "O=", "',")
If IsArray($array) Then
    $string = _ArrayToString($array, @CRLF)
    FileWriteLine('1.txt',$string)
EndIf

If IsArray($array) Then
    $string = _ArrayToString($array, @CRLF)
    FileWriteLine('1.txt',$string)

FileWriteLine('1.txt',$string)

ClipPut($string)

$string = _ArrayToString($array, @CRLF)

#include <Array.au3>
#include <String.au3>
$sText= ClipGet()
$array = _StringBetween($sText, "O=", "',")
If IsArray($array) Then
For $i = 0 To UBound($array) - 1
	ClipPut($array[$i])
	Next
EndIf