Вырезать
Поскажите пожалуйста, как вырезать из текстового сообщение, текст до определеного символа.
Ну например так:
Код:
Text1.SelStart = 1
Text1.SelLength = 2
Dim s As String
s = Text1.SelText
Text1.SelText = ""
Text1.SelLength = 2
Dim s As String
s = Text1.SelText
Text1.SelText = ""
Цитата:
Владей собой среди толпы смятенной,
Тебя клянущей за смятенье вех.
Верь сам в себя наперекор вселенной
И маловерным отпусти их грех.
Пусть час не пробил - жди не уставая,
Пусть лгут лжецы, не снисходи до них.
Умей прощать, и не кажись, прощая,
Великодушне их.
Тебя клянущей за смятенье вех.
Верь сам в себя наперекор вселенной
И маловерным отпусти их грех.
Пусть час не пробил - жди не уставая,
Пусть лгут лжецы, не снисходи до них.
Умей прощать, и не кажись, прощая,
Великодушне их.
Моё любимое стихотворение!!!
Цитата:
Поскажите пожалуйста, как вырезать из текстового сообщение, текст до определеного символа.
А вообще сли какой-то конкретный символ, то находишь его позицию с помощью instr и присваиваешь её sellengh :)
Спасибо за помощь.
P.S. Подскажи кто написал стихотворение.
А то я его на каком - то форуме откапал, а автора не знаю.
P.S. Подскажи кто написал стихотворение.
А то я его на каком - то форуме откапал, а автора не знаю.
Цитата:
P.S. Подскажи кто написал стихотворение.
А то я его на каком - то форуме откапал, а автора не знаю.
А то я его на каком - то форуме откапал, а автора не знаю.
Редъярд Киплинг ;)
Кстати, последняя строчка
Цитата:
Умей прощать, и не кажись, прощая,
Великодушне их.
Великодушне их.
в моей версии так:
Цитата:
Умей прощать, и не кажись, прощая,
Великодушней и мудрей других.
Великодушней и мудрей других.
Может так лучше?
P.S. Сорри за оффтоп