Серый форум — AHK:ReadLine + AddText

Re: AHK:ReadLine + AddText

null@example.com (ypppu) — Sat, 27 Mar 2021 15:57:52 +0000

Lolykroly пишет:

А разве размер элементов и размер шрифта не имеет общих связей? Там ведь есть какие-то константы?

Не имеет. Можно взять большой ЭУ типа Text и сделать его мелким шрифтом. Можно взять маленький ЭУ Text и сделать его большим шрифтом. В общем, одно другому не мешает.

Re: AHK:ReadLine + AddText

null@example.com (__Михаил__) — Sat, 27 Mar 2021 13:16:45 +0000

Никогда особо этим не занимался, тут нужны более опытные кодеры.
Видел костыль, в котором создавалось окно, в нём выводили нужный текст, затем извлекали кол-во пикселей которое требуется на текст. Далее можно по некоторым условиями делить исходный текст для использования.

Re: AHK:ReadLine + AddText

null@example.com (Lolykroly) — Sat, 27 Mar 2021 09:03:34 +0000

__Михаил__ пишет:

текст имеет разную ширину букв, которую придётся высчитывать, ну или использовать моноширинный шрифт.

А разве размер элементов и размер шрифта не имеет общих связей? Там ведь есть какие-то константы?

Re: AHK:ReadLine + AddText

null@example.com (__Михаил__) — Sat, 27 Mar 2021 08:19:59 +0000

Можно автоматически - только сложно, ведь текст имеет разную ширину букв, которую придётся высчитывать, ну или использовать моноширинный шрифт.
В предыдущем сообщении я лишь показал как делать удаление и замену текста.

Re: AHK:ReadLine + AddText

null@example.com (Lolykroly) — Sat, 27 Mar 2021 08:12:11 +0000

__Михаил__ пишет:

Str_N := "987" ; Заменить на перевод строки.

Т.е. мне надо заранее знать на каком месте строка не вписывается в ширину? А автоматически это нельзя сделать?

Re: AHK:ReadLine + AddText

null@example.com (Lolykroly) — Sat, 27 Mar 2021 08:10:23 +0000

Для взаимодействия с данной надписью планировалось использовать другой элемент управления. Чем проще то?

Re: AHK:ReadLine + AddText

null@example.com (__Михаил__) — Sat, 27 Mar 2021 08:07:34 +0000

File  := A_ScriptDir "\Test.txt"
DelStr := "123"	; Что убрать.
Str_N := "987"			; Заменить на перевод строки.

FileReadLine, Text, % File, 1			; Считывает 1 строку из файла.
StringReplace, Text, Text, % DelStr,, All	; Удаляет все совпадения.
StringReplace, Text, Text, % Str_N, % "`n", All	; Заменяет все совпадения на перевод строки.

Gui, Add, Edit, x16 y12 w999 h100, % Text
Gui, Show, w1000 h300
Return

Re: AHK:ReadLine + AddText

null@example.com (__Михаил__) — Sat, 27 Mar 2021 07:59:10 +0000

Для таких целей проще использовать 'Edit':

Gui, Add, Edit, x16 y12 w999 h23, % Text

Re: AHK:ReadLine + AddText

null@example.com (Lolykroly) — Sat, 27 Mar 2021 07:50:07 +0000

А. вобщем понял, он её разбить не может, слишком длинная. Хотя если не задавать изначальную ширину текста то пытается вместить её.
Вот этот момент с разбивкой

__Михаил__ пишет:

ToolTip, Text:`n%Text%

Как каретку ставить чтобы перенос по указанной ширине текста был?
Как организовать перенос/разбивку этой строки? + убрать некоторые слова

Допустим строка состоит из "Перейти по ссылке google.com"
Нужно убрать перейти по ссылке, а оставить только google.com поместив её в A_LoopReadLine,
либо сделать перенос если по w100 ширине указанной в Add, text не хватает места для размещения всей строки.

Re: AHK:ReadLine + AddText

null@example.com (Lolykroly) — Sat, 27 Mar 2021 07:45:25 +0000

Теперь понял в чём была проблема: Путь неверно указан.
Но всё-равно теперь не полностью строку читает, а только первые 2 слова

Re: AHK:ReadLine + AddText

null@example.com (__Михаил__) — Sat, 27 Mar 2021 07:38:03 +0000

File  := A_ScriptDir "\Test.txt"
FileReadLine, Text, % File, 1
ToolTip, Text:`n%Text%

Gui, Add, Text, x16 y12 w999 h23, % Text
Gui, Show, w1000 h300
Return

AHK:ReadLine + AddText

null@example.com (Lolykroly) — Sat, 27 Mar 2021 07:13:48 +0000


Loop, Read, %A_ScriptDir%\text.txt 
{
 Text := A_LoopReadLine
}
Gui, Add, Text, x100 y200 w300 h23, %Text%

Как вставить в название текста переменную содержащую строку/часть из файла?

FileReadLine, Text, %A_ScriptDir%\text.txt , 1
Gui, Add, Text, x100 y200 w300 h23, %Text%

Так тоже не получается.