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

[id.balandin]

Есть класс Edit. В нем есть некий текст (символы, цифры, буквы). Нужно найти в этом тексте выражение, начинающееся с "O=<текст>,". Пример:
"L=Екатеринбург, [email protected], T=892*****, N=Иванов Василий Иннокентьевич, O=ОАО 'Сити Сервис', S=66"
Фразу ОАО 'Сити Сервис' из этого текста нужно поместить в буфер обмена, чтобы далее вставить в определенное место.

Форум огромный. Сам не нашел. Да и в АутоИТе всего лишь месяц работаю.

 

[WSWR]

id.balandin
Так?

#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)

 

[id.balandin]

WSWR

Запустил, работает.

Но есть такой момент - строки будут с разными значениями/данными. И нужно "выдергивать" определенный фрагмент, начинающийся с O=
Тут как быть?

 

[CreatoR]

id.balandin [?]

строки будут с разными значениями/данными. И нужно "выдергивать" определенный фрагмент, начинающийся с O=

Пример выше для этого и написан.

 

[id.balandin]

Не понял. Какой пример выше?

Я вставляю код. Запускаю и он в конечном итоге выдает ОАО Сити Сервис.
Ну т.е. названия юр.лиц и остальные данные ВСЕГДА будут разные...

 

[CreatoR]

id.balandin [?]

Я вставляю код. Запускаю и он в конечном итоге выдает ОАО Сити Сервис.

Это пример, это не значит что нужно его использовать прямо в том виде в котором он выложен.
Там переменная $sText жёстко задана, подставь под неё то что нужно (считывается с элементов, файлов и т.д.).

 

[id.balandin]

Делаю так:

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

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

не получается...Не понял.

 

[joiner]

может стоит использовать класс

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

так работает


Добавлено:

Сообщение автоматически объединено: 1 Янв 2013

можно решить так

#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)

Добавлено:

Сообщение автоматически объединено: 1 Янв 2013

с выведением в буфер нескольких значений построчно

#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)

 

[id.balandin]

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

Я уже запутался - нужно ли мне копировать в буфер обмена (CTRL C)?
И как я могу ВСТАВИТЬ найденный текст:

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

 

[joiner]

ты же итак считываешь текст из открытого блокнота
вот так

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

либо если текст в обычном файле ТХТ, то функцией

FileRead

 

[id.balandin]

Разобрался!
Логическая схема будет такая:
1. Копируем текст (помещаем в б/о) из поля Edit2.
2. Открываем блокнот и вставляем сей текст
3. Находим нужную часть текста.
4. Открываем блокнот и вставляем уже нужную часть текста.

Проблема на шаге "4" - блокнот открылся, а нужный текст не вставляется.

С помощью -

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

не получается

 

[joiner]

если текст именно в системном блокноте, то класс блокнота именно
[Class:Notepad]
а поле ввода
Edit1
а значит будет так как я писал выше

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

а не Class:Edit

то есть так

#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)

либо вместо [class:Notepad] точный заголовок окна блокнота. к примеру -

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

 

[id.balandin]

При помещении текста в б/о (нажимая CTRL+C) можно работать с системным блокнотом?
Т.е. не обязательно его открывать?
Уже путаюсь...

П.С.: Изначально текст берется не из блокнота!

 

[joiner]

я уже сам запутался что тебе нужно ;D
как я понял - есть блокнот с текстом. из него нужно вытащить нужные значения. либо считыванием из открытого окна блокнота либо считыванием из текстового файла напрямую. найти нужный текст и передать его в буфер обмена. если цель записать нужный текст в другой текстовый файл, то можно без буфера сразу записывать результат в файл
что точно нужно?


Добавлено:

Сообщение автоматически объединено: 1 Янв 2013

из какого файла берется текст? какое расширение файла?. в каком редакторе он открывается?

 

[id.balandin]

1. Текст берется не из файла/блокнота, а из окна программы КриптоПро
2. Помещаем в б/о нажатием CTRL+C.
(...вроде бы можно обработать текст в б/о...но может ошибаюсь, поэтому иду другим путем....)
3. Открываю блокнот. Вставляю (CTRL+V).
4. Ищу необходимую комбинацию (далее фраза).
...(найденный текст необходимо в дальнейшем вставить при сохранении файла (когда программа спрашивает под каким именем сохранить файл)
5. Удаляю всё из блокнота (или открываю новый). Вставляю фразу, выделяю её и копирую в б/о (CTRL+C).

Всё. Теперь в памяти есть необходимая фраза и уже в дальнейшем в необходимом месте я её вставляю

П,С,: Вот он наш "гвоздь" программы:

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)

Фразу просто нужно скопировать в б/о. В этом и есть, мой детский вопрос)))

 

[joiner]

зачем блокнот. раз текст уже в буфере обмена. значит берем оттуда

#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

 

[id.balandin]

Я новичок и для меня это сложно:

#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)

Я потом как выдерну строку с названием организации и вставлю её командой CTRL+V?

 

[joiner]

id.balandin [?]

IsArray($array)

это проверка на существование массива. чтобы скрипт не вывалился с ошибкой.

Я потом как выдерну строку с названием организации и вставлю её командой CTRL+V?

в моем последнем скрипте исходный текст берется из буфера обмена, делается в нем поиск нужных фраз и эти фразы записываются в блокнот. если они тебе нужно в буфере обмена, то вместо

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

но при множестве найденных фраз в буфере останется только последняя