Серый форум — AHK: Cчитать текст из файла и поместить в переменную

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Sat, 29 Oct 2022 11:07:38 +0000

teadrinker Понял.

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (teadrinker) — Sat, 29 Oct 2022 10:48:31 +0000

Ядрён, для тем по играм есть своя ветка.

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Sat, 29 Oct 2022 10:41:02 +0000

teadrinker Спвсибо!

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Sat, 29 Oct 2022 10:29:54 +0000

Спасибо разобрался, символ перевода строки (`n) был прописан с ошибкой.

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (andrey.a.polyakov.b2c) — Fri, 28 Oct 2022 18:51:05 +0000

Ядрён
А я бы Loop, Read использовал бы. Ну каждому своё.

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Fri, 21 Oct 2022 19:43:19 +0000

Доброго времени суток. Подскажите пожалуйста почему не считывается текст из файл ''555.amc'' если я записываю его при помощи этого скрипта.

*~vk60::
  KeyWait, LButton, D 
  MouseGetPos, pos1, pos2
   WinGet, active_id, ID, A 
if !x0
    x0 := - pos1, y0 := - pos2
  Else
{
      FileAppend,% "MoveR " - pos1 - x0 " " - pos2 - y0 "`n", 555.amc
      FileAppend,% "Delay " . A_TimeSincePriorHotkey . " ms" "`n", 555.amc
      FileAppend,% "IfKey 1 0 1" "`n", 555.amc
      x0 := - pos1, y0 := - pos2
   }
 Return

Скрипт для считывания.

*~vk31::
FileSelectFile, SelectedFile, 24, , Загрузить макрос, *.amc

Arr := []

text := FileOpen(SelectedFile,"r").Read()
While pEx := RegExMatch(text , "O)MoveR (?-?\d+) (?-?\d+)(?:`r`n)?Delay (?-?\d+) ms", match, pEx ? pEx : 1) + StrLen(match.0)
	Arr.Insert(match)
return
F12::on := !on
	
#if on	
*~LButton::
Loop
	for i,k in Arr
	{
		if !GetKeyState("LButton","p")
			Return
		DllCall("mouse_event", uint, 1, int,  k.x, int,  k.y, uint, 0, int, 0)
		Sleep % k.Delay
		
	}
Return
#if

P.S. Если я копирую в файл ''555.amc'' текст из первого поста то всё воспроизводится, хотя на вид ошибок нет всё идентично.

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (yalanne) — Wed, 29 Jun 2016 17:12:23 +0000

Может последнюю переменную не правильно RegEx видит.
Можно попробовать посмотреть что выдает скрипт в этих параметрах:

*~vk5B::
FileSelectFile, SelectedFile, 24, , Загрузить макрос, *.amc

Arr := []

text := FileOpen(SelectedFile,"r").Read()
While pEx := RegExMatch(text , "O)MoveR (?-?\d+) (?-?\d+)(?:`r`n)?Delay (?-?\d+)", match, pEx ? pEx : 1) + StrLen(match.0)
	Arr.Insert(match)
return
F12::on := !on
	
#if on	
*~LButton::
Loop
	for i,k in Arr
	{
		if !GetKeyState("LButton","p")
			Return
		;DllCall("mouse_event", uint, 1, int,  k.x, int,  k.y, uint, 0, int, 0)
		;Sleep % k.Delay
		ToolTip % "index:`t" i
		            .  "`nX:`t"	k.x
		            .  "`nY:`t" 	k.y
		            .  "`nDelay:`t"	k.Delay
		Sleep 500 ;--
	}
Return
#if

Попробуй подобную строку заменить на эту

While pEx := RegExMatch(text , "O)MoveR (?-?\d+) (?-?\d+)(?:`r`n)?Delay (?-?\d+) ms", match, pEx ? pEx : 1) + StrLen(match.0)

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Tue, 28 Jun 2016 20:34:38 +0000

Заметил кое что странное в работе скрипта . Когда загружаешь коротенький скрипт он его исполняет ну очень быстро(не так ка должно быть) , такое ощущение что с задержкой чтото не то.Хотя даже незнаю на что думать. Помогите разобраться пожалуйста.

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Tue, 28 Jun 2016 19:32:39 +0000

yalanne огромное вам спасибо за помощь.

Вот решил без Gui , додумался сам.

*~vk5B::
FileSelectFile, SelectedFile, 24, , Загрузить макрос, *.amc

text := FileOpen(SelectedFile,"r").Read()

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Mon, 27 Jun 2016 21:59:10 +0000

И ещё заметил чем длиннее файл тем медленнее работает.Начинает шустренько но на секунде 7-10 скорость выполнения значительно падает.

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Mon, 27 Jun 2016 20:14:42 +0000

yalanne пишет:
А зачем gui с кнопками?

Уважаемый yalanne таких файлов много (с разными параметрами) для мобильности что бы можно было быстро заменить один на другой. А можно вариант с Gui , нажал на кнопку открылось окно где можно выбрать файл.

