Cделать устаревший VB-синтаксис современным

[jangle]

Эксперт подтянулся.

Вон, тонны банковского софта в США на Фортране образца 70-х написано. Они там уже не знают, кого найти, чтобы поддерживали этот софт.

Новые проекты никто не начинает на Fortran-77, а для поддержки старых проектов достаточно прежних компиляторов. Да и банковский софт не писали на фортране, для этого использовали KOBOL и PL/I

[Хакер]

Что-то у тебя не очень с логикой.
Я же сказал про обратную совместимость со старой кодовой базой. Причём тут новые проекты?

Речь о том, чтобы взять VB7 и перекомпилировать им свой старый проект, одномоментно получив, например, полноценную поддержку юникода (на уровне контролов и RT API). Новые фишки это не отменяет.

Но если VB7 не сможет переварить VB6-модуль с объявлениями API-функций какой-нибудь хитрой библиотеки или модуль с алгоритмом сортировки — то это был бы мёртворождённый инструмент.

[Maikus]

Конструкции языка давно устарели. Например ужасно бесит необходимость писать:

Код: Выделить всё

Dim str as String
str="Hello!"

когда можно было бы:

Код: Выделить всё

String str="Hello!"

или

Код: Выделить всё

a=a+1

можно сократить до

Код: Выделить всё

a++

Импорт DLL функций может быть короче

Код: Выделить всё

Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

так

Код: Выделить всё

Import kernel32.dll Long lstrcatA(String, String)

Короче говоря, нужен VB с новым синтаксисом, и не то убожество которое в VB.NET реализовано

Почти все что нужно сделано в PureBasic.
Объявление строковой перемененной с присвоением значения.

Код: Выделить всё

Str.s = "Hello!"

Прибавление числа к переменной

Код: Выделить всё

a+1

Декларация функций из библиотеки.

Код: Выделить всё

Import "kernel32.lib"
  lstrcatA(String1.s, String2.s)
EndImport

Можно записать и так. Мусорного кода меньше. И бейсиковский синтаксис узнается

Код: Выделить всё

Function String TestLitera (String s)
     Select Lcase(s)
         Case  "ы", "а", "у", "о", "э", "и", "я", "ю", "ё", "е"
            TestLitera = "Гласная буква"
     End
End 

Код на PureBasic

Код: Выделить всё

Procedure.s TestLitera(s.s)
  Select LCase(s)
    Case  "ы", "а", "у", "о", "э", "и", "я", "ю", "ё", "е"
      ProcedureReturn "Гласная буква"
  EndSelect
EndProcedure