Что нового

Разделить Текст

HelpMe

Новичок
Сообщения
85
Репутация
3
Есть переменная
$XX = ClipGet()
$XX = "Фамилия: ИВАНОВ, Имя: Сергей, Отчество: Юрьевич."
И чтобы имело это все следующий вид:
$F = ИВАНОВ
$I = Сергей
$O = Юрьевич
Задача облегчена тем что нужные данные имеют начало <Фамилия: >$F<, Имя: ><, Имя: >$I<, Отчество:>$O<.>
Текст между <Фамилия: ><, Имя: > превратить в переменную? как? Помогите разобраться...
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
HelpMe
Попробуйте так:
Код:
$sString = 'Фамилия:ИВАНОВ, Имя:  Сергей, Отчество:    Юрьевич.'

$sF = StringRegExpReplace($sString, '(?s).*?\QФамилия:\E\s*(.*?)(,|\.).*', '\1')
$sI = StringRegExpReplace($sString, '(?s).*?\QИмя:\E\s*(.*?)(,|\.).*', '\1')
$sO = StringRegExpReplace($sString, '(?s).*?\QОтчество:\E\s*(.*?)(,|\.).*', '\1')

MsgBox(0, '', $sF & @LF & $sI & @LF & $sO)

Или так:
Код:
$sString = 'Фамилия:ИВАНОВ, Имя:  Сергей, Отчество:    Юрьевич.'

$aString = StringRegExp($sString, ':\s*(.*?)(?:,|\.)', 3)
If IsArray($aString) And UBound($aString) = 3 Then
	$sF = $aString[0]
	$sI = $aString[1]
	$sO = $aString[2]
	MsgBox(0, '', $sF & @LF & $sI & @LF & $sO)
EndIf
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Код:
#include <array.au3>
$s = 'Фамилия:ИВАНОВ, Имя:  Сергей, Отчество:    Юрьевич.'
$pat = 'Фамилия:\s*(.+),\s*Имя:\s*(.+),\s*Отчество:\s*(.+)\.'
$a = StringRegExp($s, $pat, 1)
$F = $a[0]
$I = $a[1]
$O = $a[2]
;_ArrayDisplay($a)
MsgBox(64, 'ФИО', $F & ' ' & $I & ' ' & $O)
 
Автор
H

HelpMe

Новичок
Сообщения
85
Репутация
3
Код:
$sI = StringRegExpReplace($sString, '(?s).*?\QИмя:\E\s*(.*?)(,|\.).*', '\1')


Не понятно как задалось что именно до <, Отчество:> надо брать промежуток...


Добавлено:
Сообщение автоматически объединено:

:wall_brake:
 

gregaz

AutoIT Гуру
Сообщения
1 166
Репутация
299
Еще вариант :
Код:
$s = 'Фамилия:ИВАНОВ, Имя:  Сергей, Отчество:    Юрьевич.'

$sPattern="[А-Яа-я\w]+"

$a = StringRegExp($s, $sPattern,3)
$F = $a[1]
$I = $a[3]
$O = $a[5]
MsgBox(64, 'ФИО', $F & ' ' & $I & ' ' & $O)
 
Автор
H

HelpMe

Новичок
Сообщения
85
Репутация
3
Дайте пожалуйста еще пример - для наглядности...
$txt = фывафыаыуцйкцукфыовардлорсмядлопфщшуцнкщшгпамшщнысвщнфпрщагшрвуазхшавфизщшращыфшпнфкушщпрщыфвшгразщыфвгшзшщоячсдормдфгращшгвынщшгясчщшмгнщшгйцупшщнпафывшщгпащшгярчсмщшгпрфцузгщрфзмгыснрмзгфцушграывф
Код:
$F1 = йкцукфыова ;Начало "фыаыуц", конец "рдлорсмяд"
$F2 = кщшгпам ; Начало: "фщшуцн"  до "шщнысвщн"
$F3 = гразщыфвгшзшщоячсдорм ;
$...


до и после "$F" - четыре символа можно считать константой...
помогите - очень надо...


Добавлено:
Сообщение автоматически объединено:

HelpMe сказал(а):
Есть переменная
$XX = ClipGet()
$XX = "Фамилия: ИВАНОВ, Имя: Сергей, Отчество: Юрьевич."
И чтобы имело это все следующий вид:
$F = ИВАНОВ
$I = Сергей
$O = Юрьевич
Задача облегчена тем что нужные данные имеют начало <Фамилия: >$F<, Имя: ><, Имя: >$I<, Отчество:>$O<.>
Текст между <Фамилия: ><, Имя: > превратить в переменную? как? Помогите разобраться...
Это всего лишь пример... :-[
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
HelpMe [?]
Не понятно как задалось что именно до <, Отчество:> надо брать промежуток...
Сначала мы ищем первую группу (.*?), сразу перед которой должны быть \QИмя:\E и может быть или не быть пробел(пробелы)\s*.
(?s).*? отсекает все до \QИмя:\E, если есть. После первой группы мы ищем вторую (,|\.) в нее попадают или запятая, или точка. В конце .* означает, что дальше могут быть или не быть любые символы. В результат выводим только первую группу "\1". Если поменять на '\1\2', то в результате будут выведены две группы.

Код:
$string = 'В этой строке мы будем искать слово между "мы " и " искать".'
$start = 'мы '
$end = ' искать'
$sPattern = '(?s).*?\Q' & $start & '\E(.*?)\Q' & $end & '\E.*'
;$sPattern = '(?s).*?' & $start & '(.*?)' & $end & '?.*'
$source = StringRegExpReplace($string, $sPattern, '\1')
MsgBox(0, 'Найдено:', $source)
 
Автор
H

HelpMe

Новичок
Сообщения
85
Репутация
3
Как удалить всё что до "аыуц" включая "аыуц" и всё что после "рдлорсм" включая "рдлорсм" - чтобы получить $F1 = (йкцукфыова)
 

gregaz

AutoIT Гуру
Сообщения
1 166
Репутация
299
Мне очень понравился такой универсальный вариант :
Вводишь $sFind и получаешь рез-т. : ( ни тебе пробелы указывать , ни ...)
Код:
$s = 'Фамилия:ИВАНОВ, Имя:  Сергей, Отчество:    Юрьевич.'

;$sFind="Фамилия"
;$sFind="Имя"
$sFind="Отчество"

$sPattern=".*" & $sFind & ".+?([А-Яа-я\w]+).*"
$sRezult=StringRegExpReplace($s, $sPattern, "\1",1)
MsgBox(64, $sFind, $sRezult)
 

gregaz

AutoIT Гуру
Сообщения
1 166
Репутация
299
HelpMe [?]
Как удалить всё что до "аыуц" включая "аыуц" и всё что после "рдлорсм" включая "рдлорсм" - чтобы получить $F1 = (йкцукфыова)
Код:
$sRezult=StringRegExpReplace($txt, ".+?аыуц(.+)рдлорсм.+", "\1",1)
MsgBox(64, "", $sRezult)
 
Автор
H

HelpMe

Новичок
Сообщения
85
Репутация
3
Спасибо всё работает... Можно еще пример...

:shok:fftop:

Код:
WinActivate("Microsoft Excel - ") ;Переходим В Microsoft Excel
Sleep(180)
Send("^{SPACE}") ;Выделяем строку на которой находится курсор
Sleep(180)
Send("^{INSERT}") ;Копируем
Sleep(333)
$DATA = ClipGet()
; $DATA = "Ячейка1	Ячейка2	Ячейка3	Ячейка4	Ячейка5	Ячейка6	Ячейка7	Ячейка8	Ячейка9	Ячейка10	Ячейка11	Ячейка12	Ячейка13	Ячейка14	Ячейка15	Ячейка16	Ячейка17	Ячейка18	Ячейка19	Ячейка20	Ячейка21	Ячейка22	Ячейка23	Ячейка24	Ячейка25	Ячейка26	Ячейка27	Ячейка28	Ячейка29	Ячейка30	Ячейка31	Ячейка32	Ячейка33	Ячейка34	Ячейка35	Ячейка36	Ячейка37	Ячейка38	Ячейка39	Ячейка40	Ячейка41	Ячейка42	Ячейка43	Ячейка44	Ячейка45	Ячейка46	Ячейка47	Ячейка48	Ячейка49	Ячейка50	Ячейка51	Ячейка52	Ячейка53	Ячейка54	Ячейка55	Ячейка56	Ячейка57	Ячейка58	Ячейка59	Ячейка60	Ячейка61	Ячейка62	Ячейка63	Ячейка64	Ячейка65	Ячейка66	Ячейка67	Ячейка68	Ячейка69	Ячейка70	Ячейка71	Ячейка72	Ячейка73	Ячейка74	Ячейка75	Ячейка76	Ячейка77	Ячейка78	Ячейка79	Ячейка80	Ячейка81	Ячейка82	Ячейка83	Ячейка84	Ячейка85	Ячейка86	Ячейка87	Ячейка88	Ячейка89	Ячейка90	Ячейка91	Ячейка92	Ячейка93	Ячейка94	Ячейка95	Ячейка96	Ячейка97	Ячейка98	Ячейка99	Ячейка100	Ячейка101	Ячейка102	Ячейка103	Ячейка104	Ячейка105	Ячейка106	Ячейка107	Ячейка108	Ячейка109	Ячейка110	Ячейка111	Ячейка112	Ячейка113	Ячейка114	Ячейка115	Ячейка116	Ячейка117	Ячейка118	Ячейка119	Ячейка120	Ячейка121	Ячейка122	Ячейка123	Ячейка124	Ячейка125	Ячейка126	Ячейка127	Ячейка128	Ячейка129	Ячейка130	Ячейка131	Ячейка132	Ячейка133	Ячейка134	Ячейка135	Ячейка136	Ячейка137	Ячейка138	Ячейка139	Ячейка140	Ячейка141	Ячейка142	Ячейка143	Ячейка144	Ячейка145	Ячейка146	Ячейка147	Ячейка148	Ячейка149	Ячейка150	Ячейка151	Ячейка152	Ячейка153	Ячейка154	Ячейка155	Ячейка156	Ячейка157	Ячейка158	Ячейка159	Ячейка160	Ячейка161	Ячейка162	Ячейка163	Ячейка164	Ячейка165	Ячейка166	Ячейка167	Ячейка168	Ячейка169	Ячейка170	Ячейка171	Ячейка172	Ячейка173	Ячейка174	Ячейка175	Ячейка176	Ячейка177	Ячейка178	Ячейка179	Ячейка180	Ячейка181	Ячейка182	Ячейка183	Ячейка184	Ячейка185	Ячейка186	Ячейка187	Ячейка188	Ячейка189	Ячейка190	Ячейка191	Ячейка192	Ячейка193	Ячейка194	Ячейка195	Ячейка196	Ячейка197	Ячейка198	Ячейка199	Ячейка200	Ячейка201	Ячейка202	Ячейка203	Ячейка204	Ячейка205	Ячейка206	Ячейка207	Ячейка208	Ячейка209	Ячейка210	Ячейка211	Ячейка212	Ячейка213	Ячейка214	Ячейка215	Ячейка216	Ячейка217	Ячейка218	Ячейка219	Ячейка220	Ячейка221	Ячейка222	Ячейка223	Ячейка224	Ячейка225	Ячейка226	Ячейка227	Ячейка228	Ячейка229	Ячейка230	Ячейка231	Ячейка232	Ячейка233	Ячейка234	Ячейка235	Ячейка236	Ячейка237	Ячейка238	Ячейка239	Ячейка240	Ячейка241	Ячейка242	Ячейка243	Ячейка244	Ячейка245	Ячейка246	Ячейка247	Ячейка248	Ячейка249	Ячейка250	Ячейка251	Ячейка252	Ячейка253	Ячейка254	Ячейка255	Ячейка256"
$Excel1 = "Ячейка1" ; тут должны быть формулы :) 
$Excel2 = {XXXXXXXXXXXXXX} ; Как тут быть?
$Excel3 = {XXXXXXXXXXXXXX} ; Как тут быть?
$Excel.. =

