Функция visual basic режет знаки препинания кавычки дефисы и абревеатуры. Как исправить?
Помогите доработать функцию VB чтобы из предложения выбирала только первые буквы слов но оставляла знаки препинания
Надо чтобы было так:
Сколько USA валют можно ввести в справочник "Валюты"?
Результат требуемый
СUSAвмввс"В"?
А функция выдает
СUвмввс"
Еще желательно абревеатуры (написанное заглавными) буквами не урезать
Function First_Symbol(stroka As String) As String
For Each a In Split(stroka, " ")
strok = strok & Left(a, 1)
Next
First_Symbol = Mid(strok, 1)
End Function
Лень писать весь текст функции, но алгоритм здесь такой - собираете все знаки препинания в строку, и проверяете символ - это знак или нет, если знак, то берете следующий (если он есть) mid(..,2)
Также, последнее слово после выхода из цикла - проверяете последний символ (Right$(a,1) ) - если это знак - то берете его тоже.
Одинарные кавычки