[Помощь] Разделение и отправка текста
|
|
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
У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ
|
|
|
|