Страница: 1 |
люди добрые, подскажите кодик, который убирает последнее число в текстовом поле, и такой который добовляет или стерает первый знак, заранее спосибо!!
1). Text1.Text = Mid$(Text1.Text, 2) 2). Text1.Text = Mid$(Text1.Text, 1, Len(Text1.Text) - 1) Вообще-то надо было написать хотябы формат данных (для последнего числа) Вот общий код - если сначала идет текст а потом твое число for i = 0 to len(text1.text) text1.text = left(text1.text, len(text1.text) - i + 1) А первый знак сотрешь так: text1.text = right(text1.text , len(text1.text) - 1) Страница: 1 |
Вопрос: последний символ
Добавлено: 27.04.03 18:20
Автор вопроса: ZoomerSD | ICQ: 148640473
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
Justas
ICQ: 259418212
Вопросов: 24
Ответов: 325
Web-сайт:
Профиль | | #1
Добавлено: 28.04.03 00:05
Номер ответа: 2
Автор ответа:
Konstantin
Вопросов: 1
Ответов: 19
Профиль | | #2
Добавлено: 28.04.03 03:53
допустим text1 - текстовое поле в котором тебе надо убрать число
if not isnumeric(right(text1.text, i+1)) then exit for
next i
Номер ответа: 3
Автор ответа:
Konstantin
Вопросов: 1
Ответов: 19
Профиль | | #3
Добавлено: 28.04.03 03:55
Сорри, в третьей строке снизу - вместо i-1 - просто i