Выявление ненужных пробелов в тектовой переменной

Страница 1 из 1 1
Модератор форума: as-master

Дата: Суббота, 07 Апреля 2007, 13:07 | Сообщение # 1

Студийная субстанция

Группа: Администраторы

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

1. Выявление одних только пробелов:

Code

For n=LEN(string$) To 1
char$=StrGet(string$,n)
If (char$<>CHR(32)) Then
Return()
End
Next n
Message("Переменная содержит только пробелы","")

2. Удаление пробелов слева:

Code

For i=1 To LEN(LTrim$)
StartText$=StrGet(LTrim$,1)
If (StartText$=CHR(32)) Then
LTrim$=StrDel(LTrim$,1,1)
Else
Break()
End
Next i

3. Удаление пробелов справа:

Code

For i=LEN(RTrim$) To 1
Endtext$=StrGet(RTrim$,i)
If (Endtext$=CHR(32)) Then
RTrim$=StrDel(RTrim$,i,1)
Else
Break()
End
Next i

Жизнь оказалась не такой уж и забавной, как поначалу...