:Beta:
как можно изъять данные всей строки? :read_this: данные имеют разделитель ^t очень бы хотелось еще посмотреть на другой способ... :scratch:
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Пример + для наглядности файл 111.xls (в файле 14 столбцов, 5 строк)
Код:
#include <Excel.au3>
#include <Array.au3>

$FilePath = @ScriptDir & "\111.xls" ;файл 111.xls" должен находиться в одной папке со скриптом
$oExcel = _ExcelBookOpen($FilePath, 0) ; открыть файл Excel (второй параметр 0 - не показывать Excel)

If @error = 1 Then
    MsgBox(16, "Ошибка!", "Невозможно создать объект Excel")
    Exit
ElseIf @error = 2 Then
    MsgBox(16, "Ошибка!", "Файл " & $FilePath & " не существует")
    Exit
EndIf

For $i = 1 To 14 ; с первого столбца по 14
$aArray = _ExcelReadArray($oExcel, 1, $i, 5, 1) ;Direction is Vertical (столбец за столбцом)
_ArrayDisplay($aArray, "Vertical")
Next

For $i = 1 To 5 ; с первой строки по 5
$aArray = _ExcelReadArray($oExcel, $i, 1, 14) ;Direction is Horizontal (построчно)
_ArrayDisplay($aArray, "Horizontal")
Next

_ExcelBookClose($oExcel)


AutoIt Help -> User Defined Function Reference -> Excel Management -> _ExcelReadArray
 
Автор
H

HelpMe