Вот попробывал сделать выбор файла сам , но не получилось . Подскажите где ошибка.

Open: 

Gui Submit, NoHide

FileSelectFile, SelectedFile, 1, , Загрузить макрос, *.amc

text := FileOpen(A_ScriptDir "\%SelectedFile%.amc","r").Read()
 
Return

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (yalanne) — Mon, 27 Jun 2016 13:15:34 +0000

Ядрён пишет:

Вот пример

А что в самом скрипте должно происходить?
Если удерживается левая кнопка мыши(F12 вкл\выкл этой опции) то перемещаем мышь бесконечно по заданному пути, который есть в текстовом документе?
А зачем gui с кнопками?

Arr := []

text := FileOpen(A_ScriptDir "\file.txt","r").Read()
While pEx := RegExMatch(text , "O)MoveR (?-?\d+) (?-?\d+)(?:`r`n)?Delay (?-?\d+)", match, pEx ? pEx : 1) + StrLen(match.0)
	Arr.Insert(match)
return
F12::on := !on
	
#if on	
*~LButton::
Loop
	for i,k in Arr
	{
		if !GetKeyState("LButton","p")
			Return
		DllCall("mouse_event", uint, 1, int,  k.x, int,  k.y, uint, 0, int, 0)
		Sleep % k.Delay
	}
Return
#if

+ с комментами

; Создаем пустой массив.
; В нем будут хранится данные ввиде: Arr[index].x  Arr[index].y \ Arr[index].Delay
Arr := [] 

;Читаем файл file.txt и заносим в переменную text.
text := FileOpen(A_ScriptDir "\file.txt","r").Read()

; Ищем нужные строки. Match уже идет здесь объектом.
; Цикл добавит  именные объекты x\y\delay в объект Arr под индексацию ввиде цифр.
While pEx := RegExMatch(text , "O)MoveR (?-?\d+) (?-?\d+)(?:`r`n)?Delay (?-?\d+)", match, pEx ? pEx : 1) + StrLen(match.0)
	Arr.Insert(match)

; конец. Ждем нажатий кнопок.
return

; Переключение режима.
F12::on := !on
	
#if on	
*~LButton::
Loop
; цикл для массивов.
	for i,k in Arr
	{
		if !GetKeyState("LButton","p")
			Return
		DllCall("mouse_event", uint, 1, int,  k.x, int,  k.y, uint, 0, int, 0)
		Sleep % k.Delay
	}
Return
#if

Re: AHK: Cчитать текст из файла и поместить в переменную

null@example.com (teadrinker) — Mon, 27 Jun 2016 11:41:23 +0000

Воспользоваться ini-файлом?

AHK: Cчитать текст из файла и поместить в переменную

null@example.com (Ядрён) — Mon, 27 Jun 2016 11:34:43 +0000

Доброго времени суток. Подскажите пожалуйста как можно считать текст из файла и поместить в переменную , но не весь текст а после определённого слова "MoveR" и "Delay" . После слова "MoveR" стоят две цифры первая цифра это значение для координаты "x" , вторая цифра для координаты "y", Delay - задержка.

Сам файл.

MoveR -11 8
Delay 32 ms
MoveR -6 4
Delay 32 ms
IfKey 1 0 1
MoveR -2 2
Delay 32 ms
MoveR -1 1
Delay 32 ms
MoveR 0 0
Delay 32 ms
IfKey 1 0 1
MoveR -18 15
Delay 32 ms
MoveR -1 2
Delay 32 ms
MoveR 0 0
Delay 32 ms
IfKey 1 0 1
MoveR -19 -8
Delay 32 ms
MoveR -1 -2
Delay 32 ms

Вот пример , но я не знаю как считать из файла и заполнить переменные "x" , "y" , "Delay" .

#NoEnv
#SingleInstance force
#Persistent
#NoEnv
SendMode Input
SetBatchLines, -1
#MaxHotkeysPerInterval
#HotkeyInterval, -1

Gui, Color, 9CEE90

Gui, Font, s11 Bold, Cambria

Gui, Add, Button, x20 y90 w42 h20 gOpen, Open

Gui, Add, Button, x108 y90 w42 h20 gOK, OK

Gui, Show, x557 y130 h171 w255
Return

OK:  
Gui Submit, NoHide
x := Arr[A_Index*2-1]
y := Arr[A_Index*2]
Delay := Arr[A_Index*3]
Return

Open: 
Return

#If on
*~Lbutton::
Loop
   Loop % Arr.MaxIndex() >> 1
   {
      if !GetKeyState("Lbutton", "P")
         Break 2
      
DllCall("mouse_event", uint, 1, int,  Arr[A_Index*2-1], int,  Arr[A_Index*2], uint, 0, int, 0)
      Sleep, Arr[A_Index*3]
   }
Return
#If

F12:: on := !on
GuiClose:
ExitApp