Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Заглавная и строчная буквы. Добавлено: 20.10.10 20:24  

Автор вопроса:  goodwen
Здравствуйте, я пишу на vb6, мне нужно сделать вот такую вещь, есть строковая переменная, она в ходе выполнения работы программы хранит в себе какую нибудь строку, и нужно определить, если первый символ этой строки заглавный, то одно действие, если нет, то другое. Проблема в том, что у меня в начале программного кода стоит функция Option Compare Text. И убрать я её не могу, потому что с этой функцией легче. Как мне сделать то, что я описал выше?

Ответить

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

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



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
 Web-сайт: iSkywalker.ru
 Профиль | | #1
Добавлено: 20.10.10 22:08
ну наверна так
if asc(left(str, 1)) = asc(ucase(left(str, 1))) 'большая

Ответить

Номер ответа: 2
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
 Web-сайт: houselab.narod.ru
 Профиль | | #2
Добавлено: 21.10.10 07:33
можно прощe
if left(str, 1) = ucase(left
(str, 1))

Ответить

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



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
 Web-сайт: iSkywalker.ru
 Профиль | | #3
Добавлено: 21.10.10 12:04
нельзя, потому что как он и написал стоит Option Compare Text и left("zzz", 1) буде равно ucase(left("zzz", 1))

Ответить

Номер ответа: 4
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #4 Добавлено: 21.10.10 12:56
переходите на дотнет. там можно написать вот так:
  1. If str.First = str.ToUpper.First Then ...

Ответить

Номер ответа: 5
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #5 Добавлено: 21.10.10 13:21
AgentFire пишет:
 переходите на дотнет. там можно написать вот так:

А если в строке 0 символов?

Ответить

Номер ответа: 6
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #6 Добавлено: 21.10.10 13:25
То в обоих случаях будет ошибка, но ее можно пофиксить, опять таки написав более краткий код на .net:
  1. If str.Length > 0 AndAlso str.First = str.ToUpper.First Then ...

Ответить

Номер ответа: 7
Автор ответа:
 goodwen



Вопросов: 26
Ответов: 65
 Профиль | | #7 Добавлено: 21.10.10 13:36
Спасибо получилось.

Ответить

Страница: 1 |

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



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