]]>Мама мыла раму.
Маша ела кашу.
И соответственно в другую программу вставляется
Мама мыла раму.
Маша ела кашу.
; для демонстрации
Clipboard =
(
Мама мыла раму.
Маша ела кашу.
)
MaxSigns = 10 ; заменить на нужное
i := n := PrevEndPos := 1
StringReplace, Clipboard, Clipboard, `r,, 1
Length := StrLen(Clipboard)
Loop, parse, ClipBoard
{
if (A_Index = Length)
EndPos := A_Index + 1
if (A_LoopField = " " || A_LoopField = "`n")
EndPos := A_Index
if (A_Index = Length || A_LoopField = "`n" || i = MaxSigns + 1)
{
String%n% := SubStr(ClipBoard, PrevEndPos, EndPos - PrevEndPos)
PrevEndPos := EndPos + 1, i := A_Index - EndPos, n++
}
i++
}
; для демонстрации
While String%A_Index%
MsgBox, % "String" A_Index " = |" String%A_Index% "|"Мама мыла раму.
Маша ела кашу.
Получим при максимуме в 10 знаках
Мама мыла
раму.
Маша ела
кашу.
Можно разбить текст в буфере обмена на составные части по принципу "если больше указанного количества знаков, берётся часть текста, включающая нужное количество знаков + текст до ближайшего пробела или знака переноса строки
Мне бы нужно было "если больше указанного количества знаков, берётся часть текста, включающая нужное количество знаков (минус) текст до ближайшего пробела или знака переноса строки.
То есть в каждой строке чтобы было не больше 20 знаков.
Если больше, то идём назад до пробела и переносим.
P.S. А реально ли сделать такое, чтобы текст разбивался на строчки автоматически, миную блокнот?
Например, если одной строке задать максимальное количество знаков, если знаков больше, то находим пробел и весь текст после пробела переносим на следующую строку.
То есть, я имею ввиду делать word-wrap в самом буфере
Можно разбить текст в буфере обмена на составные части по принципу "если больше указанного количества знаков, берётся часть текста, включающая нужное количество знаков + текст до ближайшего пробела или знака переноса строки, и всё это заносится в переменную, затем по тому же принципу следующий участок текста, и так далее до конца текста в буфере". Таким образом получаем массив переменных String1, String2... в каждой из которых часть текста.
]]>P.S. А реально ли сделать такое, чтобы текст разбивался на строчки автоматически, миную блокнот?
Например, если одной строке задать максимальное количество знаков, если знаков больше, то находим пробел и весь текст после пробела переносим на следующую строку.
То есть, я имею ввиду делать word-wrap в самом буфере
Код (AutoHotKey):
SetTitleMatchMode, 2
TargetWindov = ; указать целевое окно
StringMaxLength = 200 ; указать максимальный размер копируемой строки в символах (можно больше)
String = "" ; обьявляем пустую строку
MyLineCounter = 0 ; кол-во строк
EM_GETLINECOUNT := 0xBA, EM_GETLINE := 0xC4
Return
F11::
ControlGet, hEdit, hwnd,, Edit1, A
SendMessage, EM_GETLINECOUNT,,,, ahk_id %hEdit%
Loop % ErrorLevel ; количество строк в Edit-контроле блокнота
{
MyLineCounter = MyLineCounter + 1
String = String +
VarSetCapacity(String, StringMaxLength)
NumPut(StringMaxLength, String)
SendMessage, EM_GETLINE, A_Index - 1, &String,, ahk_id %hEdit% ; прибавляем строку в переменную String
}
if MyLineCounter = 3 ; если 3 строчки то ...
{
Clipboard = %String% ; помещаем строки в буфер обмена
WinActivate, %TargetWindov%
SendInput, ^{vk56} ; посылаем целевому окну Ctrl + V, вставляя текст из буфера обмена
Sleep, 400
} else if MyLineCounter = 4 ; если 4 строчки то ...
{
Clipboard = %String% ; помещаем строки в буфер обмена
WinActivate, %TargetWindov%
SendInput, ^{vk56} ; посылаем целевому окну Ctrl + V, вставляя текст из буфера обмена
Sleep, 400
}
Return