Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: последний символ Добавлено: 27.04.03 18:20  

Автор вопроса:  ZoomerSD | ICQ: 148640473 

люди добрые, подскажите кодик, который убирает последнее число в текстовом поле, и такой который добовляет или стерает первый знак, заранее спосибо!!

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
 Web-сайт: justas.newmail.ru
 Профиль | | #1
Добавлено: 28.04.03 00:05

1).  Text1.Text = Mid$(Text1.Text, 2)

2).  Text1.Text = Mid$(Text1.Text, 1, Len(Text1.Text) - 1)

Ответить

Номер ответа: 2
Автор ответа:
 Konstantin



Вопросов: 1
Ответов: 19
 Профиль | | #2 Добавлено: 28.04.03 03:53

Вообще-то надо было написать хотябы формат данных (для последнего числа)

Вот общий код - если сначала идет текст а потом твое число
допустим text1 - текстовое поле в котором тебе надо убрать число

for i = 0 to len(text1.text)
if not isnumeric(right(text1.text, i+1)) then exit for
next i

text1.text = left(text1.text, len(text1.text) - i + 1)

А первый знак сотрешь так:

text1.text = right(text1.text , len(text1.text) - 1)

Ответить

Номер ответа: 3
Автор ответа:
 Konstantin



Вопросов: 1
Ответов: 19
 Профиль | | #3 Добавлено: 28.04.03 03:55
Сорри, в третьей строке снизу - вместо i-1 - просто i

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам