|
[Помощь] Разделение и отправка текста
|
|
| Omicida |
Дата: Вторник, 18.04.2017, 13:39 | Сообщение # 1
|
Любитель
Сообщений: 32
Статус: Offline
|
Вот есть у меня текст. При условии, что он не длиннее 100 символов, мне нужно, чтоб он отправлялся в чат. Если же он длиннее 100 символов, то его нужно разделить и отправить разделенным. Как такое реализовать?
Допустим вот такой текст: "Движение по тротуарам, обочинам, по трамвайным рельсам и ж/д путям - 2 уровень розыска Штраф 2.000$ | Изъятие водительских прав."
Сообщение отредактировал Omicida - Вторник, 18.04.2017, 15:35 |
|
|
|
|
| _emotion_ |
Дата: Среда, 19.04.2017, 14:32 | Сообщение # 2
|
Любитель
Сообщений: 47
Статус: Offline
|
Не получится разделить, попробуй через файл все записать, и по строчкам разделить.
Графика
- Как оформить тему без Photoshop'а? http://cheat-master.ru/forum/2-689181-1
SA-MP
- Сливаю тактику казино Grand RP http://cheat-master.ru/forum/165-689441-1
|
|
|
|
|
|
|
| Artur_iOS |
Дата: Среда, 19.04.2017, 18:09 | Сообщение # 4
|
Боец
Сообщений: 94
Статус: Offline
|
_emotion_, разделить можно, просто твои знания маловаты и ты так думаешь) Добавлено (19.04.2017, 18:09)
---------------------------------------------
Смотри пример:
Код mytext = Движение по тротуарам, обочинам, по трамвайным рельсам и ж/д путям - 2 уровень розыска Штраф 2.000$ | Изъятие водительских прав.
mystrtext := StrLen(mytext)
if (mystrtext > 100)
mytextstr1 := SubStr(mytext, 1, 100),mytextstr2 := SubStr(mytext, 101),mystrltext := mytextstr1 " / " mytextstr2
msgbox, %mystrltext% |
|
|
|
|
| Omicida |
Дата: Среда, 19.04.2017, 22:19 | Сообщение # 5
|
Любитель
Сообщений: 32
Статус: Offline
|
Цитата Phoenixxx_Czar (  ) Omicida, Я тебе ответил уже в другой теме. Пробовал?
Да, пробовал, он в чат два раза скобку отправляет.
Добавлено (19.04.2017, 22:13)
---------------------------------------------
Цитата Artur_iOS ( ) Смотри пример:
Код
mytext = Движение по тротуарам, обочинам, по трамвайным рельсам и ж/д путям - 2 уровень розыска Штраф 2.000$ | Изъятие водительских прав.
mystrtext := StrLen(mytext)
if (mystrtext > 100)
mytextstr1 := SubStr(mytext, 1, 100),mytextstr2 := SubStr(mytext, 101),mystrltext := mytextstr1 " / " mytextstr2
msgbox, %mystrltext%
Этот код, к сожалению, тоже не работает 
Добавлено (19.04.2017, 22:19)
---------------------------------------------
У меня вот такой код:
Код !1::
{
GetChatLine(0, Line)
RegExMatch(Line,"\Q- \E(.*)\Q(\E(.*)",var)
RegExMatch(var1,"[0.0-9.9]+",number)
IniRead, stat, config.ini, Fines table, %number%
result := StrLen(stat)
if result <= 100
{
SendChat(stat)
}
else
{
SendChat(*Первая часть текста*)
Задержка
SendChat(*Вторая часть текста*)
}
}
return
Сообщение отредактировал Omicida - Среда, 19.04.2017, 22:19 |
|
|
|
|
| Demy |
Дата: Четверг, 20.04.2017, 12:09 | Сообщение # 6
|
Бывалый
Сообщений: 422
Статус: Offline
|
Код !1::
text := "Движение по тротуарам, обочинам, по трамвайным рельсам и ж/д путям - 2 уровень розыска Штраф 2.000$ | Изъятие водительских прав."
text := split(text,100)
loop % text.length()
msgbox % text[A_Index]
exit
split(text,q) {
strings := [], pos := 1 - q
while ( strings.length()*q < strlen(text) )
strings.push( substr(text,pos+=q,q) )
return strings
}
AutoReporter / http://cheat-master.ru/forum/150-486717-1
Finder / http://cheat-master.ru/forum/160-497245-1
DLQ Binder / http://cheat-master.ru/forum/150-594163-1
У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ
Сообщение отредактировал Demy - Четверг, 20.04.2017, 12:54 |
|
|
|
|
| Omicida |
Дата: Четверг, 20.04.2017, 14:34 | Сообщение # 7
|
Любитель
Сообщений: 32
Статус: Offline
|
Цитата Demy ( ) !1::
text := "Движение по тротуарам, обочинам, по трамвайным рельсам и ж/д путям - 2 уровень розыска Штраф 2.000$ | Изъятие водительских прав."
text := split(text,100)
loop % text.length()
msgbox % text[A_Index]
exit
split(text,q) {
strings := [], pos := 1 - q
while ( strings.length()*q < strlen(text) )
strings.push( substr(text,pos+=q,q) )
return strings
}
Спасибо большое, только возникла проблема с анти-флудом. Как сделать, чтоб он отправлял вторую часть через секунду?
|
|
|
|
|
| Demy |
Дата: Четверг, 20.04.2017, 18:07 | Сообщение # 8
|
Бывалый
Сообщений: 422
Статус: Offline
|
Код loop % text.length()
{
msgbox % text[A_Index]
sleep 1000
}
AutoReporter / http://cheat-master.ru/forum/150-486717-1
Finder / http://cheat-master.ru/forum/160-497245-1
DLQ Binder / http://cheat-master.ru/forum/150-594163-1
У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ
|
|
|
|
|
- 26.02.2017 
- 03.01.2018 
- 26.05.2018 
- 22.09.2018 
- 04.04.2019 
