Серый форум — AHK: Обработка текстового документа.

Re: AHK: Обработка текстового документа.

2017-09-18T19:13:02Z

Malcev Догнал.

For k, v in Arr
   res .= A_Index ". " k " - " v "`n"
MsgBox % res

Re: AHK: Обработка текстового документа.

2017-09-18T18:57:20Z

Vicoriyan, ну а из чего по-вашему получается итоговая строка res?

Re: AHK: Обработка текстового документа.

2017-09-18T18:29:56Z

stealzy Все равно не понял где.

Re: AHK: Обработка текстового документа.

2017-09-18T15:59:27Z

Vicoriyan пишет:

Куда следует поставить A_Index, что бы шла нумерация строк

Вероятно в начало строки, из вариаций которой склеивается итоговая строка(ваш К.О.).

Re: AHK: Обработка текстового документа.

2017-09-18T10:23:16Z

Malcev Куда следует поставить A_Index, что бы шла нумерация строк. На примере это выглядит так:

1. 0xFF0146BF - 980
2. 0xFFDBA51E - 220
3. 0xFF002F87 - 198
4. 0xFF181822 - 102
5. 0xFF8B99A6 - 98
6. 0xFFE66B70 - 52
7. 0xFF7D1F2D - 44
8. 0xFF5D9CEC - 24
9. 0xFF00469E - 11
10. 0xFFFFFEFF - 10
11. 0xFF145348 - 7
12. 0xFF006756 - 1
13. 0xFF871423 - 1
И так далее.

Re: AHK: Обработка текстового документа.

2017-08-26T18:22:00Z

SetBatchLines, -1
CoordMode, Pixel, screen
pToken := Gdip_Startup()
pBitmap := Gdip_BitmapFromScreen()
width := Gdip_GetImageWidth(pBitmap)
height := Gdip_GetImageHeight(pBitmap)
Gdip_LockBits(pBitmap, 0, 0, width, height, Stride, Scan0, BitmapData)
Arr:={}
loop % width
{
   A_Index_X := A_Index-1
   loop % height
   {
      CurrentPixel := Gdip_GetLockBitPixel(Scan0, A_Index_X, A_Index-1, Stride)
      If Arr.HasKey("" CurrentPixel)
         ++Arr["" CurrentPixel]
      Else
         Arr["" CurrentPixel]:=1
   }
}
Gdip_UnlockBits(pBitmap, BitmapData)
Gdip_DisposeImage(pBitmap)
Gdip_Shutdown(pToken)
For k, v in Arr
   res .= k " - " v "`n"
MsgBox % res

Re: AHK: Обработка текстового документа.

2017-08-26T17:59:56Z

Malcev есть картинка например 50х50. В этой картинке 2500 пикселей. Мне нужно, чтоб скрипт проанализировал сколько шт пикселей того или иного цвета есть на этой картинке. Результат должен выглядеть так:
0xFF0146BF - 980
0xFFDBA51E - 220
0xFF002F87 - 198
0xFF181822 - 102
0xFF8B99A6 - 98
0xFFE66B70 - 52
0xFF7D1F2D - 44
0xFF5D9CEC - 24
0xFF00469E - 11
0xFFFFFEFF - 10
0xFF145348 - 7
0xFF006756 - 1
0xFF871423 - 1
И так далее.

Re: AHK: Обработка текстового документа.

2017-08-26T17:52:08Z

Мне лично непонятна задача, что имеем и что хотим получить.

Re: AHK: Обработка текстового документа.

2017-08-26T17:03:35Z

serzh82saratov Долго в плане обработки пикселей или для поиска самого решения? А вопрос наверное нельзя дублировать в другой теме. Если уж задал тут, может кто поможет.

Re: AHK: Обработка текстового документа.

2017-08-26T16:43:07Z

Можете наверное, но это очень долго, я бы искал решение в вашей теме про пиксели.

Re: AHK: Обработка текстового документа.

2017-08-26T13:50:51Z

serzh82saratov Могу ли я применить Ваш скрипт для определения, сколько раз встречается тот или иной пиксель в выделенной области?
Пиксели ищем с помощью этого скрипта:


SetBatchLines, -1
CoordMode, Pixel, screen
pixelArray := []
pToken := Gdip_Startup()
pBitmap := Gdip_BitmapFromScreen("100|0|10|10")
width := Gdip_GetImageWidth(pBitmap)
height := Gdip_GetImageHeight(pBitmap)
Gdip_LockBits(pBitmap, 0, 0, width, height, Stride, Scan0, BitmapData)
loop % width
{
   A_Index_X := A_Index-1
   loop % height
   {
      pixelArray[A_Index_X, A_Index-1] := Gdip_GetLockBitPixel(Scan0, A_Index_X, A_Index-1, Stride)
   }
}
Gdip_UnlockBits(pBitmap, BitmapData)
Gdip_DisposeImage(pBitmap)
Gdip_Shutdown(pToken)

Re: AHK: Обработка текстового документа.

2017-08-07T12:07:59Z

serzh82saratov
Так норм. Ещё раз спасибо!

Re: AHK: Обработка текстового документа.

2017-08-07T11:04:35Z

А так?


cars = cars.txt
FileRead, list, *t %cars%

Loop, Parse, % List . Arr := {}, `n, `r 
	If (A_LoopField ~= "\S+" && !Arr.HasKey(A_LoopField) && Arr[A_LoopField] := 1)
		RegExReplace(List, "m`ai)^\Q" A_LoopField "\E$", "", Count) 
		, Res .= A_LoopField " - " Count "`n"

FileDelete, %cars%
FileAppend, %res%, %cars%
msgbox, % res

Re: AHK: Обработка текстового документа.

2017-08-07T10:59:44Z

Всё ровно какая-то фигня.
Содержимое .txt файла:


a
a

aa
a
aaa
aa
a

aaa

Скрипт, который я слепил:


cars = cars.txt
Arr:={}
FileRead, list, %cars%
list := RegExReplace(List, "\R\s*(?=\R)")
Loop, parse, list, `n, `r
	If Arr.HasKey(A_LoopField)
		++Arr[A_LoopField]
	Else
		Arr[A_LoopField]:=1

For k, v in Arr
	res .= k " - " v "`n"
FileDelete, %cars%
FileAppend, %res%, %cars%
msgbox, % res

Он удаляет все пустые строки в промежутках, но всё ровно в конце одна не удаляется... и он её считает. И выдаёт:


 - 1
a - 4
aa - 2
aaa - 2

Как это пофиксить?

Re: AHK: Обработка текстового документа.

2017-08-07T09:40:28Z

serzh82saratov
Вкурил. Спасибо огромное.