Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: узнать первый символ строки Добавлено: 04.04.07 18:47  

Автор вопроса:  KreAtoR

Ответить

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

Номер ответа: 16
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
 Профиль | | #16 Добавлено: 05.04.07 14:12
Можно что ли? :0

нет не можно но должно щас попробую '

Ответить

Номер ответа: 17
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
 Профиль | | #17 Добавлено: 05.04.07 14:14
ну да ставить два' это конечно выход может всетаки есть более рациональный выход из ситуации

Ответить

Номер ответа: 18
Автор ответа:
 GenyaA



Вопросов: 0
Ответов: 185
 Web-сайт: www.genyaa.nm.ru
 Профиль | | #18
Добавлено: 05.04.07 14:17
нужно ставить не два апострофа (') а двойные кавычки (";), тогда VBA считает двойные кавычки (";) в строковой константе за один символ кавычек (";)

Ответить

Номер ответа: 19
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
 Профиль | | #19 Добавлено: 05.04.07 14:32
да это тоже правда!!! что " что "" хоть """ один фиг бесполезно. Поставил пока '' до лучших времен. А анси нельзя использовать??? или не анси незнаю что. Блин бесят эти кавычки ужас какой то.

Ответить

Номер ответа: 20
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #20 Добавлено: 05.04.07 14:47
да это тоже правда!!! что " что "" хоть """ один фиг бесполезно. Поставил пока '' до лучших времен. А анси нельзя использовать??? или не анси незнаю что. Блин бесят эти кавычки ужас какой то.

а чего - работает:
    MsgBox "я люблю ""пиво"""


2. Не анси, а ASCii-код:
msgbox Chr(34)

Ответить

Номер ответа: 21
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
 Профиль | | #21 Добавлено: 05.04.07 15:31
а не в боксе!!! а тексе!!!! не работает

Ответить

Номер ответа: 22
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #22 Добавлено: 05.04.07 15:58
так сделай эдак:
Stroka=Stroka & Chr(34) & " Пивка бы сейчас!" & Chr(34)

Ответить

Номер ответа: 23
Автор ответа:
 »VladikComper«



ICQ: 419668582 

Вопросов: 23
Ответов: 147
 Web-сайт: vladikcomper.narod.ru
 Профиль | | #23
Добавлено: 05.04.07 21:36
А такой код почему-то никто не предложил:
If Mid(Stroka, 1, 1) = "." Then MsgBox "Run-time Error '-13749574967':" & vbCrLf & _
"Точка в начале текста"

Ответить

Номер ответа: 24
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #24 Добавлено: 05.04.07 22:31
Нельзя же объять все прекрасное в одном топике...

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #25 Добавлено: 06.04.07 20:52
1)
If MS.StartsWith(".";) Then Throw New Exception


2)
    If Not Double.TryParse(MS, Globalization.NumberStyles.Any, System.Globalization.CultureInfo.InvariantCulture, Price) Then
        messagebox.Show("Неверный формат";)
    End If

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #26 Добавлено: 06.04.07 20:53
1)
If MS.StartsWith(".";) Then Throw New Exception


2)
    If Not Double.TryParse(MS, Globalization.NumberStyles.Any, System.Globalization.CultureInfo.InvariantCulture, Price) Then
        messagebox.Show("Неверный формат";)
    End If

Ответить

Страница: 1 | 2 |

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



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