Новичок
Сообщения
85
Репутация
3
Yuriy сказал(а):
Пример + для наглядности файл 111.xls (в файле 14 столбцов, 5 строк)
Код:
#include <Excel.au3>
#include <Array.au3>

$FilePath = @ScriptDir & "\111.xls" ;файл 111.xls" должен находиться в одной папке со скриптом
$oExcel = _ExcelBookOpen($FilePath, 0) ; открыть файл Excel (второй параметр 0 - не показывать Excel)

If @error = 1 Then
    MsgBox(16, "Ошибка!", "Невозможно создать объект Excel")
    Exit
ElseIf @error = 2 Then
    MsgBox(16, "Ошибка!", "Файл " & $FilePath & " не существует")
    Exit
EndIf

For $i = 1 To 14 ; с первого столбца по 14
$aArray = _ExcelReadArray($oExcel, 1, $i, 5, 1) ;Direction is Vertical (столбец за столбцом)
_ArrayDisplay($aArray, "Vertical")
Next

For $i = 1 To 5 ; с первой строки по 5
$aArray = _ExcelReadArray($oExcel, $i, 1, 14) ;Direction is Horizontal (построчно)
_ArrayDisplay($aArray, "Horizontal")
Next

_ExcelBookClose($oExcel)


AutoIt Help -> User Defined Function Reference -> Excel Management -> _ExcelReadArray
:reading_book: Как всё сложно :wall_brake:
Мой вариант Упдэйту не подлежит?
Ячейка1 Ячейка2 Ячейка3 Ячейка4 Ячейка5 - всё переменные :(((


Добавлено:
Сообщение автоматически объединено:

gregaz сказал(а):
HelpMe [?]
Как удалить всё что до "аыуц" включая "аыуц" и всё что после "рдлорсм" включая "рдлорсм" - чтобы получить $F1 = (йкцукфыова)
Код:
$sRezult=StringRegExpReplace($txt, ".+?аыуц(.+)рдлорсм.+", "\1",1)
MsgBox(64, "", $sRezult)
Ужос что происходит если между "аыуц" и "рдлорсм" - ничего нет :((( снова открываю тему... :scratch:


Добавлено:
Сообщение автоматически объединено:

По эскизу 10 ответа нет идей?
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Ячейка1 Ячейка2 Ячейка3 Ячейка4 Ячейка5 - всё переменные
Все в массиве находится.
Все в твоих руках.
Советую справку по AutoIt прочесть русскую для начала.
Все получится!
 

gregaz

AutoIT Гуру
Сообщения
1 166
Репутация
299
HelpMe [?]
Ужос что происходит если между "аыуц" и "рдлорсм" - ничего нет
Не ужас , а возвращается вся строка без замен ,
т.к., фрагмент , соответствующий шаблону не найден
Чуть измени шаблон : (заменено "+" на "*")
Код:
$sRezult=StringRegExpReplace($txt, ".*?аыуц(.*)рдлорсм.*", "\1",1)
If @extended=0 Then Return; Желательно добавить проверку для случаев отсутствия самих "аыуц" или "рдлорсм"
 
Автор
H

HelpMe

Новичок
Сообщения
85
Репутация
3
HelpMe сказал(а):
Спасибо всё работает... Можно еще пример...

:shok:fftop:

Код:
WinActivate("Microsoft Excel - ") ;Переходим В Microsoft Excel
Sleep(180)
Send("^{SPACE}") ;Выделяем строку на которой находится курсор
Sleep(180)
Send("^{INSERT}") ;Копируем
Sleep(333)
$DATA = ClipGet()
; $DATA = "Ячейка1	Ячейка2	Ячейка3	Ячейка4	Ячейка5	Ячейка6	Ячейка7	Ячейка8	Ячейка9	Ячейка10	Ячейка11	Ячейка12	Ячейка13	Ячейка14	Ячейка15	Ячейка16	Ячейка17	Ячейка18	Ячейка19	Ячейка20	Ячейка21	Ячейка22	Ячейка23	Ячейка24	Ячейка25	Ячейка26	Ячейка27	Ячейка28	Ячейка29	Ячейка30	Ячейка31	Ячейка32	Ячейка33	Ячейка34	Ячейка35	Ячейка36	Ячейка37	Ячейка38	Ячейка39	Ячейка40	Ячейка41	Ячейка42	Ячейка43	Ячейка44	Ячейка45	Ячейка46	Ячейка47	Ячейка48	Ячейка49	Ячейка50	Ячейка51	Ячейка52	Ячейка53	Ячейка54	Ячейка55	Ячейка56	Ячейка57	Ячейка58	Ячейка59	Ячейка60	Ячейка61	Ячейка62	Ячейка63	Ячейка64	Ячейка65	Ячейка66	Ячейка67	Ячейка68	Ячейка69	Ячейка70	Ячейка71	Ячейка72	Ячейка73	Ячейка74	Ячейка75	Ячейка76	Ячейка77	Ячейка78	Ячейка79	Ячейка80	Ячейка81	Ячейка82	Ячейка83	Ячейка84	Ячейка85	Ячейка86	Ячейка87	Ячейка88	Ячейка89	Ячейка90	Ячейка91	Ячейка92	Ячейка93	Ячейка94	Ячейка95	Ячейка96	Ячейка97	Ячейка98	Ячейка99	Ячейка100	Ячейка101	Ячейка102	Ячейка103	Ячейка104	Ячейка105	Ячейка106	Ячейка107	Ячейка108	Ячейка109	Ячейка110	Ячейка111	Ячейка112	Ячейка113	Ячейка114	Ячейка115	Ячейка116	Ячейка117	Ячейка118	Ячейка119	Ячейка120	Ячейка121	Ячейка122	Ячейка123	Ячейка124	Ячейка125	Ячейка126	Ячейка127	Ячейка128	Ячейка129	Ячейка130	Ячейка131	Ячейка132	Ячейка133	Ячейка134	Ячейка135	Ячейка136	Ячейка137	Ячейка138	Ячейка139	Ячейка140	Ячейка141	Ячейка142	Ячейка143	Ячейка144	Ячейка145	Ячейка146	Ячейка147	Ячейка148	Ячейка149	Ячейка150	Ячейка151	Ячейка152	Ячейка153	Ячейка154	Ячейка155	Ячейка156	Ячейка157	Ячейка158	Ячейка159	Ячейка160	Ячейка161	Ячейка162	Ячейка163	Ячейка164	Ячейка165	Ячейка166	Ячейка167	Ячейка168	Ячейка169	Ячейка170	Ячейка171	Ячейка172	Ячейка173	Ячейка174	Ячейка175	Ячейка176	Ячейка177	Ячейка178	Ячейка179	Ячейка180	Ячейка181	Ячейка182	Ячейка183	Ячейка184	Ячейка185	Ячейка186	Ячейка187	Ячейка188	Ячейка189	Ячейка190	Ячейка191	Ячейка192	Ячейка193	Ячейка194	Ячейка195	Ячейка196	Ячейка197	Ячейка198	Ячейка199	Ячейка200	Ячейка201	Ячейка202	Ячейка203	Ячейка204	Ячейка205	Ячейка206	Ячейка207	Ячейка208	Ячейка209	Ячейка210	Ячейка211	Ячейка212	Ячейка213	Ячейка214	Ячейка215	Ячейка216	Ячейка217	Ячейка218	Ячейка219	Ячейка220	Ячейка221	Ячейка222	Ячейка223	Ячейка224	Ячейка225	Ячейка226	Ячейка227	Ячейка228	Ячейка229	Ячейка230	Ячейка231	Ячейка232	Ячейка233	Ячейка234	Ячейка235	Ячейка236	Ячейка237	Ячейка238	Ячейка239	Ячейка240	Ячейка241	Ячейка242	Ячейка243	Ячейка244	Ячейка245	Ячейка246	Ячейка247	Ячейка248	Ячейка249	Ячейка250	Ячейка251	Ячейка252	Ячейка253	Ячейка254	Ячейка255	Ячейка256"
$Excel1 = "Ячейка1" ; тут должны быть формулы :) 
$Excel2 = {XXXXXXXXXXXXXX} ; Как тут быть?
$Excel3 = {XXXXXXXXXXXXXX} ; Как тут быть?
$Excel.. =

:Beta:
как можно изъять данные всей строки? :read_this: данные имеют разделитель ^t очень бы хотелось еще посмотреть на другой способ... :scratch:

Код:
WinActivate("Microsoft Excel - ") ;Переходим В Microsoft Excel
Sleep(125)
Send("{HOME}") ;Копируем
Sleep(1)
Send("^{INSERT}") ;Копируем
Sleep(1)
$DATA001 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA002 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA003 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA004 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA005 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA006 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA007 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA008 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA009 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA010 = ClipGet()
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA011 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA012 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA013 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA014 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA015 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA016 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA017 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA018 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA019 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA020 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA021 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA022 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA023 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA024 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA025 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA026 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA027 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA028 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA029 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA030 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA031 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA032 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA033 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA034 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA035 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA036 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA037 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA038 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA039 = ClipGet()
Sleep(1)
Send("{TAB}^{INSERT}")
Sleep(1)
$DATA040 = ClipGet()
Sleep(1)
:Beta: :read_this:
 
Верх