Определение последних символов в строке

Автор Александр Волков, 30.05.16, 11:12:49

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Александр Волков

В функции в отчетах Вертикали нужно взять символы после точки из атрибута.
Беру атрибут:
  set obozntd = p_dse.vrAttrByName("obozntd")
Пишу в переменную его значение
  str = obozntd.vrValue

Пример атрибута: "ИД.01161.00231"
Дальше мне нужно определить числа после второй точки. Число символов может быть разным.

Я в Basic разбираюсь плохо.

#programmer

https://msdn.microsoft.com/ru-ru/library/dd789093.aspx

На VBA будет выглядеть так:

Dim str As String
    str = "SomeFile.txt"
    Dim lastpos As Integer
    Dim slength As Integer
    Dim substr As String
    lastpos = InStrRev(str, ".")
    slength = Len(str)
    MsgBox "str =" & str & vbNewLine & "InStrRev Output =" & lastpos & "Len=" & slength
    If (lastpos <> 0) Then substr = Right(str, slength - lastpos)
    MsgBox substr
+ Благодарностей: 1