Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

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

 

  Вопрос: Извечная Ошибка на VB 6: Block without End If... Добавлено: 19.10.10 21:48  

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

Ответить

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

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



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | Цитата | #16 		Добавлено: 22.10.10 21:52
соответственно - это не булева переменная, а "булева?". Совсем другое дело

Ответить

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | Цитата | #17 Добавлено: 23.10.10 02:02
не совсем. лишь чуть-чуть

Ответить

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



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

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | Цитата | #18 		Добавлено: 24.10.10 09:44
забыл про это ветку чото. Victor, у меня все пашет, проверяю в экселе, а то вб6 не стоит:
  1. Public Function ConvertToRus(ByVal InputVal As String) As String
  2.  
  3. Dim TypeOfConvert As Integer, ConvertionMassive(1 To 2) As String, x As Integer
  4. TypeOfConvert = 0
  5. x = 1
  6. While x < Len(InputVal) And TypeOfConvert = 0
  7.     If Asc(Mid(InputVal, x, 1)) > 58 And Asc(Mid(InputVal, x, 1)) < 123 Then
  8.         TypeOfConvert = 1
  9.         temp = 2
  10.     ElseIf Asc(Mid(InputVal, x, 1)) > 128 And Asc(Mid(InputVal, x, 1)) < 243 Then
  11.         TypeOfConvert = 2
  12.         temp = 1
  13.     End If
  14. Wend
  15. If TypeOfConvert = 0 Then ConvertTorRus = InputVal
  16. ConvertionMassive(1) = "&#233;&#246;&#243;&#234;&#229;&#237;"
  17. ConvertionMassive(2) = "qwerty"
  18. For x = 1 To Len(InputVal)
  19. ConvertToRus = ConvertToRus & Mid(ConvertionMassive(TypeOfConvert), InStr(1, ConvertionMassive(temp), Mid(InputVal, x, 1)), 1)
  20. Next x
  21.  
  22. End Function
  23.  
  24. Sub main()
  25. MsgBox ConvertToRus("qwerty")
  26. End Sub



запускаем main - получаем йцукен

Ответить

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

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



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